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