如何應(yīng)用按鈕在Excel中打開另一個工作簿？

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

應(yīng)用按鈕以使用VBA代碼打開另一個工作簿

應(yīng)用按鈕以使用VBA代碼打開另一個工作簿

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

1。 點擊 插頁 > 形狀 > 長方形，請參見屏幕截圖：

2。 然后拖動鼠標(biāo)以繪制形狀按鈕，并根據(jù)需要設(shè)置其格式，請參見屏幕截圖：

3。 然后按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

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

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

Sub Openworkbook_Click()Updateby ExtendofficeDim xWb As WorkbookDim wbName As StringOn Error Resume NextSet xWb = Workbooks.Open("C:UsersDT168DesktoptestBook2.xlsx")wbName = xWb.NameIf Err.Number <> 0 ThenMsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"Err.ClearElseMsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"End IfEnd SubCopy

備注：在上面的代碼中，您應(yīng)該更改文件路徑和名稱 C： UsersDT168DesktoptestBook2.xlsx 到您要鏈接的工作簿的真實路徑。

5。 然后保存并關(guān)閉此代碼窗口，右鍵單擊您創(chuàng)建的形狀按鈕，選擇 分配宏 從上下文菜單中，彈出 分配宏 對話框，單擊宏名稱 打開工作簿_點擊 您已經(jīng)插入了，然后單擊 OK 按鈕，請參見屏幕截圖：

6。 現(xiàn)在，當(dāng)您單擊形狀按鈕時：

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

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

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel