检测Excel工作簿是否已打开

Question

在VBA中，我以编程方式打开了一个名为“myWork.XL”的MSExcel文件。

现在，我想要一个可以告诉我它的状态的代码-不管它是否是开放的。比如说IsWorkBookOpened("myWork.XL) ?

检测Excel工作簿是否已打开

Answer 1

试试这个：Option ExplicitSub Sample()     Dim Ret     Ret = IsWorkBookOpen("C:\myWork.xlsx")     If Ret = True Then         MsgBox "File is open"     Else         MsgBox "File is Closed"     End IfEnd SubFunction IsWorkBookOpen(FileName As String)     Dim ff As Long, ErrNo As Long     On Error Resume Next     ff = FreeFile()     Open FileName For Input Lock Read As #ff     Close ff     ErrNo = Err    On Error GoTo 0     Select Case ErrNo    Case 0:    IsWorkBookOpen = False     Case 70:   IsWorkBookOpen = True     Case Else: Error ErrNo    End SelectEnd Function

Answer 2

如果它打开，它将在工作簿集合中：Function BookOpen(strBookName As String) As Boolean     Dim oBk As Workbook    On Error Resume Next     Set oBk = Workbooks(strBookName)     On Error GoTo 0     If oBk Is Nothing Then         BookOpen = False     Else         BookOpen = True     End IfEnd FunctionSub testbook()     Dim strBookName As String     strBookName = "myWork.xls"     If BookOpen(strBookName) Then         MsgBox strBookName & " is open", vbOKOnly + vbInformation    Else         MsgBox strBookName & " is NOT open", vbOKOnly + vbExclamation    End IfEnd Sub