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

打開 .重新運行程序。彈出對話框顯示工作薄已經打開。