送人玫瑰，手有余香，請將文章分享給更多朋友

動手操作是熟練掌握EXCEL的最快捷途徑！

【置頂公眾號】或者【設為星標】及時接收更新不迷路

小伙伴們，在實際工作中有時候需要來判斷一個工作簿是否已經打開，以及操作判斷后的后續(xù)操作。這個任務使用VBA方法可以輕松的完成。甚至，還可以將代碼封裝為函數，在以后需要使用時可以隨時調出使用。

今天這篇帖子，將介紹兩種最為常用的判斷方法。

遍歷法

判斷工作簿是否打開，其實只需要循環(huán)判斷工作簿的名稱是否等于指定的名稱。

完整代碼如下：

Sub 判定工作簿是打開()    Dim 工作簿名稱 As String, wbk As Workbook    Dim isopen As String    isopen = "未打開"    工作簿名稱 = "ABC.xlsx"    For Each wbk In Workbooks        If wbk.Name = 工作簿名稱 Then            isopen = "打開"        End If    Next    MsgBox (工作簿名稱 & " " & isopen)    End Sub

第6-10行代碼：對于工作簿集合中的每一個打開的工作簿，只要其名稱等于指定的名稱“ABC.xlsx”，就對變量isopen賦值“打開”。

錯誤判斷

利用錯誤判斷法，不需要遍歷當前應用程序中全部工作簿即可實現判斷工作簿是否已經打開。

完整代碼如下：

Dim wbkname As StringFunction WBKopen(wbkname) As Boolean    Dim wbk As Workbook    Dim isopen As Boolean    On Error Resume Next    Err.Clear    Set wbk = Workbooks(wbkname)    If Err.Number = 0 Then        isopen = True    Else        isopen = False    End If    WBKopen = isopenEnd Function
Sub 判定工作簿是打開1()    wbkname = "ABC.xlsx"    If WBKopen(wbkname) Then        MsgBox (wbkname & "已打開")    Else        MsgBox (wbkname & "未打開")    End IfEnd Sub

第2-14行代碼：首先做了一個簡單函數封裝。當第8行代碼中錯誤值的編號等于0時，表明這張工作簿是打開的狀態(tài)。并根據Err.number的值來對變量isopen分別賦值。

第16-22行代碼：判斷工作簿是否打開，并通過消息框輸出信息。

事際上，我們不可能判斷后僅僅將結果傳遞給Msgbox。事際工作中還可以分別用2組不同的代碼來替代Msgbox，一組執(zhí)行打開時的后續(xù)操作；另一組執(zhí)行未打開時的后續(xù)操作。

本期內容練習文件提取方式：

鏈接：https://pan.baidu.com/s/1F_lFKSFzgfYYwBstn7QMKQ?pwd=gpul

提取碼：gpul