VBA判断Excel文件已经打开

答案:2 悬赏:70 手机版

解决时间 2021-11-26 20:19

提问者网友：风月客
2021-11-26 04:06

VBA判断Excel文件已经打开

最佳答案

五星知识达人网友：冷風如刀
2021-11-26 04:42

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

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

全部回答

1楼网友：枭雄戏美人
2021-11-26 05:11

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息