I'm getting an annoying peice of code that refuses to work with me. I'm trying to save a simple report out to a .csv without any luck.
I'm getting Error: 440 Export destination file cannot be opened. The path is correct. I even tried just sending it to c:\ and still nothing. What could be the cause?
Dim objImpromptuApp as Object
Dim objImpromptuRep as Object
Set objImpromptuApp = CreateObject("CognosImpromptu.Application")
objImpromptuApp.Visible True
objImpromptuApp.OpenCatalog _
"F:\Reports\pkgsale.cat", _
C_BATCH_ID, _
C_BATCH_PW, _
C_BATCH_DB_ID , _
C_BATCH_DB_PW
Set objImpromptuRep = objImpromptuApp.OpenReport ("F:\Reports\Customer.imr",W8_Parm)
objImpromptuRep.Export "F:\Reports\Customer.csv", "x_ascii.flt"
objImpromptuRep.CloseReport
objImpromptuApp.CloseCatalog
Set objImpromptuApp = Nothing
Any suggestions? Thanks,
Mark Stewart
Senior Analyst
Consultants Club Corp.
Windsor, Ontario
Canada
I'm getting Error: 440 Export destination file cannot be opened. The path is correct. I even tried just sending it to c:\ and still nothing. What could be the cause?
Dim objImpromptuApp as Object
Dim objImpromptuRep as Object
Set objImpromptuApp = CreateObject("CognosImpromptu.Application")
objImpromptuApp.Visible True
objImpromptuApp.OpenCatalog _
"F:\Reports\pkgsale.cat", _
C_BATCH_ID, _
C_BATCH_PW, _
C_BATCH_DB_ID , _
C_BATCH_DB_PW
Set objImpromptuRep = objImpromptuApp.OpenReport ("F:\Reports\Customer.imr",W8_Parm)
objImpromptuRep.Export "F:\Reports\Customer.csv", "x_ascii.flt"
objImpromptuRep.CloseReport
objImpromptuApp.CloseCatalog
Set objImpromptuApp = Nothing
Any suggestions? Thanks,
Mark Stewart
Senior Analyst
Consultants Club Corp.
Windsor, Ontario
Canada