автоматизация отчета в экселе

[Galyamov]

В моей работе приходится очень часто приходится повторять следующие операции:
1. формирую отчет в 1С и сохраняю его в excel (например отгрузка.xls);
2. открываю этот созданный файл;
3. по каждому типу продукта необходимо из штук переводить в кг (например 10 штук продуктов фасованных в фасовку 0.5 кг - в результате должно быть 10*0,5=5 кг);
4. сохранить этот файл под другим именем.
Я буду очень признателен и благодарен кто поможет мне в этом.
В свое время я прекрасно владел qbasic'ом но прошло много лет, если кто поможет сделать скелет программы, я сам постараюсь доделать.
С уважением, Ильдар.

[Hugo121]

Без примера не получится.

[Galyamov]

Hugo121 я думаю, даже достаточно будет сделать кнопку, которая будет прошаривать определенную папку например c:\data\ и список этих файлов выдавать в форме списка по столбцу А (например на листе список файлов)

[EducatedFool]

сделать кнопку, которая будет прошаривать определенную папку например c:\data\ и список этих файлов выдавать в форме списка по столбцу А

Смотрите пример здесь: http://excelvba.ru/code/FilenamesCollection

Вам только надо будет заменить строку ПутьКПапке = CreateObject("WScript.Shell").Speci alFolders("Desktop")
на ПутьКПапке = "c:\data\"

и строку Set coll = FilenamesCollection(ПутьКПапке, ".txt", 3)
на Set coll = FilenamesCollection(ПутьКПапке, ".xls", 1)