用qtp操作excel时，蜜汁报错

ydlizb

代码如下
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

解决方法如下：

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

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