Apuntes Técnicos

Macro para salvar un reporte de Impromptu como un archivo de Excel sin formato

Introducción a las macros en Cognos

Cognos Script es la herramienta donde se puede automatizar las aplicaciones de Cognos, utiliza un lenguaje basado en BASIC y automatización OLE. Se pueden generar macros que corran reportes de Impromptu o Power Play o que construyan cubos por ejemplo. Casi cualquier cosa que un usuario puede hacer, se puede automatizar con macros.

Se puede dar de alta una macro en cierto reporte de Impromptu o PowerPlay y colocarla en un botón de la barra de herramientas para que realice cierta tarea específica que si el usuario la hiciera tardaría mas tiempo.

Se pueden utilizar lenguajes de macro tales como Visual Basic o Microsoft Excel para crear códigos que ejecuten ciertas tareas.

Código

Sub Main()

   'Declaración de variables
   Dim objImpApp as Object
   Dim objImpRep as Object

   'Se declara un objeto tipo Impromptu
   Set objImpApp = CreateObject("Impromptu.Application")
   'Se dice si se quiere que la aplicación este visible (1) o no (0)
   objImpApp.Visible True
   'Se declara una variable con la ubicación del reporte de Impromptu
   Set objImpRep = objImpApp.OpenReport("C:\REPORTE.IMR")
      'Se exporta el reporte de Impromptu a Excel
      objImpRep.ExportExcel "C:\REPORTE.XLS"
      'Se cierra el reporte de Impromptu
      objImpRep.CloseReport
   'Se sale de la aplicación
   objImpApp.Quit

   'Se cierran todos los objetos utilizados
   Set objImpRep = Nothing
   Set objImpApp = Nothing

End Sub

Si desea aprender mas sobre macros tenemos el curso de CognosScript Basics.

(Desarrollado por PROFIN México)

Para cualquier comentario acerca de este sitio web favor de dirigirse a webmaster@profinmexico.com