Macro en Excel

Buenas,
Necesito saber como copiar los archivos ".doc" de la carpeta "archivos" disco E de mi computador al disco C del mismo computador con una macro en excel. He tratado con FileCopy() y no he sido capaz, necesito pasar todos los archivos pero con file copy tengo que tener el nombre exacto del archivo, pero estos son muchos. He tratado utilizando el "*.doc" pero no me funciona ¿me pueden ayudar?
Gracias

1 Respuesta

Respuesta
1
Te dejo este código a ver si te sirve
Sub CopiaArchivos()
Dim Arch As String
Arch = Dir("E:\*.DOC")
Do Until Arch = ""
FileCopy "E:\" & Arch, "C:\" & Arch
Arch = Dir
Loop
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas