在VBScript中使用AcroEXch创build一个新的pdf文档

我期待自动将Excel表格转换为PDF文档（我不想每天早上手动打印在Excel中生成的报表作为PDF文档）。 现在，我想在Excel中创build一个button来运行macros来自动生成PDF文档，但是这个button最终不会被使用。

我也是VB的新手，但已经阅读了AcroEXch SDK。 似乎我应该使用AcroEXch.PDDoc.Create，但这是不正确的（因为我不能指定一个input文件作为一个新的PDF文档打印/创build）。

关于如何创build一个全新的PDF文件的任何想法？ 提前致谢。

Answer 1

我想我find了答案。 这里有一个解决scheme的人build议（如果有人认为它有用，那么很好）。

AcroEXch类（或我知道的一组方法）没有可用的方法来将非pdf文件转换为pdf文件。 相反，你必须使用PDF Distiller首先将文件转换为postscript，然后使用PDFDistiller类可以写入pdf。 以下是代码片段：

“1。 打开excel被转换为PDF格式：
xlReport.activate xlReport.range（“a1”）。select

dim PdfFilePath PdfFilePath =“”

昏暗PsFilePath PsFilePath =“”

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

Dim oDistiller Set oDistiller = CreateObject（“PDFDistiller.PDFDistiller.1”）

oDistiller.FileToPDF sPsFilePath，sPdfFilePath，“”

“closuresExcel – 不保存。 '注释下面3行DEBUG xlApp.displayalerts = false xlApp.quit set xlApp = nothing

Answer 2

你有没有考虑过CuteFTP或PDFCreator，都是免费的。 我已经成功地使用了与VBA的PDFCreator，我听说CuteFTP是好的。

Answer 3

我不知道你的情况到底是什么，你有什么工具可以访问，但是阅读你的描述，这听起来像你只是想为你点击一个Excel文件转换。

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

如果你已经安装了Acrobat Pro，你的办公应用程序（word，excel，outlook等）应该已经在工具栏中有一个“转换为PDF”的button，与Excel命令行参数结合起来应该不会太难一个Windows定期任务，定期为您转换excel文件。