|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
vbscript ' Создаем объект 1С Set oneC = CreateObject("V83.Application") ' Подключаемся к базе данных 1С oneC.Connect("File=""C:PathToYourDatabase.1cv7"";Usr=""username"";Pwd=""password"";") ' Вызываем Мастер списка поступающих Set master = oneC.Обработки.МастерСпискаПоступающих ' Открываем мастер master.Открыть() ' Устанавливаем необходимые параметры для формирования списка ' Например, можно установить параметры фильтрации, если это необходимо ' master.УстановитьПараметры(...) ' Запускаем процесс формирования списка master.Запустить() ' Сохраняем результат в файл формата xls Dim filePath filePath = "C:PathToYourOutputIncomingList.xls" master.ЭкспортироватьВExcel(filePath) ' Закрываем мастер master.Закрыть() ' Освобождаем ресурсы Set master = Nothing Set oneC = Nothing MsgBox "Файл успешно сформирован: " & filePath |
Обратите внимание, что вам нужно заменить ”C:PathToYourDatabase.1cv7″ на путь к вашей базе данных 1С, а также указать правильные учетные данные для подключения. Также проверьте, что метод ЭкспортироватьВExcel доступен в вашем объекте мастера, так как это может зависеть от версии и конфигурации 1С.