1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. iivvnn

    iivvnn Active Member

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

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Код:
    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

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

    iivvnn Active Member

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

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

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

    xlWB = xlApp.Workbooks.Open(...)
    ...
    Call xlWB.Close
     
Загрузка...

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