Как извлечь данные из закрытого файла — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 & " - можно убрать

Похожие записи/страницы:

Leave a Comment