Macro para recorrer los Ficheros de un Carpeta
Necesito una macro para ir recorriendo todos los ficheros que tengo en una carpeta para abrir sólo los que necesito en cada momento.
¿Cómo podría hacerlo? Ya he sacado la ruta de la carpeta pero no se como ir recorriendo todos los workbooks.
Pensaba hacer algo así:
For each Workbook in ???
Next Workbook
¿Pero? No se que poner, tendría que definir un objeto application.. Pero no se como hacerlo, me corre bastante prisa.
¿Cómo podría hacerlo? Ya he sacado la ruta de la carpeta pero no se como ir recorriendo todos los workbooks.
Pensaba hacer algo así:
For each Workbook in ???
Next Workbook
¿Pero? No se que poner, tendría que definir un objeto application.. Pero no se como hacerlo, me corre bastante prisa.
2 respuestas
Respuesta de paramisolo
2
La macro es esta, cambia la ruta a tu necesidad:
Sub RepasarCarpeta()
'Sacamos los nombres de los archivos de la carpeta.
Dim strArchivoExcel As String
Dim strNombreCarpeta As String
Dim r As Range
Range("A1").Select
'carpeta a repasar
strNombreCarpeta = "C:\Macros"
'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
strArchivoExcel = Dir
Set r = ActiveCell
r.Value = strArchivoExcel
r.Offset(1, 0).Activate
Loop
End Sub
Esto lo pones en un libro en blanco ejecutas la macro y te pondrá el nombre de todos los libros de ese directorio, también podemos insertar unos hipervínculos para que desde ese mismo libro te abra el que tú quieras.
Es Esta la macro:
Sub HyperlinkChange()
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
NombreLibro = ActiveCell.Offset(0, -1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Macros\" + NombreLibro, TextToDisplay:= _
"Abrir"
ActiveCell.Offset(1, -1).Select
Loop
End Sub
Espero que haya servido.
>Un saludo
>Julio
*PD Puntúa y finaliza la consulta.
Sub RepasarCarpeta()
'Sacamos los nombres de los archivos de la carpeta.
Dim strArchivoExcel As String
Dim strNombreCarpeta As String
Dim r As Range
Range("A1").Select
'carpeta a repasar
strNombreCarpeta = "C:\Macros"
'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
strArchivoExcel = Dir
Set r = ActiveCell
r.Value = strArchivoExcel
r.Offset(1, 0).Activate
Loop
End Sub
Esto lo pones en un libro en blanco ejecutas la macro y te pondrá el nombre de todos los libros de ese directorio, también podemos insertar unos hipervínculos para que desde ese mismo libro te abra el que tú quieras.
Es Esta la macro:
Sub HyperlinkChange()
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
NombreLibro = ActiveCell.Offset(0, -1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Macros\" + NombreLibro, TextToDisplay:= _
"Abrir"
ActiveCell.Offset(1, -1).Select
Loop
End Sub
Espero que haya servido.
>Un saludo
>Julio
*PD Puntúa y finaliza la consulta.
