|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.01.2017, 12:14 | #1 |
Регистрация: 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 и т.п не работает. Кто может чем нибудь помочь? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сохранение в 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 |