vba - 使用 Excel 宏打印到 PDF 时出错。仅适用于实际的 Adob​​e 而不是 Adob​​e Reader

Question

我有这张 Excel 表格，它整合了一堆报告并将它们打印成 PDF。当我在安装了实际 Adob​​e 软件的电脑上时，代码运行良好。我尝试在我的个人笔记本电脑上使用它，它只有一个 adobe 阅读器，并且宏崩溃了:

Sub JoinPDFFile(strPDFToLocation As String, strPDFTo As String, _
 strPDFFromLocation As String, strPDFFrom As String)



  Dim objAcroExchApp As Object
  Dim objAcroExchNewPDDoc As Object
  Dim objAcroExchExistPDDoc As Object
  Dim intLastPage As Integer
  Dim intNewPages As Integer


  Set objAcroExchApp = CreateObject("AcroExch.App") <---This is the error
  'New PDF document object
  Set objAcroExchApp = CreateObject("AcroExch.PDDoc")
  If Dir(strPDFToLocation & strPDFTo & ".pdf") = strPDFTo & ".pdf" Then
    objAcroExchApp.Open strPDFToLocation & strPDFTo & ".pdf"
   Else
    objAcroExchApp.Create
  End If

它说 Set objAcroExchApp = CreateObject("AcroExch.App") <---这是错误

所以我想知道。我是否必须返回并更改代码中的所有内容，以便它可以与当前用户拥有的任何 PDF 文件阅读器一起使用？

我尝试在上面使用 On Error Resume Next，它所做的只是放弃整个过程，只打印应该有 20 页的第一页。

有没有办法简单地编写整个代码，以便它制作一个 PDF 文件，而不取决于我是否有 Adob​​e？因此，即使您使用 Foxit、Dejvu 等。它仍然有效吗？

Answer 1

Excel 不需要任何特定的库来提供 ExportAsFixedFormat Type:=xlTypePDF但要使用
AcroExch.App 需要 Adob​​e Pro。所以它真的取决于你想用 PDF 做什么(从你的代码中不清楚，我猜它不仅仅是打开或创建)，做某些事情 Adob​​e Pro 可能更适合，另一个可能会做某些事情更好， ETC。
例如，BYTESCOUT SDK 功能强大，易于使用并支持多种功能，如果我需要从 PDF 创建 CSV，我可以通过添加 3 行来完成
在您的代码中:

Sub JoinPDFFile(strPDFToLocation As String, strPDFTo As String, _
 strPDFFromLocation As String, strPDFFrom As String)

  Dim objAcroExchApp As Object
  Dim objAcroExchNewPDDoc As Object
  Dim objAcroExchExistPDDoc As Object
  Dim intLastPage As Integer
  Dim intNewPages As Integer
  Dim extractor As New Bytescout_PDFExtractor.CSVExtractor


  'Set objAcroExchApp = CreateObject("AcroExch.App") '<---This is the error
  'New PDF document object
  'Set objAcroExchApp = CreateObject("AcroExch.PDDoc")

  If Dir(strPDFToLocation & strPDFTo & ".pdf") = strPDFTo & ".pdf" Then
    'objAcroExchApp.Open strPDFToLocation & strPDFTo & ".pdf"
    extractor.LoadDocumentFromFile strPDFToLocation & strPDFTo & ".pdf"
    extractor.SaveCSVToFile (strPDFToLocation & strPDFTo & ".csv")
   Else
    'objAcroExchApp.Create
  End If

End Sub

谢谢