Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro para copiar de un archovo a otro

30/01/2004 - 22:52 por Israel R. | Informe spam
Ayuda Hacer una pregunta
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 debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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



.

Preguntas similares

 

Busqueda sugerida :