51Testing软件测试论坛

标题: QTP调用PDF格式提示错误的原因 [打印本页]

作者: coralsong_1982 时间: 2008-11-20 16:02
标题: QTP调用PDF格式提示错误的原因
' *******************************************************************************
' 目的：打开一份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 时间: 2008-11-21 14:31
标题: 回复 1# 的帖子

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

作者: yuandjing 时间: 2008-11-27 12:23
呵呵，PDF对象用的人不多，我调试了一下也发生了一样的问题，楼主google一下吧
看看vbs如何建立pdf文件的对象

作者: 风过无息 时间: 2008-11-27 14:00
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 时间: 2011-8-4 15:52
回复 1# coralsong_1982

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

代码如下：

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

复制代码

作者: code147 时间: 2011-8-5 09:21
装Adobe Acrobat应该就OK。最近刚用QTP做了些跟PDF有关的测试。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)