Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение в PDF из VBS файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Сохранение в PDF из VBS файла
akobir Дата: Четверг, 29.08.2019, 14:16 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
Добрый день!

Имеется файл с расширением .vbs, в который прописан код, основная цель которого - преобразовать данные и сохранить файл в PDF.
Попробовал вкрутить туда:
[vba]
Код
Set objExcel = CreateObject("Excel.Application")
set osheet=objExcel.Sheets("Report")
...
objExcel.DisplayAlerts = False
objWorkbook.osheet.ExportAsFixedFormat 0, cur_dir & "\Report.pdf", 0, 1, 0,,,0
objWorkbook.close
[/vba]

При этом, если запускать из модуля в Excel - все работает без проблем.
.vbs же говорит "Объект не поддерживает это свойство или метод".

Подскажите пожалуйста, как сохранить файл в vbs?


e-mail: akobir.ismailov@gmail.com
 
Ответить
СообщениеДобрый день!

Имеется файл с расширением .vbs, в который прописан код, основная цель которого - преобразовать данные и сохранить файл в PDF.
Попробовал вкрутить туда:
[vba]
Код
Set objExcel = CreateObject("Excel.Application")
set osheet=objExcel.Sheets("Report")
...
objExcel.DisplayAlerts = False
objWorkbook.osheet.ExportAsFixedFormat 0, cur_dir & "\Report.pdf", 0, 1, 0,,,0
objWorkbook.close
[/vba]

При этом, если запускать из модуля в Excel - все работает без проблем.
.vbs же говорит "Объект не поддерживает это свойство или метод".

Подскажите пожалуйста, как сохранить файл в vbs?

Автор - akobir
Дата добавления - 29.08.2019 в 14:16
Gustav Дата: Четверг, 29.08.2019, 16:27 | Сообщение № 2
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
"Если бы я был директором", я бы спустился последовательно по объектам: Application, Workbook, Worksheet. А Вы как-то osheet от активного семейства листов Application лихо получили, а дальше зачем-то пытаетесь его из под Workbook вызвать. Возможно, внутри среды Excel работают какие-то умолчания, позволяющие Вам так сделать. Но VBS подобные вещи нужно прописывать более тщательно и внимательно.

Чисто навскидку попробуйте использовать оператор:
[vba]
Код
osheet.ExportAsFixedFormat 0, cur_dir & "\Report.pdf", 0, 1, 0,,,0
[/vba]
т.е. без objWorkbook.


МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение"Если бы я был директором", я бы спустился последовательно по объектам: Application, Workbook, Worksheet. А Вы как-то osheet от активного семейства листов Application лихо получили, а дальше зачем-то пытаетесь его из под Workbook вызвать. Возможно, внутри среды Excel работают какие-то умолчания, позволяющие Вам так сделать. Но VBS подобные вещи нужно прописывать более тщательно и внимательно.

Чисто навскидку попробуйте использовать оператор:
[vba]
Код
osheet.ExportAsFixedFormat 0, cur_dir & "\Report.pdf", 0, 1, 0,,,0
[/vba]
т.е. без objWorkbook.

Автор - Gustav
Дата добавления - 29.08.2019 в 16:27
akobir Дата: Пятница, 30.08.2019, 09:21 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
Gustav, Батюшки, а слона-то я и не заметил!
Огромное спасибо!


e-mail: akobir.ismailov@gmail.com
 
Ответить
СообщениеGustav, Батюшки, а слона-то я и не заметил!
Огромное спасибо!

Автор - akobir
Дата добавления - 30.08.2019 в 09:21
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!