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或.........的打开的工作簿

如果找到，则关闭工作簿。