Получение «закрытой» информации

Возможности программы предусматривают извлечение данных из закрытого файла. Для этого нужно записать и выполнить следующий макрос (листинг 3.4).

Листинг 3.4. Извлечение данных из закрытого файла

Sub GetDataFromFile()

Range(«A1»).Formula = «='C:[Example.xls]Лист1'!A1»

End Sub

В данном случае подразумевается, что необходимый нам файл находится по адресу С:Example.xls, а из хранящейся в нем книги нам нужно содержимое ячейки А1.

Формулу, которую мы задавали с помощью макроса, можно вводить в таблицу вручную, если возникнет необходимость заносить в ячейки таблицы данные из другого файла. При этом следует учитывать, что полный путь нужно задавать только в том случае, если необходимый файл расположен в другой папке. Имя файла в квадратных скобках указывать обязательно. Также следует указывать имя листа, на котором находится нужная нам ячейка. Необходимо строго соблюдать синтаксис, который используется в листинге 3.4.

Для подкрепления сказанного рассмотрим пример формулы для получения значения ячейки А1 листа Лист2 книги, расположенной в файле F.xls (в той же папке, что и текущая книга):

=' [F.xls]Лист2'!A1