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

[iivvnn]

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

 

[morpheus]

Dim pathName As String, fileName As String
pathName$ = "c:\*.xls"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
...
fileName$ = Dir$()
Loop

 

[iivvnn]

Dim pathName As String, fileName As String
pathName$ = "c:\*.xls"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
...
fileName$ = Dir$()
Loop

За это спс. как мне взять файл по его имени, открыть файл, а потом закрыть - как это реализовать?

 

[iivvnn]

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

 

[morpheus]

iivvnn

xlWB = xlApp.Workbooks.Open(...)
...
Call xlWB.Close