Ссылка на файл из текущей папки! Сбор инфы в один файл!

[mephist]

Исходная задача выглядит так: в одной папке лежит 11 файлов. В один файл собираются данные из осталных 10. Соответственно, в этом самом главном файле ссылки на остальные десять файлов, причем имена всех книг, листов и ячеек известны заранее. В один прекрасный день я хочу скопировать свой главный файл в другую папку, в которой тоже лежит 10 книг, которые называются также, но данные в которых другие.
И вот она цель - в самом главном файле должны обновиться все данные!!!
Для решения я хочу в главном файле сделать такие ссылки, которые указывает на файл из той папки, в которой находится главный файл.
Грубо говоря, чтобы вместо жесткого "D:\\WORK\FG.XLSX" было что-то навроде "~\FG.XLSX".
Как написать вот это ЧТО-ТО?
Напишите пожалуйста, чисто теоретически это возможно осуществить?
Может быть вообще стоит действовать по другому?

[pivas]

Если работает макрос, то удобно будет использовать:

ActiveWorkbook.Path & "\FG.XLSX"

[SAS888]

Позволю замечание: т.к. не известно, какая книга в данный момент активна, лучше использовать не

ActiveWorkbook.Path & "\FG.XLSX"

а

ThisWorkbook.Path & "\FG.XLSX"

[mephist]

Спасибо большое. Форум програмистов становится моим учебником по VB. Спасибо!
Только вот я не хотел писать макрос. Я просто хотел в ячейки главной книги вбить ссылки, содержащие имена книг. В результате книги меняются, имена остаются, данные сами обновляются. Разве так не получится??? Разве нельзя ссослаться на файл без полного пути???

[SAS888]

Если обе книги открыты, то (обратите внимание) ссылки в ячейках не содержат пути к файлу. Если же книгу-источник закрыть, то в ячейках со ссылками появится путь (уж так работает Excel). Если же переместить книгу-источник, то ссылка потеряется и Excel предложит указать новый путь к книге-источнику.
Поэтому, можно поступить так: при открытой книге, содержащей ссылки, открыть книгу-источник, затем сохранить ее по новому пути, затем закрыть. После таких действий, файл со ссылками будет искать книгу-источник в сохраненной папке, т.е. путь поменяется автоматически.
Естественно, что все это можно сделать и программно.

[mephist]

Большое спасибо за помощь!!!

Сообщение от SAS888

Если обе книги открыты, то (обратите внимание) ссылки в ячейках не содержат пути к файлу.

Я всегда обращал на это внимание. Просто, очень часто встречал возможность адресации к текущей папке.

Сообщение от SAS888

можно поступить так: при открытой книге, содержащей ссылки, открыть книгу-источник, затем сохранить ее по новому пути, затем закрыть.

Это к сожелению не применимо, ибо книг-источников много, да и делать надо все атоматически.

Сообщение от SAS888

Естественно, что все это можно сделать и программно.

Вот это самое интересное. Может быть подскажете, как сделать это программно?
У меня есть несколько вариантов:
1) Забить в макросе ссылки на нужные файлы. (Но я не знаю, как это осуществить. Ибо ссылок будет тысячи. Писать вручную не вариант. Как можно это автоматизировать???)
2) Забить в макрос копирование листов из файлов-источников в главный файл. (Тогда подскажите мне какой функцией можно скопировать? Какой функцией скрыть листы на которые будет производиться копирование? Как потом удалить из книги все скрытые листы?)

[SAS888]

Не совсем понятно, что у Вас не получается. Если нужно это:

В один прекрасный день я хочу скопировать свой главный файл в другую папку, в которой тоже лежит 10 книг, которые называются также, но данные в которых другие.
И вот она цель - в самом главном файле должны обновиться все данные!!!

то зачем что-то предпринимать? Если Вы переместили Ваш главный файл в другую папку, в которой присутствуют все файлы с такими же именами книг и листов (с любыми данными), то достаточно, при открытии главного файла на запрос обновить связи ответить положительно.

[mephist]

У меня таким образом должны обрабатываться сотни файлов-десятки тысяч ссылок.
Я написал макрос,который тупо прикрепляет ссылку к ячейке.

Range("AE6").FormulaR1C1 = "=‘[21 (Revenue)mh.xlsx]Приложение 21.1'!R6C31"

Когда он запускается,то спрашивает обновление связей и заполняет ячейки. Но работает очень медленно. На сотню ссылок он тратит минут пять.
Можно его ускорить???
А может кто-нибудь помочь с моими предыдущими вопросами:
1) можно ли листу из макроса присвоить атрибут скрутый (то есть просто скрыть лист автоматически)???
2) можно ли удалить все листы из книги, которым присвоен атрибут скрытый астоматически из макроса???

[SAS888]

Скрыть лист с именем "Имя_листа" можно так:

Sheets("Имя_листа").Visible = False

Удалить все скрытые листы в книге "Книга1.xls" можно так:

Dim sh As Worksheet: Application.DisplayAlerts = False
For Each sh In Workbooks("Книга1.xls").Sheets
    If Not sh.Visible Then sh.Delete
Next

[SAS888]

Я написал макрос,который тупо прикрепляет ссылку к ячейке.

Ну, во-первых, зачем абсолютная адресация?
Во-вторых, можно макросом просмотреть по всем листам только те ячейки, которые содержат формулы. И, если есть ссылка, то заменять в ней путь. Так будет быстрее. Но я не думаю, что при переносе (копировании) Вашего главного файла в другую папку, содержащую файлы-источники, выполнять подобный макрос будет быстрее, чем разрешить Excel-ю обновить связи при открытии файла.