UFT：使用已打开的Excel文件

Question

我有一个已打开的Excel文件，Excel文件的名称是随机生成的。我需要更新Excel中的字段并将其保存在某个位置，但我是无法获取此Excel文件的处理程序。

尝试使用getObject方法在UFT中可用，但这是行不通的。

Answer 1

由于您将vbscript作为标签包含，因此以下代码是在vbscript中执行的。将其保存在带有“vbs”扩展名的文本文件中，然后运行它。

Dim objXL 

On Error Resume Next 

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

If Not TypeName(objXL) = "Empty" then 
    MsgBox objXL.Workbooks(1).path, vbInformation, "Excel Status" 
    MsgBox objXL.Workbooks(1).name, vbInformation, "Excel Status" 
    MsgBox objXL.Workbooks(1).fullname, vbInformation, "Excel Status" 
Else 
    MsgBox "Excel NOT Running", vbInformation, "Excel Status" 
End If