判断Excel工作簿文件是否被打开

工作场景中，可能有时处理数据之前，可能需要使用VBA先判断待处理的Excel文件是否已经被别人打开，如果打开，需要提示先关闭或代码强制关闭。

那如何判断工作簿已经被打开呢，有以下一些方法

方法1：

Const strFileName As String = "你的文件.xls"
Sub CheckFileIsOpen()
Dim xApp As Application
Set xApp = CreateObject("Excel.Application")
xApp.DisplayAlerts = False
On Error GoTo Error_Handler
xApp.Workbooks.Open Filename:=ThisWorkbook.Path & "" & strFileName, notify:=False, ReadOnly:=False
If xApp.ActiveWorkbook.ReadOnly = True Then
    MsgBox "文件已经被打开!"
Else
    MsgBox "文件未被打开!"
End If
GoTo Exit_Handler
Error_Handler:
    MsgBox "File is not exist"
Exit_Handler:
    xApp.Quit
End Sub

方法2：

        Dim wb As Workbook
        Set wb = GetObject("G:\测试工作簿.xlsx")
'        If wb.IsInplace = False Then
        If wb.ReadOnly = True Then
           MsgBox "指定的工作簿已经被打开了"
           wb.Close
           Set wb = Nothing
           Exit Sub
        Else
            wb.Close
            Set wb = Nothing
        End If

方法3:

Sub 判断文件是否已经打开()
    Dim x As Integer
    For x = 1 To Windows.Count
        If Windows(x).Caption = "test.xls" Then
            MsgBox "test文件已经打开了"
            Exit Sub
        Else
            MsgBox "test文件没有被打开！"
        End If
    Next
End Sub

方法4：

判断一个指定的工作簿文件是否打开
先将下面的VBA代码放到一个标准模块中，然后在需要的地方进行调用。
'如果目标工作簿已打开则返回TRUE，否则返回FALSE
Function IsWkLoaded(strWbName As String) As Boolean
 
 Dim i As Long

 For i = Workbooks.Count To 1 Step -1
  If Workbooks(i).Name = strWbName Then
    Exit For
  End If
 Next
 '如果工作簿未找到
 If i = 0 Then
   IsWkLoaded = False
 Else
   IsWkLoaded = True
 End If
End Function

调用示例如下，将“Book2.xls”换成指定的工作簿名称：

Sub 调用()
If IsWkLoaded("test.xls") Then
MsgBox "指定的工作簿已打开"
Else
MsgBox "指定的工作簿没有打开"
End If
End Sub