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

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas