51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4069|回复: 10
打印 上一主题 下一主题

[原创] 【已解决】用QTP打开EXCEL文件报错

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-2-3 08:44:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim xl
  '打开excel文件
  Function OpenExcelFile(strFilePath)
  Set xl = CreateObject("Excel.Application")
  xl.Workbooks.Open strFilePath
  End Function

Call OpenExcelFile("c:\test.xls")

运行时提示  类 Workbooks 的 Open 方法无效

[ 本帖最后由 yujie6832 于 2010-2-3 12:08 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-2-3 09:41:39 | 只看该作者
Public Function ReadExcelContent(filename,sheetname,row,column)
                Set ExcelApp = CreateObject("Excel.Application")
                Set ExcelBook = ExcelApp.Workbooks.Open (filename)
                Set ExcelSheet = ExcelBook.Worksheets.Item(sheetname)
                ReadExcelContent = ExcelSheet.cells(row,column)
                ExcelBook.Close
                ExcelApp.Quit
                Set ExcelSheet = Nothing
                Set ExcelBook = Nothing
                Set ExcelApp = Nothing       
        End Function

Call ReadExcelContent(filename,sheetname,row,column)
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2010-2-3 09:44:55 | 只看该作者
肉眼没看出有问题,虽然写的很不规范(其他不规范不要紧,至少要把对象释放掉,SET OBJ = NOTHING,不然你去你的进程看看,有多少EXCEL.EXE的进程,)但是刚才试了下你的代码,直接运行了下

没有c:\test.xls文件的情况下提示找不到,有的情况下运行正常,么有出现你所说的问题

[ 本帖最后由 yujie6832 于 2010-2-3 09:46 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2010-2-3 10:21:04 | 只看该作者
如果没有这个文件不存在的话,我也不会提示刚才的错误.也是提示和你的一样
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2010-2-3 10:31:34 | 只看该作者

回复 4# 的帖子

那奇怪了,完全一样的代码,我拷过来运行了,没问题啊
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2010-2-3 10:43:37 | 只看该作者
你C盘有test.xls吗,没有的话,你建一个看看,呵呵,,
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2010-2-3 11:09:53 | 只看该作者

回复 6# 的帖子

我刚才在其他盘符建立了个,参数也对应改了,这个是一样的吧
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2010-2-3 11:10:22 | 只看该作者
谢谢,,我找到原因了
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2010-2-3 11:12:03 | 只看该作者

回复 8# 的帖子

什么原因,说出来,让大家看看啊
回复 支持 反对

使用道具 举报

该用户从未签到

10#
 楼主| 发表于 2010-2-3 11:14:48 | 只看该作者
不知道为什么test.xls  的大小只有1KB,,
我重建一个就好了
回复 支持 反对

使用道具 举报

该用户从未签到

11#
 楼主| 发表于 2010-2-3 11:18:17 | 只看该作者
谢谢哈..

[ 本帖最后由 gold_85 于 2010-2-3 11:25 编辑 ]
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-15 02:01 , Processed in 0.079239 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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