vbscript檢查文件是否打開

Question

我正在嘗試制作一個將由Windows Task Scheduler每5分鍾運行一次的腳本，該腳本已完成很多工作，但有一個缺陷。 腳本在本地服務器存儲上的exel文件中運行宏，但我不知道如何檢查someonne文件是否已打開？ 實際上，它應該非常簡單，如果文件已經打開，則跳過代碼。 這樣，腳本就不會打擾目前正在處理文件的annyone。

這是我的腳本：

Option Explicit
On Error Resume Next
Test

Sub Test() 
    Dim XL 
    Dim WBK

    Set XL = CreateObject("Excel.Application")
    Set WBK = XL.Workbooks.Open("C:\Users\Mobilefreek\Desktop\MFT_Vnosi_Test.xlsm")

    XL.Run "MFT_Izracun"

    WBK.Save
    WBK.Close

    Set WBK = Nothing
    Set XL = Nothing
End Sub 

Answer 1

打開多個Excel文件時檢查是否打開了特定的Excel文件並激活它

上面的鏈接可能會有所幫助。

Set WshShell = WScript.CreateObject ("WScript.Shell")
if WshShell.AppActivate(ExcelFileName) = True then
XL.Run "xxxx"
else
Test
End if