跳到主要內容

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

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

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


箭頭藍色右氣泡 應用按鈕以使用VBA代碼打開另一個工作簿

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

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

doc按鈕打開工作簿1

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

doc按鈕打開工作簿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 按鈕,請參見屏幕截圖:

doc按鈕打開工作簿3

6。 現在,當您單擊形狀按鈕時:

(1.)如果工作簿不存在,則會出現以下提示框:

doc按鈕打開工作簿4

(2.)如果工作簿存在,它將立即打開,並彈出一個提示框提醒您:

doc按鈕打開工作簿5

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I keep on receiving this workbook does exist whilst I input the correct file path and name to the real path of the workbook?
This comment was minimized by the moderator on the site
Thank you so much. I'm from Venezuela, I needed a cod that works and this works excellently well. Regards...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations