Macro en excel que liste archivos
Hola. Estoy intentando crear una macro en un libro de excel con la que consiga listar los archivos que se encuentran precisamente en la ubicación de este libro. Esta ubicación varía según el usuario que vaya a utilizar el excel. He escrito lo siguiente y no me funciona.
Sub ListaArchivos()
Dim myRow As Integer
Dim MyFile As String
Dim MiRuta As String
Lo siguiente borra la zona del libro donde se listarán los archivos y se activa la celda C7
Range("C7:C21").Select
Selection.ClearContents
Range("C7").Select
Cells.Clear
Establezco el valor 7 para iniciar el listado en esa ubicación, le doy el valor actual de la ubicación del libro a la ruta que debe seguir (no sé si aquí me estoy equivocando) y establezco el valor de MyFile según esa ruta.
myRow = 7
MiRuta = ThisWorkbook.Path
MyFile = Dir("MiRuta\*.*")
Do Until MyFile = ""
Cells(myRow, 3) = MyFile
myRow = myRow + 1
MyFile = Dir
Loop
End Sub
Más adelante, convierto este listado en hipervínculos para que el usuario pueda acceder a ellos y los utilizo para actualizar la información de los archivos listados en el libro de excel que estoy creando.
Si puedes responderme, me ayudarás a ganar tiempo. De todas formas, sigo intentándolo.
Un saludo
Sub ListaArchivos()
Dim myRow As Integer
Dim MyFile As String
Dim MiRuta As String
Lo siguiente borra la zona del libro donde se listarán los archivos y se activa la celda C7
Range("C7:C21").Select
Selection.ClearContents
Range("C7").Select
Cells.Clear
Establezco el valor 7 para iniciar el listado en esa ubicación, le doy el valor actual de la ubicación del libro a la ruta que debe seguir (no sé si aquí me estoy equivocando) y establezco el valor de MyFile según esa ruta.
myRow = 7
MiRuta = ThisWorkbook.Path
MyFile = Dir("MiRuta\*.*")
Do Until MyFile = ""
Cells(myRow, 3) = MyFile
myRow = myRow + 1
MyFile = Dir
Loop
End Sub
Más adelante, convierto este listado en hipervínculos para que el usuario pueda acceder a ellos y los utilizo para actualizar la información de los archivos listados en el libro de excel que estoy creando.
Si puedes responderme, me ayudarás a ganar tiempo. De todas formas, sigo intentándolo.
Un saludo
1 Respuesta
Respuesta de paramisolo
1