如何應用按鈕在Excel中打開另一個工作簿？

在工作表中，我們可以插入一個超鏈接來鏈接另一個工作簿，以便可以快速輕鬆地打開它。 但是，您是否曾經嘗試過創建一個按鈕以通過活動工作簿打開另一個工作簿？

應用按鈕以使用VBA代碼打開另一個工作簿

應用按鈕以使用VBA代碼打開另一個工作簿

在Excel中，我們可以插入一個形狀按鈕，然後將代碼鏈接到該按鈕。 您可以通過以下步驟解決此任務：

1。 點擊 插入 > 形狀 > 矩形，請參見屏幕截圖：

2。 然後拖動鼠標以繪製形狀按鈕，並根據需要設置其格式，請參見屏幕截圖：

3。 然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

4。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：打開一個特定的工作簿：

Sub Openworkbook_Click()
'Updateby Extendoffice
    Dim xWb As Workbook
    Dim wbName As String
    On Error Resume Next
    Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
    wbName = xWb.Name
    If Err.Number <> 0 Then
        MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
        Err.Clear
    Else
        MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
    End If
End Sub

備註：在上面的代碼中，您應該更改文件路徑和名稱 C：\ Users \ DT168 \ Desktop \ test \ Book2.xlsx 到您要鏈接的工作簿的真實路徑。

5。 然後保存並關閉此代碼窗口，右鍵單擊您創建的形狀按鈕，選擇 分配宏 從上下文菜單中，彈出 分配宏 對話框，單擊宏名稱 打開工作簿_點擊 您剛剛插入的內容，然後單擊 OK 按鈕，請參見屏幕截圖：

6。 現在，當您單擊形狀按鈕時：

（1.）如果工作簿不存在，則會出現以下提示框：

（2.）如果工作簿存在，它將立即打開，並彈出一個提示框提醒您：