Как извлечь данные из закрытого файла?

Range("A1").Formula = "='" & iPath & "[" & iFile & "]" & iList & "'!" & "A1"
Range("A1") = Range("A1")

извлечение данных из 100 ячеек

Range("A1:A100").Formula = "='" & iPath & "[" & iFile & "]" & iList & "'!" & "A1"
Range("A1:A100") = Range("A1:A100").Value

Второй способ (для записи данных в переменную) :

iAddress = "'" & iPath & "[" & iFile & "]" & iList & "'!" & Range("A1").Address(ReferenceStyle:=xlR1C1)
iData = ExecuteExcel4Macro(iAddress)

Предполагается, что:

• iPath - это месторасположения файла (каталог)
• Обратите внимание, что путь к файлу должен быть указан полностью, например вот так:
  "C:\Katalog\"
• iFile - это название файла - донора
• iList - это название листа в файле из которого мы извлекаем данные
• "A1" - это адрес ячейки из которой нам нужно получить данные

P.S. Если файл - донор и файл - extractor находятся в одном каталоге (папке), то " & iPath & " - можно убрать