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

Тема в разделе "Lotus - Программирование", создана пользователем iivvnn, 30 окт 2012.

  1. iivvnn

    iivvnn Active Member

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Код (LotusScript):
    Dim pathName As String, fileName As String
    pathName$ = "c:\*.xls"
    fileName$ = Dir$(pathName$, 0)
    Do While fileName$ <> ""
    Print fileName$
    ...
    fileName$ = Dir$()
    Loop
     
  3. iivvnn

    iivvnn Active Member

    Регистрация:
    7 сен 2011
    Сообщения:
    37
    Симпатии:
    0
    За это спс. как мне взять файл по его имени, открыть файл, а потом закрыть - как это реализовать?
     
  4. iivvnn

    iivvnn Active Member

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    iivvnn

    xlWB = xlApp.Workbooks.Open(...)
    ...
    Call xlWB.Close
     
Загрузка...
Похожие Темы - Перебор Файлов Excel
  1. 123456789igor
    Ответов:
    1
    Просмотров:
    1.571
  2. sima12
    Ответов:
    4
    Просмотров:
    1.775
  3. Altaya
    Ответов:
    10
    Просмотров:
    2.812
  4. MMN
    Ответов:
    28
    Просмотров:
    7.639
  5. Xalet
    Ответов:
    7
    Просмотров:
    3.557

Поделиться этой страницей