求助：ActiveX部件不能创建对象，VBA 调用Acrobat.AcroPDDoc时发生的

617775011

我安装的是Adobe Reader X
先勾选“工具”——"引用"——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
跪求大家帮助啊？

paciguard

2623人都不知道。。。

sac100

Adobe Acrobat 9.0没问题的，10很少有人提供测试相关数据的。9.0整体还不错

sac100

1. 你试试看看
   
2. Sub CTRLPDF()
   
3.     Dim PDFApp As New Acrobat.AcroPDDoc
   
4.     Dim aa As String
   
5.     Dim kk As Boolean
   
6.     Dim filename As String
   
7. 
   
8.     kk = PDFApp.Open(测试文件)
   
9.    
   
10.     Debug.Print PDFApp.GetFileName
    
11. End Sub

复制代码

sac100

1. Acrobat 7,8,9,10,11 版本
   
2. Dim objAcroPDDoc        As New Acrobat.AcroPDDoc

复制代码

sac100

1. Sub CTRLPDF()
   
2.     Dim objAcroPDDoc   As Acrobat.CAcroPDDoc
   
3.     Set objAcroPDDoc = CreateObject("AcroExch.PDDoc")
   
4.     Dim aa As String
   
5.     Dim kk As Boolean
   
6.     Dim filename As String
   
7.     kk = objAcroPDDoc.Open(测试文件)
   
8.     Debug.Print objAcroPDDoc.GetFileName
   
9. End Sub

复制代码

paciguard

sac100 发表于 2017-8-9 12:23

谢谢你！主要是我安装的是reader版的，所以用不了。。。

Adeelliu

paciguard 发表于 2017-8-9 13:41
谢谢你！主要是我安装的是reader版的，所以用不了。。。

您好，请问，后来解决了吗？我的也是只安装了reader 想操作PDF

ElevenChen陈辉

我也遇到的这个问题，谁能帮我解决一下，感谢感谢！

bluesky_0

Set PDFApp = New Acrobat.AcroPDDoc         ‘运行到这句时，显示“运行时错误’429‘，ActiveX部件不能创建对象”