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或..................

的打开工作簿

如果发现工作簿已关闭。