Question

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

尝试使用UFT中提供的getObject方法，但这不起作用。

Answer 1

由于您将vbscript作为标记包含在内，因此以下是在vbscript中执行此操作的代码。使用＆＃34; vbs＆＃34;将其保存在文本文件中扩展，你可以运行它。

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

UFT：使用已打开的Excel文件

1 个答案: