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

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



.

Respuesta 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.

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



.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida