¿Cómo ejecutar una macro al mismo tiempo en varios archivos de libros de trabajo?
En este artículo, hablaré sobre cómo ejecutar una macro en varios archivos de libros de trabajo al mismo tiempo sin abrirlos. El siguiente método puede ayudarlo a resolver esta tarea en Excel.
Ejecute una macro al mismo en varios libros de trabajo con código VBA
Ejecute una macro al mismo en varios libros de trabajo con código VBA
Para ejecutar una macro en varios libros de trabajo sin abrirlos, aplique el siguiente código VBA:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código de VBA: ejecute la misma macro en varios libros de trabajo al mismo tiempo:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Note: En el código anterior, copie y pegue su propio código sin el Sub partida y End Sub pie de página entre el Con Workbooks.Open (xFdItem y xFileName) y End With guiones. Ver captura de pantalla:
3. Entonces presione F5 clave para ejecutar este código, y una Explorar se muestra la ventana, seleccione una carpeta que contenga los libros de trabajo que desea aplicar esta macro, vea la captura de pantalla:
4. Y luego haz clic OK , la macro deseada se ejecutará de una vez de un libro a otros.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!