Macro para copiar de un archovo a otro

30/01/2004 - 22:52 por Israel R. | Informe spam

Hola a todos:

Tengo un problema con un macro que copia celdas de un archivo que siempre se
llama igual "File_A" a otro que siempre cambia y por ejemplo cada que el
archivo "Rep_Ene" lo copio como "Rep_Feb" tengo que corregir el código.

¿hay alguna forma que tome al nombre del archivo desde el cual se ejecuto la
Macro para que no sea necesario corregir el codigo cada que copio el archivo
con un nombre nuevo?

Workbooks.Open Filename:= _
"C:\Mis documentos\Fele_A.xls"
Range("A1:B5").Select
Selection.Copy
Windows("Reporte_Ene.xls").Activate
Range("D30").Select
ActiveSheet.Paste

Gracias por su atención...

Israel

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 David

31/01/2004 - 00:33 | Informe spam

Hola, Israel.

Es fácil. Sólo tenés que incluir en el código de tu macro
una línea como esta:

NombreLibro = ActiveWorkbook.Name

Luego, en los lugares donde sea necesario, ponés la
variable NombreLibro en lugar del nombre que siempre tenés
que modificar, y listo. Ya te funciona.

Saludos.

Hola a todos:

Tengo un problema con un macro que copia celdas de un

archivo que siempre se

llama igual "File_A" a otro que siempre cambia y por

ejemplo cada que el

archivo "Rep_Ene" lo copio como "Rep_Feb" tengo que

corregir el código.

¿hay alguna forma que tome al nombre del archivo desde el

cual se ejecuto la

Macro para que no sea necesario corregir el codigo cada

que copio el archivo

con un nombre nuevo?

Workbooks.Open Filename:= _
"C:\Mis documentos\Fele_A.xls"
Range("A1:B5").Select
Selection.Copy
Windows("Reporte_Ene.xls").Activate
Range("D30").Select
ActiveSheet.Paste

Gracias por su atención...

Israel

.

Responder a este mensaje

#2 Israel R.

02/02/2004 - 19:33 | Informe spam

Gracias David, ya funciona bien

fue de gran utlidad..

Saludos

"David" escribió en el mensaje
news:790701c3e789$88c1bd80$
Hola, Israel.

Es fácil. Sólo tenés que incluir en el código de tu macro
una línea como esta:

NombreLibro = ActiveWorkbook.Name

Luego, en los lugares donde sea necesario, ponés la
variable NombreLibro en lugar del nombre que siempre tenés
que modificar, y listo. Ya te funciona.

Saludos.