Modificar macro que lee nombre de archivos en carpeta
Tengo el siguiente código que me lee los archivos de alguna ruta y me los pasa a excel en dterminada fila, yo necesito que no me pida la ruta, que ya sea una ruta en el código por defecto, ¿cómo podría hacer ese cambio?
Anexo código:
Sub Contenido_carpeta()
Dim carpeta, archivos As String
Dim Contador As Integer
carpeta = InputBox("Ingresa la ruta de la carpeta a importar")
If carpeta = "" Then
Exit Sub
ElseIf Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If
Contador = 1
archivos = Dir(carpeta)
Do While Len(archivos) > 0
ActiveSheet.Cells(Contador, 1).Value = archivos
archivos = Dir()
Contador = Contador + 1
Loop
End Sub
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Quedaría así, cambia "C:\trabajo\", por la ruta que quieras.
Sub Contenido_carpeta() Dim carpeta, archivos As String Dim Contador As Integer carpeta = "C:\trabajo\" If carpeta = "" Then Exit Sub ElseIf Right(carpeta, 1) <> "\" Then carpeta = carpeta & "\" End If Contador = 1 archivos = Dir(carpeta) Do While Len(archivos) > 0 ActiveSheet.Cells(Contador, 1).Value = archivos archivos = Dir() Contador = Contador + 1 Loop End Sub
