excel - 脚本在 Debug模式下工作但不在正常运行下 - 错误代码 : 429(ActiveX Component Can't Create Object')

Question

UFT 版本:12.02(内部版本:2374)

操作系统:Windows 7(64 位)

在我的应用程序中，有一个 DataGrid 和一个“导出到 Excel 按钮”。当我单击该按钮时，将打开一个 excel 文件(Data.xlsx)，其中包含网格中存在的所有数据。我只需要将这个 excel 文件保存到某个位置。我正在使用“GetObject”方法来获取对打开的 Excel 文件的引用，如下面的代码所示。

问题:当我在 Debug模式下运行此代码时，它工作正常，我没有收到任何错误，并且 Excel 成功保存在正确的位置。但是当我运行相同的代码(Normal Run-not in Debug)时，我得到错误代码:429(ActiveX 组件无法创建对象')，如下所示。 我不知道为什么我在正常运行中遇到这个问题。

代码:

Dim l_objExcel, l_objExcelBook
Execute "Set l_objExcel = GetObject(,""Excel.Application"")"    'getting error 429 here in Normal Run

'I could have just used- Set l_objExcel = GetObject(,"Excel.Application") but it doesn't seem to work. It throws the syntax error(Expected Expression) at this line

Set l_objExcelBook = l_objExcel.ActiveWorkBook
l_objExcelBook.SaveAs strSavePath              'strSavePath contains the File save location
l_objExcelBook.Close
l_ObjExcel.Quit
Set l_objExcelBook = Nothing
Set l_objExcel = Nothing

编辑1:
如果我在代码中使用以下行，则会收到附件图像中显示的语法错误。

Set l_objExcel = GetObject("",""Excel.Application"")

编辑2:
只是一个总结，

如果我使用下面的行，我在调试期间不会收到任何错误，但在正常运行期间会收到错误 429。

Execute "Set l_objExcel = GetObject(,""Excel.Application"")"

如果我使用下面的行，我会收到语法错误“预期表达式”

Set l_objExcel = GetObject(,"Excel.Application")

如果我使用下面的行，我不会在此行收到任何错误，但会在我尝试保存文件的行中开始收到错误 424(Object required)。

Set l_objExcel = GetObject("","Excel.Application")

Answer 1

只需使用

Set l_objExcel = GetObject( ,"Excel.Application")

它会显示语法错误，但忽略它，您的脚本将运行良好。