【问题标题】:Creating a new pdf document using AcroEXch in VBScript在 VBScript 中使用 AcroEXch 创建新的 pdf 文档
【发布时间】:2008-10-20 20:36:47
【问题描述】:

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

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

关于如何创建全新的 pdf 文件有什么想法吗?提前致谢。

【问题讨论】:

    标签: excel acrobat


    【解决方案1】:

    我想我找到了答案。这是工作中有人建议的一种解决方案(如果有人觉得它有用,那就太好了)。

    AcroEXch 类(或我知道的一组方法)中没有可用的方法将非 pdf 文件转换为 pdf 文件。相反,您必须使用 pdf Distiller 首先将文件转换为 postscript,然后您可以使用 PDFDistiller 类写入 pdf。这是代码的sn-p:

    '1.打开正在转换为 pdf 的 excel:
    xlReport.activate xlReport.range("a1").select

    dim PdfFilePath PdfFilePath = ""

    dim PsFilePath PsFilePath = ""

    '2.将 Excel 文件打印到 postscript 文件 xlBook.activesheet.PrintOut , , 1, , "Adobe PDF on Ne01:" ,TRUE, , PsFilePath

    Dim oDistiller 设置 oDistiller = CreateObject("PDFDistiller.PDFDistiller.1")

    oDistiller.FileToPDF sPsFilePath, sPdfFilePath, ""

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

    【讨论】:

      【解决方案2】:

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

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

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

      【讨论】:

        【解决方案3】:

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

        【讨论】:

          猜你喜欢
          • 1970-01-01
          • 2010-12-10
          • 1970-01-01
          • 1970-01-01
          • 1970-01-01
          • 2010-12-06
          • 1970-01-01
          • 2015-10-02
          相关资源
          最近更新 更多