Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2017, 12:14   #1
SanRn
 
Регистрация: 12.01.2017
Сообщений: 4
По умолчанию Сохранение Excel в PDF.

Dim TimeStamp, DestinationFile, fso
TimeStamp = CStr(Year(Date)) & CStr(MonthName(Month(Date), True)) & CStr(Day(Date)) & "-" & CStr(Hour(time))

DestinationFile = "E:\Test\" & TimeStamp & ".xls"

Set fso = CreateObject("Scripting.FileSystemO bject")
fso.CopyFile "C:\Documents and Settings\Administrator\Desktop\test .xls", DestinationFile
Worksheets("Sheet1").Select
ActiveSheet.ExportAsFixedFormat ,xlTypePDF , "E:\Test\" & TimeStamp & ".pdf"

Есть вот такой скрипт, написанный не в Exel, а в SCADA Experion PKS.
Работает наполовину, т.е копирует файл, но в формат PDF не экспортируется. Ошибок при этом не выдаёт. Type:=xlTypePDF и т.п не работает.
Кто может чем нибудь помочь?
SanRn вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сохранение в pdf ts-alan ASP.NET 0 22.04.2016 09:21
сохранение в PDF и отправка по почте strannick Microsoft Office Excel 26 01.04.2012 14:43
Множественное сохранение PDF файлов artemavd Общие вопросы Delphi 29 25.01.2011 16:51
СОХРАНЕНИЕ В ФОРМАТЕ *.PDF provodnikam Microsoft Office Word 10 20.02.2010 10:31
из excel в pdf OutstandiN Помощь студентам 1 13.03.2009 08:42