51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3306|回复: 5
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-11-20 16:02:06 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
' *******************************************************************************
' 目的:打开一份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?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

6#
发表于 2011-8-5 09:21:13 | 只看该作者
装Adobe Acrobat应该就OK。最近刚用QTP做了些跟PDF有关的测试。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2011-8-4 15:52:21 | 只看该作者
回复 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
复制代码
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 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
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-11-27 12:23:57 | 只看该作者
呵呵,PDF对象用的人不多,我调试了一下也发生了一样的问题,楼主google一下吧
看看vbs如何建立pdf文件的对象
回复 支持 反对

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-11-21 14:31:44 | 只看该作者

回复 1# 的帖子

怎么没人回复我的? 看来我没人缘呀!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-11 14:13 , Processed in 0.066813 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表