脚本在调试模式下工作，但在正常运行下不工作-错误代码：429（ActiveX组件无法创建对象）

Question

UFT版本：12.02（内部版本：2374）

作业系统：Windows 7（64-Bit）

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

问题：当我在调试模式下运行此代码时，它工作正常，没有出现任何错误，并且excel成功保存在正确的位置。 但是，当我运行相同的代码（“正常运行”而不是在“调试”中运行）时，出现错误代码：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

EDIT1：如果我在代码中使用以下行，则会出现附件图像中显示的语法错误。

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

编辑2：只是一个摘要，

1. 如果我使用以下行，则在调试过程中不会出现任何错误，但在正常运行期间会出现错误429。

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

2. 如果使用下面的行，则会出现语法错误“ Expected Expression”

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

3. 如果使用下面的行，则在此行没有任何错误，但是在我尝试保存文件的行中开始出现错误424（必需的对象）。

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

Answer 1

只需使用

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

它将显示语法错误，但是忽略它，您的脚本将运行正常。