VBA判断Excel文件已经打开

VBA判断Excel文件已经打开

可以切换、也可以不切换直接操作，切换的语句：
WorkBooks("B.xlsx").Activate

直接操作的语句：
WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")=123
me.Range("F5") = WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")来自：求助得到的回答

Sub aa()
    Dim curBK As Workbook
    Dim fromBk As Workbook
    Dim bk As Workbook
    Set curBK = ThisWorkbook    '把当前工作薄赋值给一个对象变量
    For Each bk In Application.Workbooks
        If bk.Name = "B.xlsx" Then
            Set fromBk = bk
            Exit For
        End If
    Next
    If fromBk Is Nothing Then
        MsgBox "B.xlsx没有在当前EXCEL进程中打开"  '如果B文件没有打开则退出程序
        Exit Sub
    End If
    '如果B文件已经打开，直接进行操作
    curBK.Worksheets("A文件中的A工作表").Range("A1") = fromBk.Worksheets("B文件中的B工作表").Range("A1")
End Sub