CrystalReports Export Excel

Dim oApp, oRpt
vFilenameReport = UCase("C:\Customer Folders\Report Location\CrystalReport.rpt")
vFilenameExport = UCase("C:\Customer Folders\Output Destination\CrystalExport.xls")
  Set oApp =CreateObject("CrystalRuntime.Application")
  Set oRpt = oApp.OpenReport(vFilenameReport, 1)
  oRpt.DisplayProgressDialog = False
  oRpt.MorePrintEngineErrorMessages = False
  oRpt.EnableParameterPrompting = False
  oRpt.DiscardSavedData
  Set dbproperties = oRpt.Database.Tables.Item(1).ConnectionProperties
  dbproperties("User ID") = "DATABASE_USER"
  dbproperties("Password") = "DATABASE_PASS"
  oRpt.ExportOptions.DiskFileName = vFilenameExport
  oRpt.ExportOptions.FormatType = 36                  '36=>Excel
  oRpt.ExportOptions.DestinationType = 1              '1=>filesystem
  oRpt.ExportOptions.ExcelAreaType = 4                '4=>detail records determine column width
  oRpt.ExportOptions.ExcelUseConstantColumnWidth = False
  oRpt.ExportOptions.ExcelUseWorksheetFunctions = False
  oRpt.ExportOptions.ExcelExportImagesInDataOnly = False
  oRpt.ExportOptions.ExcelMaintainRelativeObjectPosition = False
  oRpt.ExportOptions.ExcelChopPageHeader = True
  oRpt.ExportOptions.ExcelUseFormatInDataOnly = True
  oRpt.ExportOptions.ExcelExportAllPages = True
  oRpt.ExportOptions.ExcelPageBreaks = False
  oRpt.Export(False)