如何列出所有打开的工作簿并在 Excel 中轻松切换工作簿？

Microsoft Excel 允许您同时打开多个工作簿，但要在所有打开的工作簿之间进行切换并不容易。因此，您可能希望将所有打开的工作簿列在一个列表中，以便在 Excel 中轻松切换这些工作簿。本文将向您展示如何列出所有打开的工作簿，以便在 Excel 中轻松导航。

只需使用 VBA 列出所有打开的工作簿
使用 VBA 列出所有打开的工作簿并轻松切换到某个工作簿
使用一个出色的工具列出所有打开的工作簿并轻松切换到某个工作簿

只需使用 VBA 列出所有打开的工作簿

在本节中，您将学习如何使用 VBA 代码在 Excel 中列出所有打开的工作簿。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。在 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 的 导航窗格，所有打开的工作簿都会自动列在一个窗格中，供您轻松在所有打开的工作簿之间导航。您只需点击其中一个打开的工作簿，它就会立即导航到该工作簿。