QTP调用PDF格式提示错误的原因

coralsong_1982

' *******************************************************************************
' 目的：打开一份PDF文档，读取PDF文档的页数
' 输入参数：
' 返回结果：
' 注意事项：
' *******************************************************************************
Option Explicit
Dim gApp, gPDDoc, jso
Set gApp = CreateObject(“AcroExch.App” )
Set gPDDoc = CreateObject( “AcroExch.PDDoc” )
If gPDDoc.Open(”D:\Doc\AutomatedTesting.pdf“) Then
     Msgbox gPDDoc.GetNumPages
End If
Set gPDDoc = Nothing : Set gApp = Nothing

运行后提示：ActiveX 元件無法產生物件: 'AcroExch.App'
原因是不是因为我只装了ADOBE READER？

coralsong_1982

怎么没人回复我的？ 看来我没人缘呀！

yuandjing

呵呵，PDF对象用的人不多，我调试了一下也发生了一样的问题，楼主google一下吧
看看vbs如何建立pdf文件的对象

风过无息

You may have an installation of Adobe Acrobat Standard or Prof.
or
you may try download the SDK.,e.g. SDK8_v2_Full_win.zip

w520hua

回复 1# coralsong_1982


    哥们，都这么多年了，你这个问题解决了嘛？解决了就教教我这个小弟吧，我的问题跟你的一样，只不过我现在用的是 QTP10。但提示跟你一样啊

代码如下：

1. Function GetNumPdf(filename)
   
2. Dim GetDoc
   
3. '调用PDF的COM组件（PDDoc对Acrobat文档级别的对象进行操作）
   
4. Set GetDoc = CreateObject ("AcroExch.PDDoc")
   
5. '打开PDF文件并获取页面数目
   
6. If GetDoc.open(filename) Then
   
7.   GetNumPdf = GetDoc.GetNumPages()
   
8.   Set GetDoc = Nothing
   
9. Else
   
10.   MsgBox "不存在"
    
11. End If
    
12. End Function
    
13. Dim pagenum
    
14. pagenum = GetNumPdf ("D:\2010最新实木复合地板十大品牌.pdf")
    
15. MsgBox "2010最新实木复合地板十大品牌.pdf 总页数为 " & pagenum
    

复制代码

code147

装Adobe Acrobat应该就OK。最近刚用QTP做了些跟PDF有关的测试。