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

動(dòng)手操作是熟練掌握EXCEL的最快捷途徑！

【置頂公眾號(hào)】或者【設(shè)為星標(biāo)】及時(shí)接收更新不迷路

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

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

遍歷法

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

完整代碼如下：

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

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

錯(cuò)誤判斷

利用錯(cuò)誤判斷法，不需要遍歷當(dāng)前應(yīng)用程序中全部工作簿即可實(shí)現(xiàn)判斷工作簿是否已經(jīng)打開(kāi)。

完整代碼如下：

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 判定工作簿是打開(kāi)1()    wbkname = "ABC.xlsx"    If WBKopen(wbkname) Then        MsgBox (wbkname & "已打開(kāi)")    Else        MsgBox (wbkname & "未打開(kāi)")    End IfEnd Sub

第2-14行代碼：首先做了一個(gè)簡(jiǎn)單函數(shù)封裝。當(dāng)?shù)?行代碼中錯(cuò)誤值的編號(hào)等于0時(shí)，表明這張工作簿是打開(kāi)的狀態(tài)。并根據(jù)Err.number的值來(lái)對(duì)變量isopen分別賦值。

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

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

本期內(nèi)容練習(xí)文件提取方式：

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

提取碼：gpul