Cognos Impromptu 7.4 - Excel Report

[jp92506]

I have a report that I need to run off of the scheduler and needs to be saved as an Excel file. I have created the following macro but it does seem to work. It will run with no errors but no data is being populated. Please advise as to why this may not be working.

Thanks You....
Joe

*******************************************************

Dim ImpAppObject as Object
Dim ImpRepObject as Object

Sub Main()

Set ImpAppObject = CreateObject("Impromptu.Application")
Set ImpAppObject = CreateObject("Impromptu.Application")
ImpAppObject.OpenCatalog "U:\Impromptu\Joe's UtiliNaviCatalog.cat", "SBDO", "qrep", "JOE", "PASSWORD"
Set ImpRepObject = ImpAppObject.OpenReport("U:\Impromptu\WUWorkOrders\WOTest040808.imr")
ImpRepObject.RetrieveAll
ExportAs=True
ExportType = "xls"
ExportFileName = "U:\Impromptu\ScheduledReports\WUTest.xls"
ImpRepObject.CloseReport
ImpAppObject.Quit
Set ImpRepObject = Nothing
Set ImpAppObject = Nothing

End Sub

 

[drlex]

Joe,
You're missing a command to save the file.
Add in the line
objImpRep.ExportExcelWithFormat ExportFileName
to your code before closing the report.

The lines
ExportAs=True
ExportType = "xls"
appear to be unnecessary.

Sub Main()

Set ImpAppObject = CreateObject("Impromptu.Application")
Set ImpAppObject = CreateObject("Impromptu.Application")
ImpAppObject.OpenCatalog "U:\Impromptu\Joe's UtiliNaviCatalog.cat", "SBDO", "qrep", "JOE", "PASSWORD"
Set ImpRepObject = ImpAppObject.OpenReport("U:\Impromptu\WUWorkOrders\WOTest040808.imr")
ImpRepObject.RetrieveAll
ExportAs=True
ExportType = "xls"
ExportFileName = "U:\Impromptu\ScheduledReports\WUTest.xls"
[b]objImpRep.ExportExcelWithFormat ExportFileName[/b]
ImpRepObject.CloseReport
ImpAppObject.Quit
Set ImpRepObject = Nothing
Set ImpAppObject = Nothing
  
End Sub

soi la, soi carré

 

[jp92506]

Thank you. That worked!!!