在VBScript中使用AcroEXch创建新的pdf文档

时间:2008-10-20 20:36:48

标签: excel acrobat

我希望自动将Excel工作表转换为pdf文档(我不想每天早上手动打印excel生成的报告作为pdf文档)。现在,我想在excel中创建一个按钮来运行宏来自动生成pdf文档,但最终不会使用此按钮。

我也是VB的新手,但已经阅读了AcroEXch SDK。好像我应该使用AcroEXch.PDDoc.Create,但这不太正确(因为我无法指定要作为新的pdf文档打印/创建的输入文件)。

关于如何创建全新的pdf文件的任何想法?提前谢谢。

3 个答案:

答案 0 :(得分:1)

我想我找到了答案。这是工作中建议的一个解决方案(如果有人发现它有用,那么很棒)。

转换非pdf文件到pdf文件的AcroEXch类(或我所知的方法集)中没有可用的方法。相反,您必须使用pdf Distiller首先将文件转换为postscript,然后您可以使用PDFDistiller类写入pdf。以下是代码片段:

“1。 open excel被转换为pdf:
  xlReport.activate   xlReport.range( “A1”)。选择

dim PdfFilePath     PdfFilePath =“”

昏暗的PsFilePath     PsFilePath =“”

“2。将Excel文件打印到postscript文件   xlBook.activesheet.PrintOut ,, 1,“Ne01上的Adobe PDF:”,TRUE ,, PsFilePath

Dim oDistiller 设置oDistiller = CreateObject(“PDFDistiller.PDFDistiller.1”)

oDistiller.FileToPDF sPsFilePath,sPdfFilePath,“”

'关闭Excel - 不保存。   '为了调试而评论出3条线   xlApp.displayalerts = FALSE   xlApp.quit   设置xlApp =无

答案 1 :(得分:0)

您是否考虑过CuteFTP或PDFCreator,两者都是免费的。我已成功使用PDFCreator和VBA,我听说CuteFTP很好。

答案 2 :(得分:0)

我不确切知道您的情况是什么以及您可以访问哪些工具,但阅读您的说明,听起来您只需要通过点击为您转换Excel文件。

如果您发布了Adobo Acrobat Professional,最新版本的Excel或市场上可用的其他转换器,那将会很有帮助。

如果您安装了Acrobat Pro,您的办公应用程序(word,excel,outlook等)应该已经在工具栏中有一个“转换为PDF”按钮,与Excel command line argument结合使用它不应该太多难以烹饪Windows计划任务,定期为您转换Excel文件。