¿Cómo abrir rápidamente todos los archivos de Excel de una carpeta?
En este artículo presento una macro que abre todos los libros de trabajo de una carpeta específica.
Abrir todos los libros de trabajo de una carpeta con VBA
Listar todos los nombres de archivo de una carpeta específica con Kutools para Excel 
Abrir todos los libros de trabajo de una carpeta con VBA
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en el script.
VBA: Abrir todos los Archivos de Excel de una carpeta
Sub OpenFiles()
'UpdateByExtendoffice20160623
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xFile = Dir(xStrPath & "\*.xlsx")
Do While xFile <> ""
Workbooks.Open xStrPath & "\" & xFile
xFile = Dir
Loop
End Sub
3. Pulse la tecla F5 y aparecerá un cuadro de diálogo para seleccionar la carpeta en la que desea abrir todos los libros de trabajo. Vea la captura de pantalla:
4. Haga clic en Aceptar y se abrirán todos los libros de trabajo de la carpeta especificada.
Listar todos los nombres de archivo de una carpeta específica con Kutools para Excel
Además de abrir archivos de una carpeta, ¿ha intentado alguna vez listar todos los nombres de archivo de una carpeta específica? Con la utilidad Kutools para Excel de Lista de Nombres de Archivos, podrá listar rápidamente todos los tipos o un tipo de archivo específico en una carpeta.
1. Haga clic en KUTOOLS PLUS > Importar/Exportar > Lista de Nombres de Archivos. Vea la captura de pantalla:
2. En el cuadro de diálogo Lista de Nombres de Archivos, seleccione la carpeta cuyos archivos desea listar, especifique el tipo de archivo que quiere incluir y, a continuación, indique la unidad del tamaño del archivo según sus necesidades. Si lo desea, puede añadir un hipervínculo a los nombres de archivo que se listarán. Vea la captura de pantalla:
3. Haga clic en Aceptar y todos los archivos de la carpeta especificada se listarán automáticamente en una hoja nueva del Libro de Trabajo actual. Vea la captura de pantalla:
Demostración: Listar todos los nombres de archivo de una carpeta mediante Kutools para Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos