Macro Question

[Swathi37]

Hi All

I have a question regarding Macro.

Is it possible to run 8 .imr reports by using a single macro and save it as a .csv file.
Each report has more than a million records that needs to be converted to csv file.
Do you have the code?


Thanks for your help
Regards
Swathi.

 

[goatnorm]

Here is what I've got.
ImpDoc(n,2)
ImpDoc(1,1) = "report name"
Impdoc(1,2) = "Catalog name"
...
ImpDoc(n,1) = "report name"
Impdoc(n,2) = "Catalog name"

Set ImpApp = CreateObject("CognosImpromptu.Application&quot
ImpApp.Visible 1

for j = 1 to n

ImpApp.OpenCatalog (ImpCatPath & ImpDoc(j,2) ), "*****", "*****",
Set ImpRep = ImpApp.OpenReport (ImpRepPath & ImpDoc(j, 1) & ".imr&quot
ImpRep.Visible 1
ImpRep.RetrieveAll
ImpRep.ExportASCII(PDFSaveFolderName & ImpDoc(j, 1)& ".csv&quot,0

ImpRep.CloseReport
Set ImpRep = Nothing
Set PDFPub = Nothing
ImpApp.CloseCatalog

next j

ImpApp.Quit
Set ImpApp = Nothing


End Sub

 

[Swathi37]

goatnorm,

Thank you so much.

Swathi