ВСЕМ ДОБРОГО ДНЯ!
Как долго я никого не мучила здесь)))))
Очень давно уважаемый HUGO помог мне с большим количеством печати документов. Тогда необходимо было распечатать акты приема передачи, счета-фактуры и акты сверок (каждый по 250 штук) одной кнопкой.
Сегодня задача усложнилась. Раньше файлы формировались автоматически по номеру договора, в папке сортировались сами по возрастанию номера договора:
Акт ПП декабрь 2016Акт_ПП_М#DON-30006412-NG-BELG-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006413-NG-BIOS-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006492-NG-NESK-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006520-NG-RURES-16-VV-1.xls
Скрипт также распечатывал по порядку. По такому порядку распечатывались и письма, и конверты.
Сегодня получили реестр новых договоров на 2017 год, в котором по одному и тому же контрагенту заключены по 3-4 договора.
Если сейчас я сформирую в папку документы, то файлы будут расположены в таком порядке:
Акт ПП декабрь 2016Акт_ПП_М#DON-30006410-NG-NESK-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006412-NG-BELG-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006413-NG-BIOS-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006414-NG-BELG-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006492-NG-NESK-16-VV-1.xls
Акт ПП декабрь 2016Акт_ПП_М#DON-30006520-NG-RURES-16-VV-1.xls
Теперь при распечатке через скрипт нарушен порядок, документы одного и того же контрагента будут распечатаны в начале, середине и конце. Нет ли возможности задать в самом скрипте распечатку именно по коду контрагента NESK, BELG, BIOS и т.д.
На данный момент надо сформировать более 2000 документов. И сделать надо сегодня
Спасибо заранее!!!!!!!!!!!!!!!!!!!!
Прилагаю код скриптаDim FSO, objExcel, wb
Dim TheFolder, TheFiles, AFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("U") 'Каталог, откуда печатать
Set TheFiles = TheFolder.Files
Set objExcel = CreateObject("Excel.Application")
For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" Then
Set wb = objExcel.Workbooks.Open (AFile)
wb.printout
wb.close 0
End If
Next
objExcel.Quit