VBA调用Adobe reader时候出错--求解，急

q798826477

我安装的是Adobe Reader XI
先勾选“工具”——"引用"——Adobe Acrobat 10.0 Type Library
Sub CTRLPDF()
  Dim PDFApp As Acrobat.AcroPDDoc
  Dim aa As String
  Dim kk As Boolean
  Dim filename As String
  
  Set PDFApp = New Acrobat.AcroPDDoc   ‘运行到这句时，显示“运行时错误’429‘，ActiveX部件不能创建对象”
  filename = Sheet1.Cells(1, 1).Value
  
  kk = PDFApp.Open(filename)
  
  PDFApp.GetFileName
End Sub
之后试过CreateObject("AcroExch.PDDoc")也是这个问题，求大神解答，万分感谢~~

bosslxt

就用这两句即可：
Dim PDFApp As Object
Set PDFApp = CreateObject("AcroExch.PDDoc")