如何在 Excel 中列出所有已開啟的活頁簿並輕鬆切換？

Microsoft Excel 允許您同時開啟多個活頁簿，但要在所有已開啟的活頁簿間切換卻不太方便。因此，您或許會希望將所有開啟的活頁簿列成清單，以便在 Excel 中輕鬆切換。本文將教您如何列出所有已開啟的活頁簿，讓您在 Excel 中快速導覽更得心應手。

僅使用 VBA 列出所有開啟的活頁簿
使用 VBA 列出所有開啟的活頁簿並輕鬆切換至指定活頁簿
使用強大工具列出所有開啟的活頁簿並輕鬆切換至指定活頁簿

僅使用 VBA 列出所有開啟的活頁簿

本節將教您如何運用 VBA 程式碼，在 Excel 中列出所有已開啟的活頁簿。

1. 按下 Alt+F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗；接著在該視窗中，點選插入> 模組。

2. 接著將下方的 VBA 程式碼複製並貼上至程式碼編輯器中。

VBA：在 Excel 中列出所有開啟的工作簿名稱

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. 按下 F5 鍵執行 VBA 程式碼。在 KutoolsforExcel 對話方塊中，指定一個儲存格用來放置工作簿列表，再點擊確定按鈕。請參閱截圖：

接著，所有開啟的活頁簿及其對應的工作表都會被列出。

覺得 VBA 程式碼難以操作嗎？透過第三種方法，只需點擊幾下就能輕鬆搞定！

使用 VBA 列出所有開啟的活頁簿並輕鬆切換至指定活頁簿

若您希望列出所有活頁簿以便輕鬆切換，請嘗試使用以下 VBA 程式碼：

1. 按下 Alt+F11，開啟 Microsoft Visual Basic for Applications 視窗。在 Microsoft Visual Basic for Applications 視窗中，點選插入＞ 模組。

2. 將下列 VBA 程式碼複製並貼上至開啟的模組視窗中。

VBA 程式碼：列出所有開啟的活頁簿並切換至指定活頁簿

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. 按下 F5 鍵執行程式碼，隨即彈出 KutoolsforExcel 對話方塊，內含所有已開啟的活頁簿清單。若要切換至特定活頁簿，請在方塊中輸入該活頁簿名稱，再點選確定按鈕。請參閱截圖：

使用強大工具列出所有開啟的活頁簿並輕鬆切換至指定活頁簿

透過導航的 Kutools for Excel，所有已開啟的活頁簿將自動顯示於窗格中，讓您輕鬆切換、暢行無阻！只需點選任一活頁簿，即可立即切換至該檔案。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……