como hago una macro que a su vez ejecute otras macros

12/09/2004 - 03:31 por Isaac García López | Informe spam
Tengo un problema, tengo una macro que ejecuta a su vez varias macros, que
es imprimir varias hojas, y que el usuario defina cual imprimir y cual dejar
de largo, esto funciona solamente cuando la ejecuto en el archivo original,
pero al cambiarle de nombre ya no funciona, existe alguna forma que ejecute
las macros aun cambiando el nombre del archivo que las contiene.

el archivo se llama informes "INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls"

anexo la macro, gracias por su valiosa ayuda.


'
' IMPRIMIR_TODO_DE_UNA_VEZ Macro
' Macro grabada el 9/11/2004 por ING. ISAAC GARCÍA LÓPEZ
'

'
Application.ScreenUpdating = False
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_ACUMULA_PORCENTAJE"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_ACUMULADO_MENSUAL"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_DX_ESTATICO"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_PARAMETROS_TECNICOS_DINA"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_PARAMETROS_TECNICOS_ESTA"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_INFO_UNO"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!imprimir_informe_escutia2"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_CRONOGRAMA_2"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_EFECTO_ASISTENCIA"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_EFECTO_ASISTENCIA_POR_PROD"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_INVENTARIOS"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_1"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_2"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_3"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_ORGANIZACION"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_reproduccion"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_ALIMENTACION"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_MANEJ001"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_MANEJ002"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO
2004-2005-ok.xls'!IMPRIMIR_GRAFICO_ADOPCION"
Range("D31").Select
Application.ScreenUpdating = True
End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
12/09/2004 - 09:35 | Informe spam
hola, Isaac !

... problema ... macro que ejecuta ... varias macros ... imprimir varias hojas
... que el usuario defina cual imprimir y cual dejar de largo
... funciona solamente cuando la ejecuto en el archivo original
... al cambiarle de nombre ya no funciona
... forma que ejecute las macros aun cambiando el nombre del archivo que las contiene.
... la macro [...]
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO 2004-2005-ok.xls'!IMPRIMIR_ACUMULA_PORCENTAJE"
Application.Run _
"'INFORMES DPAI 2003-2004 IGL CICLO 2004-2005-ok.xls'!IMPRIMIR_ACUMULADO_MENSUAL"
[... sigue el codigo -bastante-... 'repetitivo' ... ] :.((



1° con respecto de la instruccion que estas usando ->Application.Run<- [generalmente]...
- se utiliza para llamar/ejecutar procedimientos que se encuentran en un libro ->distinto<- del libro 'activo'
- al NO 'indicarle' [tambien] la ruta donde esta guardado 'ese' libro distinto del activo...
=>se supone que<= esta abierto EN LA SESION
2° [por lo anterior] NO es 'necesario' NI usar el 'Run' NI 'indicar' el nombre del libro [si se trata del 'activo']
'simplemente'... 'llama' a las otras macros
[cuando 'se terminen de ejecutar, el codigo -que las ha llamado- 'regresara' para continuar en la siguiente linea]

saludos,
hector.

p.d. solo para no 'agotar' el 'campo visual' de tu 'entorno'...
te 'sugiero' NO 'caer en el abuso' con el uso de [solo] mayusculas
[en ocasiones] es 'mejor' usar nombres 'cortos-significativos' que los 'totalmente descriptivos' :))
Respuesta Responder a este mensaje
#2 Isaac García López
12/09/2004 - 20:28 | Informe spam
Gracias Hector lo tomare muy en cuenta, soy algo nuevo en esto, saludos y te
deseo lo mejor hoy y siempre.

Isaac García

"Héctor Miguel" escribió en el mensaje
news:
hola, Isaac !

> ... problema ... macro que ejecuta ... varias macros ... imprimir varias


hojas
> ... que el usuario defina cual imprimir y cual dejar de largo
> ... funciona solamente cuando la ejecuto en el archivo original
> ... al cambiarle de nombre ya no funciona
> ... forma que ejecute las macros aun cambiando el nombre del archivo que


las contiene.
> ... la macro [...]
> Application.Run _
> "'INFORMES DPAI 2003-2004 IGL CICLO


2004-2005-ok.xls'!IMPRIMIR_ACUMULA_PORCENTAJE"
> Application.Run _
> "'INFORMES DPAI 2003-2004 IGL CICLO


2004-2005-ok.xls'!IMPRIMIR_ACUMULADO_MENSUAL"
> [... sigue el codigo -bastante-... 'repetitivo' ... ] :.((

1° con respecto de la instruccion que estas usando ->Application.Run<-


[generalmente]...
- se utiliza para llamar/ejecutar procedimientos que se encuentran en


un libro ->distinto<- del libro 'activo'
- al NO 'indicarle' [tambien] la ruta donde esta guardado 'ese' libro


distinto del activo...
=>se supone que<= esta abierto EN LA SESION
2° [por lo anterior] NO es 'necesario' NI usar el 'Run' NI 'indicar' el


nombre del libro [si se trata del 'activo']
'simplemente'... 'llama' a las otras macros
[cuando 'se terminen de ejecutar, el codigo -que las ha llamado-


'regresara' para continuar en la siguiente linea]

saludos,
hector.

p.d. solo para no 'agotar' el 'campo visual' de tu 'entorno'...
te 'sugiero' NO 'caer en el abuso' con el uso de [solo] mayusculas
[en ocasiones] es 'mejor' usar nombres 'cortos-significativos' que


los 'totalmente descriptivos' :))

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