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

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

我也是VB新手，但我已经读过AcroEXch SDK。似乎我应该使用AcroEXch.PDDoc.Create，但这不太正确，因为我无法指定要打印/创建为新pdf文档的输入文件

---

关于如何创建一个全新的pdf文件，有什么想法吗？提前感谢。

您是否考虑过CuteFTP或PDFCreator，两者都是免费的。我成功地将PDFCreator与VBA一起使用，听说CuteFTP很好。

您是否考虑过CuteFTP或PDFCreator，两者都是免费的。我成功地将PDFCreator与VBA结合使用，听说CuteFTP很好。

我想我找到了答案。这里有一个工作人员建议的解决方案，如果有人觉得它有用，那就太好了

据我所知，AcroEXch类或一组方法中没有将非pdf文件转换为pdf文件的可用方法。相反，您必须先使用pdf提取程序将文件转换为postscript，然后使用PDFDistiller类将文件写入pdf。下面是一段代码：

"一,。打开正在转换为pdf的excel： xlReport.activate xlReport.rangea1.select

暗淡的PdfFilePath PdfilePath=

dim PsFilePath PsFilePath=

"二,。将Excel文件打印到postscript文件 xlBook.activesheet.PrintOut，1，，Ne01上的Adobe PDF:，TRUE，，PsFilePath

暗色蒸馏器 Set-oDistiller=CreateObjectPDFDistiller.PDFDistiller.1

oDistiller.FileToPDF sPsFilePath，spdfilepath

'关闭Excel-不保存。 '注释掉下面3行以进行调试 xlApp.displayalerts=false xlApp.quit

---

set xlApp=nothing

我想我找到了答案。这里有一个工作人员建议的解决方案，如果有人觉得它有用，那就太好了

据我所知，AcroEXch类或一组方法中没有将非pdf文件转换为pdf文件的可用方法。相反，您必须先使用pdf提取程序将文件转换为postscript，然后使用PDFDistiller类将文件写入pdf。下面是一段代码：

"一,。打开正在转换为pdf的excel： xlReport.activate xlReport.rangea1.select

暗淡的PdfFilePath PdfilePath=

dim PsFilePath PsFilePath=

"二,。将Excel文件打印到postscript文件 xlBook.activesheet.PrintOut，1，，Ne01上的Adobe PDF:，TRUE，，PsFilePath

暗色蒸馏器 Set-oDistiller=CreateObjectPDFDistiller.PDFDistiller.1

oDistiller.FileToPDF sPsFilePath，spdfilepath

'关闭Excel-不保存。 '注释掉下面3行以进行调试 xlApp.displayalerts=false xlApp.quit

---

set xlApp=nothing

我不知道您的具体情况以及您可以访问哪些工具，但是阅读您的描述，听起来您只是想通过单击为您转换Excel文件

如果您已经发布了Adobo Acrobat Professional、最新版本的Excel或市场上提供的其他转换器，这将非常有用

---

如果安装了Acrobat Pro，office应用程序word、excel、outlook等的工具栏中应该已经有一个“转换为PDF”按钮，再加上它，为您准备一个定期转换excel文件的Windows计划任务应该不会太难

我不知道您的具体情况以及您可以使用哪些工具，但是阅读您的描述，听起来您只是想通过单击为您转换Excel文件

如果您已经发布了Adobo Acrobat Professional、最新版本的Excel或市场上提供的其他转换器，这将非常有用

如果安装了Acrobat Pro，office应用程序word、excel、outlook等的工具栏中应该已经有一个“转换为PDF”按钮，再加上它，为您准备一个定期转换excel文件的Windows计划任务应该不会太难