Excel vba檢查工作簿是否已打開

Question

是否有任何方法檢查excel文件是否打開？如果它被打開，那我該如何關閉它？

在此先感謝

Answer 1

如果工作簿名稱不包含句號，也可以是簡單的：

Sub TestForOpen() 
    Dim wb As Workbook, st As String 
    st = "Phone" 
    For Each wb In Workbooks 
     stwb = Split(wb.Name, ".")(0) 
     If st = stwb Then 
      wb.Activate 
      ActiveWorkbook.Close 
      Exit Sub 
     End If 
    Next wb 
End Sub 

這其中尋找一個打開的工作簿命名Phone.xls或電話。 xlsx或..................

如果發現工作簿已關閉。