Сохранение Excel в PDF. - Microsoft Office Excel

SanRn · 12.01.2017, 12:43

Код:

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 и т.п не работает.
Кто может чем нибудь помочь?

Aleksandr H. · 12.01.2017, 13:38

Цитата:

Сообщение от SanRn

т.е копирует файл, но в формат PDF не экспортируется.

а если после копирования, открыть скопированный и его експортировать?

SanRn · 12.01.2017, 20:19

Если написать простой макрос экспортирования то будет работать. Мне нужно чтобы все делалось автоматом. Так не желательно чтобы книга открывалась в екселе. Пробовал открывать через скрипт тоже не выходит.

SanRn · 15.01.2017, 14:14

Да совершенно верно копирует, но не экспортирует.

IgorGO · 15.01.2017, 16:14

а попробуйте описать не как Вы делали (и как не получилось), а что хотите получить (как должно работать)?

andrlukinn · 23.01.2017, 17:14

Насколько я знаю экспортировть Excel в PDF невозможно

12.01.2017, 12:43	#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 и т.п не работает. Кто может чем нибудь помочь? Последний раз редактировалось Аватар; 12.01.2017 в 20:23.

15.01.2017, 16:14	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	а попробуйте описать не как Вы делали (и как не получилось), а что хотите получить (как должно работать)? Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сохранение Excel в PDF.	SanRn	Помощь студентам	0	12.01.2017 12:14
сохранение в 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

12.01.2017, 20:19	#3
SanRn Регистрация: 12.01.2017 Сообщений: 4	Если написать простой макрос экспортирования то будет работать. Мне нужно чтобы все делалось автоматом. Так не желательно чтобы книга открывалась в екселе. Пробовал открывать через скрипт тоже не выходит.

15.01.2017, 14:14	#4
SanRn Регистрация: 12.01.2017 Сообщений: 4	Да совершенно верно копирует, но не экспортирует.

23.01.2017, 17:14	#6
andrlukinn Новичок Джуниор Регистрация: 22.01.2017 Сообщений: 3	Насколько я знаю экспортировть Excel в PDF невозможно