2016-09-14 5 views
0

Для этого я просмотрел по всему Интернету. До сих пор я знаю, что:Автоматизация создания PDF для включения гиперссылок

Сам VBA не может работать в pdf-файле. VBA - это собственный язык программирования Microsoft, который работает только в некоторых продуктах Microsoft, таких как Office, а формат PDF - не от Microsoft и не поддерживает VBA.

Поскольку печать в PDF включает стороннее программное обеспечение, будь то Adobe или другой принтер PDF, Excel, насколько я знаю, не может отправлять имя и местоположение файла непосредственно на принтер PDF.

Поэтому .ExportAsFixedFormat НЕ будет включать гиперссылки в окончательный pdf.

Существует ли вообще какой-либо способ, используя другое программное обеспечение или кодирование или что-либо еще, для создания pdf, который будет включать гиперссылки, кроме как путем его создания вручную. Т.е. как я могу автоматизировать создание PDF, чтобы включить гиперссылки? Я пробовал Excel 2016 и 2010.

У нас есть программное обеспечение для автоматизации создания отчета Excel, которое сохраняет файл, сохраняет PDF и электронные письма людям. Я знаю, что вы можете писать скрипты в Adobe, но как я могу заставить их запускать каждый день сам по себе? Или, может быть, какое-то другое программное обеспечение может это сделать?

Любые идеи были бы весьма признательны.

ответ

0

Используя приведенный ниже код, гиперссылок работает для меня на PDF:

Sub SaveAsPDF() 
Dim sPath As String 

sPath = Environ("Temp") & "\" 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
sPath & "File name here" & ".pdf", Quality:= _ 
xlQualityStandard, includedocproperties:=False, ignoreprintareas:=False, _ 
openafterpublish:=False 

ActiveWorkbook.Save 

End Sub 
+0

Я использую гиперссылок, ссылающихся на другой лист, и они создаются с помощью макроса. Мой код: 'ActiveWorkbook.ExportAsFixedFormat Type: = xlTypePDF, Filename: =" C: \ blahblahblah \ "&" Report_ "& Month1 &" _ "& Day1 &" _ "& Year1 &" .pdf ", _ ignoreprintareas: = False, openafterpublish: = False, Quality: = xlQualityStandard, includedocproperties: = True' Ни ваше, ни мое не печатает ссылки. – petgiraffe19

Смежные вопросы