¿Cómo listar todos los libros de trabajo abiertos y cambiar fácilmente entre ellos en Excel?

Microsoft Excel te permite abrir varios libros de trabajo al mismo tiempo, pero no es fácil cambiar entre todos los libros abiertos. Por lo tanto, puede que quieras listar todos los libros de trabajo abiertos en una lista para cambiar fácilmente entre esos libros en Excel. En este artículo, te mostraremos cómo listar todos los libros de trabajo abiertos para navegar fácilmente en Excel.

Simplemente lista todos los libros de trabajo abiertos con VBA
Lista todos los libros de trabajo abiertos y cambia a un libro fácilmente con VBA
Lista todos los libros de trabajo abiertos y cambia fácilmente a un libro con una herramienta increíble

Simplemente lista todos los libros de trabajo abiertos con VBA

En esta sección, aprenderás cómo usar un código VBA para listar todos los libros de trabajo abiertos en Excel.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo.

2. Luego copia y pega el siguiente código VBA en el editor de código.

VBA: lista todos los nombres de los libros de trabajo abiertos en 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. Ejecuta el código VBA presionando la tecla F5. En el cuadro de diálogo KutoolsforExcel, especifica una celda para colocar la lista de libros de trabajo y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego, se enumeran todos los libros de trabajo abiertos con sus hojas de cálculo correspondientes.

¿Es difícil manejar el código VBA? Puedes lograrlo a través del tercer método con unos clics.

Lista todos los libros de trabajo abiertos y cambia fácilmente a un libro con VBA

Si quieres listar todos los libros de trabajo para cambiar fácilmente entre ellos, intenta usar el siguiente VBA:

1. Presiona Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo.

2. Copia y pega el siguiente código VBA en la ventana del módulo abierto.

Código VBA: lista todos los libros de trabajo abiertos y cambia a un libro

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. Presiona la tecla F5 para ejecutar el código. Luego aparecerá un cuadro de diálogo de KutoolsforExcel con una lista de todos los libros de trabajo abiertos. Si deseas cambiar a un libro específico, ingresa el nombre de ese libro en el cuadro y haz clic en el botón Aceptar. Ver captura de pantalla:

Lista todos los libros de trabajo abiertos y cambia fácilmente a un libro con una herramienta increíble

Con el panel de Navegación de Kutools para Excel, todos los libros de trabajo abiertos se listarán automáticamente dentro de un panel para que puedas navegar fácilmente entre todos los libros abiertos. Solo necesitas hacer clic en uno de los libros abiertos y navegará inmediatamente hacia ese libro.