coralsong_1982 发表于 2008-11-20 16:02:06

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:44

回复 1# 的帖子

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

yuandjing 发表于 2008-11-27 12:23:57

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

风过无息 发表于 2008-11-27 14:00:32

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:21

回复 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:13

装Adobe Acrobat应该就OK。最近刚用QTP做了些跟PDF有关的测试。
页: [1]
查看完整版本: QTP调用PDF格式提示错误的原因