Apuntes Técnicos

Macro para salvar un reporte de Impromptu como un archivo de Excel con 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 manda ejecutar un archivo .BAT para que borre el archivo de Excel anteriormente creado
   'No hay problema si el archivo no existe
   'El bat tendrá de instrucción: DEL C:\REPORTE.XLS
   Shell ("C:\ARCHIVO_LOTES.BAT")

   'Se declara un objeto tipo Impromptu
   Set objImpApp = CreateObject("CognosImpromptu.Application")
   'Se abre el catálogo especificando su ubicación y su usuario
   objImpApp.OpenCatalog "C:\CATALOGO.CAT", "Creator"
   'Se declara una variable con la ubicación del reporte de Impromptu
   Set objImpRep = objImpApp.OpenReport("C:\REPORTE.IMR")
   'Se dice si se quiere que la aplicación este visible (1) o no (0)
      objImpRep.Visible True
      'Se activa la aplicación de Impromptu con el reporte abierto
      AppActivate "Impromptu - [REPORTE.IMR]"
      'Se le mandan a las aplicaciones las teclas que hacen la función de guardar como
      'archivo de excel con formato
      SendKeys "%F",1
      SendKeys "A",1
      SendKeys "{TAB}",1
      SendKeys "{DOWN 8}",1
      SendKeys "{ENTER 2}",1
   '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