Copiar archivos

Hola lbenaventea,

Por ejemplo asi:

' Para crear copia del archivo
Sub CopiarArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

' Para mover el archivo
Sub MoverArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
Kill Ruta1 & Archivo
End Sub


Saludos,
KL


"lbenaventea" wrote in message news:

Deseo saber cómo puedo copiar un archivo desde una carpeta a otra desde una
macro de Excel (tal como se copian desde Windows) . Ocurre que mi solución
actual -abrir un archivo y guardarlo con su nuevo nombre- es sumamente lenta
para archivos pesados (entre otras causas, porque el Excel los recalcula
antes de volver a guardarlos).

Estimado(a) KL:
Agradezco muchísimo la respuesta pero, en mi pregunta, me faltó decir que el
archivo copiado debe quedar con otro nombre... ¿Cómo se hace en este caso?
Atte.
Luis Benavente A.
Algo más: ¿es posible salir hacia Word con una macro de Excel (por ejemplo,
para copiar un texto desde un archivo Word a la hoja Excel activa)? Sólo
deseo saber si es posible.
Gracias




"KL" escribió:

Hola lbenaventea,

Por ejemplo asi:

' Para crear copia del archivo
Sub CopiarArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

' Para mover el archivo
Sub MoverArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
Kill Ruta1 & Archivo
End Sub


Saludos,
KL


"lbenaventea" wrote in message news:
> Deseo saber cómo puedo copiar un archivo desde una carpeta a otra desde una
> macro de Excel (tal como se copian desde Windows) . Ocurre que mi solución
> actual -abrir un archivo y guardarlo con su nuevo nombre- es sumamente lenta
> para archivos pesados (entre otras causas, porque el Excel los recalcula
> antes de volver a guardarlos).

Deseo ampliar mi pregunta: imagino que, con una única instrucción, puedo
copiar diversos archivos al mismo tiempo (todos desde una misma carpeta y
todos a otra única carpeta) pero cambiando los nombres.
Esto me servirá mucho para tomar los archivos del mes anterior (carpeta
marzo, por ejemplo) y copiarlos a la carpeta del mes actual (abril) para
seguir acumulando información.
Gracias

"lbenaventea" escribió:

Estimado(a) KL:
Agradezco muchísimo la respuesta pero, en mi pregunta, me faltó decir que el
archivo copiado debe quedar con otro nombre... ¿Cómo se hace en este caso?
Atte.
Luis Benavente A.
Algo más: ¿es posible salir hacia Word con una macro de Excel (por ejemplo,
para copiar un texto desde un archivo Word a la hoja Excel activa)? Sólo
deseo saber si es posible.
Gracias




"KL" escribió:

> Hola lbenaventea,
>
> Por ejemplo asi:
>
> ' Para crear copia del archivo
> Sub CopiarArchivo()
> Ruta1 = "C:\temp\"
> Ruta2 = "D:\perm\"
> Archivo = "Libro1.xls"
> FileCopy Ruta1 & Archivo, Ruta2 & Archivo
> End Sub
>
> ' Para mover el archivo
> Sub MoverArchivo()
> Ruta1 = "C:\temp\"
> Ruta2 = "D:\perm\"
> Archivo = "Libro1.xls"
> FileCopy Ruta1 & Archivo, Ruta2 & Archivo
> Kill Ruta1 & Archivo
> End Sub
>
>
> Saludos,
> KL
>
>
> "lbenaventea" wrote in message news:
> > Deseo saber cómo puedo copiar un archivo desde una carpeta a otra desde una
> > macro de Excel (tal como se copian desde Windows) . Ocurre que mi solución
> > actual -abrir un archivo y guardarlo con su nuevo nombre- es sumamente lenta
> > para archivos pesados (entre otras causas, porque el Excel los recalcula
> > antes de volver a guardarlos).
>

Ya amplié mi pregunta pero debo decir que intenté con la instrucción enviada
por KL y el sistema (que los us en inglés) no aceptó esas instrucciones...
También probé con:

FileSystemObject.CopyFile "C:\marzo\03 Datos.xls", "C:\abril\04 Datos.xls"

Y tampoco me resultó

Luis B.

"KL" escribió:

Hola lbenaventea,

Por ejemplo asi:

' Para crear copia del archivo
Sub CopiarArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

' Para mover el archivo
Sub MoverArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
Kill Ruta1 & Archivo
End Sub


Saludos,
KL


"lbenaventea" wrote in message news:
> Deseo saber cómo puedo copiar un archivo desde una carpeta a otra desde una
> macro de Excel (tal como se copian desde Windows) . Ocurre que mi solución
> actual -abrir un archivo y guardarlo con su nuevo nombre- es sumamente lenta
> para archivos pesados (entre otras causas, porque el Excel los recalcula
> antes de volver a guardarlos).

Aparece:
Se ha producido el error "424" en el tiempo de ejecución
Se requiere un objeto

Y con la instrucción sugerida por KL, simplemente todas las líneas de la
instrucción quedan en rojo (por lo demás, si todo lo hago en inglés, me llama
la atención eso de poner la palabra «Ruta»).

Gracias.

"Francisco MTY" escribió:

Podrias describir los errores que marca con cada intento.

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."