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或Phone.xlsx或.........的打開的工作簿

如果找到，則關閉工作簿。