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")也是这个问题，求大神解答，万分感谢~~

sxjlhk

Sub CTRLPDF()
    Dim PDFApp As Object  'As Acrobat.AcroPDDoc
    Dim aa As String
    Dim kk As Boolean
    Dim filename As String
   
    Set PDFApp = CreateObject("AcroExch.PDDoc")     '运行到这句时，显示“运行时错误’429‘，ActiveX部件不能创建对象”
    filename = Sheet1.Cells(1, 1).Value
   
    kk = PDFApp.Open(filename)
   
    PDFApp.GetFileName
End Sub

q798826477

sxjlhk 发表于 2016-3-24 23:48
Sub CTRLPDF()
    Dim PDFApp As Object  'As Acrobat.AcroPDDoc
    Dim aa As String

二楼这是啥

mrtemp

出现这个是因为没有正确Acrobat。引用那里也没正确选择库.
This OLE interface is available with Adobe Acrobat, not Adobe Reader
http://www.itkeyword.com/doc/593052879554733744/vba-acrobat-run-time-error-429-activex-component-cant-create-object.

使用以下语句可以用现有的如PDF reader软件打开PDF
Shell "explorer.exe """ & strPathName & """", vbNormalFocus

bluesky_0

Adobe Reader XI 不支持各种创建,只能阅读.
需要按照专业PRO 版才能VBA 操作创建,修改等