Перебор Файлов Excel

iivvnn

Active member
07.09.2011
37
0
#1
Нужно реализовать скриптом:
Есть папка с кучей файлов Excel, нужно пройтитсь агентом по все этим файлам, взять из каждого значение из таблицы и записать в базу.
Вопрос именного по превой части - как перебрать все файлы по очереди?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Код:
Dim pathName As String, fileName As String
pathName$ = "c:\*.xls"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
...
fileName$ = Dir$()
Loop
 

iivvnn

Active member
07.09.2011
37
0
#4
При переборе файлов пишет autimation object error на строчке
Call xlApp.Workbooks.Open("D:\"+fileName$) когда fileName$ уже следующего файла
Как правильно закрыть Excel после того как я черпнул с него инфу и переключиться на другой файл из директории