51Testing软件测试论坛

标题: 用qtp操作excel时，蜜汁报错 [打印本页]

---

作者: ydlizb    时间: 2017-7-4 16:50
标题: 用qtp操作excel时，蜜汁报错
代码如下
Set ExcelApp = createobject("Excel.Application")
Set ExcelWor=ExcelApp.Workbooks.Open("E:\QTP_SAVE\EOM\Eom.xls")
Set ExcelShe = ExcelWor.Worksheets("sheets").UsedRange
rowcount = ExcelShe.Rows.count
columncount = ExcelShe.Columns.count
For i=1 to  rowcount
                        For j=1 to  columncount
                                        msgbox ExcelShe.cells(i,j)
                        Next
Next

Set ExcelShe=Nothing
ExcelWor.close
ExcelApp.quit


在走到Set ExcelWor=ExcelApp.Workbooks.Open("E:\QTP_SAVE\EOM\Eom.xls")这一步时，就报运行错误

---

作者: jingzizx    时间: 2017-7-4 20:34
解决方法如下：

1、变量没有定义   
2、对象资源管理库里没有这个对象，描述性编程描述这个对象的时候  属性不是唯一的。

3、重启qtp或重启电脑，再次运行即可。

---

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

Powered by Discuz! X3.2