Consulta Macro para copiar el contenido de una carpeta
Publicado por Maximiliano Gordillo (1 intervención) el 14/09/2018 06:44:42
Buenas noche!
Mi consulta es la siguiente, yo tengo una Macro que poniéndole la dirección de la carpeta me trae por debajo los nombre de todo su contenido. Ahora bien, lo que necesito es por ejemplo:
Tengo en cada una de las Celdas A1, B1, C1, D1, etc.. una dirección de carpetas. Y lo que necesitaría es que la macro comience en la celda A1, me deje todos los nombres del contenido abajo y luego vaya a la celda B1 para volver a repetirse, hasta la celda que no contenga valor. (siempre leyendo direcciones en la fila A)
Dejo la Macro que tengo, para ver si me pueden dar una mano con la modificación que haya que hacerle:
Espero puedan ayudarme, Muchísimas Gracias.
Mi consulta es la siguiente, yo tengo una Macro que poniéndole la dirección de la carpeta me trae por debajo los nombre de todo su contenido. Ahora bien, lo que necesito es por ejemplo:
Tengo en cada una de las Celdas A1, B1, C1, D1, etc.. una dirección de carpetas. Y lo que necesitaría es que la macro comience en la celda A1, me deje todos los nombres del contenido abajo y luego vaya a la celda B1 para volver a repetirse, hasta la celda que no contenga valor. (siempre leyendo direcciones en la fila A)
Dejo la Macro que tengo, para ver si me pueden dar una mano con la modificación que haya que hacerle:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Contenido_Carpeta()
'Sección 1: Variables a utilizar en la macro
Dim carpeta, archivos As StringDim contador As Integer
'Sección 2: Lectura de carpeta y ajustes necesarios
carpeta = InputBox("Ingresa la ruta de la carpeta a importar:")
If carpeta = "" Then
Exit Sub
ElseIf Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If
'Sección 3: Preparación de variables
contador = 1archivos = Dir(carpeta, vbDirectory)
'Sección 4: Recorrido de la carpeta
Do While Len(carpeta) > 0
If carpeta = ".." Then
contador = contador - 1
Else
ActiveSheet.Cells(contador, 1).Value = carpeta
End If
carpeta = Dir()
contador = contador + 1
Loop
End Sub
Espero puedan ayudarme, Muchísimas Gracias.
Valora esta pregunta
0
