Imports Infragistics.Windows.DataPresenter.ExcelExporter
Imports Infragistics.Documents.Excel
...
Dim exporter As New DataPresenterExcelExporter()
Dim options As New ExportOptions With {.ExcludeSortOrder = True}
exporter.Export(Me.xamDataPresenter1, "xamDataPresenter1.xls", WorkbookFormat.Excel97To2003, options)
...