vbs檢測xls檔案是否已被開啟

經常，寫的程式需要儲存/開啟/編輯某個xls檔案，而xls檔案被任何程式開啟時，其他程式將無法對他進行編輯、刪除操作。
這是需要檢測xls檔案是否被開啟，然後提醒程式來進行後續處理。
這裡只是vbs程式的一個例子。

'參數sFile, xls檔案絕對路徑,如 F:\Excel.xlsPublic Function IsFileOpen(sFile)Dim isOpenisOpen=falseOn Error Resume Next  '遇到錯誤繼續執行下一行 Dim xlsapp             Dim i Set xlsapp=GetObject(,"Excel.Application") '擷取當前啟動並執行Excel應用程式物件，擷取失敗則xlsapp為空白 If Isempty(xlsapp) Then    '判斷xlsapp是否為空白    'msgbox "Excel沒開啟"    isOpen=False Else      For i = 1 To xlsapp.Workbooks.count      '遍曆當前Excel活頁簿集合        If Lcase(xlsapp.Workbooks(i).Path & "\" & xlsapp.Workbooks(i).Name) = Lcase(sFile) Then       '比較工作薄檔案名稱和路徑，為防止大小寫差異統一轉換為小寫進行比較              'Msgbox sFile&" 已開啟"       'F:\Excel.xls           isOpen=True           Exit For        End If    Next     End If Set xlsapp=Nothing   '釋放對象 IsFileOpen=isOpenEnd Function