如何在 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. 然後保存並關閉此程式碼視窗，右鍵點擊您創建的形狀按鈕，從上下文選單中選擇 指派巨集，在彈出的指派巨集對話框中，點擊剛才插入的巨集名稱 Openworkbook_Click，然後點擊 確定 按鈕，請參閱截圖：

6. 現在，當您點擊形狀按鈕時：

(1.) 如果工作簿不存在，您將收到以下提示框：

(2.) 如果工作簿存在，它將立即被開啟，並且會彈出一個提示框提醒您：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！