vba判斷工作簿是否已經開啟

步驟1/7

我們在vba的開發過程中需要檢測一個工作薄是否被開啟，這裡以檢測 為例

步驟2/7

開啟一個excel工作薄，點選開發工具->開啟開發的vbe環境，或使用alt + F11快捷鍵開啟VBE環境。

步驟3/7

在VBE的開發環境中插入一個工程

步驟4/7

然後在新開啟的模組環境中插入如下程式碼

Option Explicit

Sub WbIsOpenTwo()

Dim Wb As Workbook

Dim WbName As String

WbName = &#"

On Error GoTo line

Set Wb = books(WbName)

MsgBox "工作簿" & WbName & "已經被開啟!"

Exit Sub

line:

MsgBox "工作簿" & WbName & "沒有被開啟!"

End Sub

步驟5/7

此時關閉 ，然後點選執行按鈕 執行程式。

步驟6/7

彈出對話方塊 顯示工作薄沒有被開啟

步驟7/7

開啟 .重新執行程式。彈出對話方塊顯示工作薄已經開啟。