Шеф дал задание составить список файлов: актов, счет-фактур. А их ТЫСЯЧИ!!!

[ru3000]

Ребята, засада! Шеф дал задание составить список-перечень всех файлов excel: актов, счет-фактур. А их ТЫСЯЧИ!!! Единственное радует, что наши бухгалтера грамотно называли все файлы - если это Счет-фактура, то название файла именно такое: "Счет-фактура ..."; если Товарная накладная, то - "ТН ...". Подскажите плиз какое-нибудь решение, по автоматизации процесса.

Дано: папка с файлами с названиями типа:
Счет №000001-09 от 01.01.09.xlsx
Счет-фактура №СФ-000002-09 от 02.02.09.xlsx
ТН-000003-09 от 03.03.09.xlsx
Где все числовые переменны.

Надо: получить список файлов в виде: см. вложение

Заранее спасибо!

[EducatedFool]

Решение, на самом деле, очень простое:

1) Открываем папку с файлами в браузере Opera
Видим что-то вроде этого:



2) Копируем список файлов, и вставляем на лист excel
3) При помощи простейших формул в соседних столбцах получаем даты и номера документов.

Вот вариант с использованием макросов:

[IgorGO]

Открываете каким-нибудь командером нужную папку, пишете
dir /s >c:\filelist.txt
список всех файлов с данной папки и всех вложенных у вас в файле c:\filelist.txt.
если нужные файлы разбросаны по разным папкам, на разных дисках
dir /s >>c:\filelist.txt
будет их последовательно добавлять в c:\filelist.txt.
Откройте файл экселем и начинайте думать... как это богатство представить на ясные очи шефу. для начала - можно в необработанном виде и проследить реакцию, чтобы понять насколько вы близки к выполнению задания.

[Teslenko_EA]

Здравствуйте ru3000.
Удачный способ предложил IgorGO, можно дополнить только тем, что команда DIR работает с маской ввода :
dir "Счет*.xlsx" /s >c:\filelist.txt
и выходной файл (filelist.txt) создается в 866 (DOS) кодировке.
Евгений.

[ru3000]

Всем огромное спасибо, особенно EducatedFool. Начальству очень понравилось "моя" ) оперативность. Правда макросы пришлось немного переделать под себя, но все-равно все круто. Спасибо!
И, как говорится: "Нет худа без добра." Теперь задача поставлена, чтобы из каждого файла экпортировалось: Получатель и Сумма. Пробовал своими силами, но ничего не вышло. Сложность в том, что эти данные в каждом файле на разных местах и ни как их отследить не получается. Помогите разобраться, плиз!

[EducatedFool]

Начальству очень понравилось "моя" ) оперативность.

В таком случае, пора уже делиться с нами частью своей зарплаты

Сложность в том, что эти данные в каждом файле на разных местах и ни как их отследить не получается. Помогите разобраться, плиз!

Пришлось значительно усложнить код.
Вот что получилось:

[ru3000]

Вот это да!!!
Вот это круть! Спасибо огромейшее. Вы не представляете как меня выручили. Все прекрасно работает. Даже больше того, указал сетевую папку и, о чудо, все работает, хотя вовсе не был уверен, что макрос сможет увидеть сетевой путь. Еще раз спасибо!
EducatedFool, Вы лучший!

[ru3000]

Уважаемый EducatedFool, у меня никак не получается прописать в формуле поиска то, чтобы формула искала значения не в конкретных ячейках, как то: "c18" и "g24", а сначала искала бы значение "Заказчик:" и ивлекала бы значение на одну ячейку правее. И (res2), что бы формула искала значение "Всего к оплате:" и также звлекала бы значение на одну ячейку правее. Ведь в каждом файле разное кол-во строк и искомые данные все время меняют свое место. А так есть возможность привязки поиска к ячейке с постоянным значением.

   
        Case filename Like "Счет *":
            v = "Счет"
            n = Trim(Mid(Split(filename, " ")(1), 2))
            res1 = "c18": res2 = "g24": GetInfoXL filenameL, res1, res2

Заранее, спасибо.

[EducatedFool]

Ну, теперь Вам точно со мной не рассчитаться

Проверяйте:

[ru3000]

EducatedFool, человечеще! Спасибо за содействие.
Все ок, только есть один минус. При сканировании большого объема файлов с расширением *.doc комп начисто зависает. Диспетчер задач показывает память забитую сотнями процессами WINWORD.exe. Пытался в код впихнуть Shell "Cmd /x/c taskkill /f /im WINWORD.exe", но все безрезультатно. Подскажите, плиз., решение.