Export to Excel without Options window

[vetaldj]

Hi all, I have a problem. I need to export report to excel in background using JavaScript but it always brings export option window (not that one where you select format etc but next one). What to do to hide this window?

Set objCRApp = CreateObject("CrystalRunTime.Application")
set objCRRpt = objCRApp.openreport( rptfile )
objCRRpt.ParameterFields(1).SetCurrentValue CDbl(rep_week)

With objCRRpt
With .exportoptions
.formattype = 29
.ExcelExportAllPages = true
.diskfilename = exportfile
.destinationtype = 1
.UseReportDateFormat = True
.UseReportNumberFormat = True
End With
.export(False)
RetValue = exportfile
End With

Thanks!