• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы iivvnn
  • Дата начала
I

iivvnn

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

morpheus

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

iivvnn

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

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

iivvnn

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

morpheus

iivvnn

xlWB = xlApp.Workbooks.Open(...)
...
Call xlWB.Close
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!