CrystalReports Xlsx出力方法

CrystalReportsでエクセル出力をしたいと考えています。

現在のコードではxlsしか出力できない為、xlsxでも出力可能なように変更をしたいです。

sfdSaveDialog.Filterの指定をxlsxに変えてみたりしましたが、ダメでしたのでご教授お願いします。

以下既存ソース例

    'ファイル形式、ディレクトリ、ファイル名の指定
    Dim strCurrentPath As String = Nothing
    Dim sfdSaveDialog As New SaveFileDialog()

    Try

        'カレントパスが移動してしまうため対処
        strCurrentPath = Directory.GetCurrentDirectory()


        ' ファイル選択
        sfdSaveDialog.InitialDirectory = Application.StartupPath
        sfdSaveDialog.Filter = "Excel 97-2003 ブック（*.xls）|*.xls"
        sfdSaveDialog.FileName = strNames

        If sfdSaveDialog.ShowDialog() <> Windows.Forms.DialogResult.OK Then
            Return
        End If


        ' 変数を宣言し、エクスポート オプションを取得します。
        Dim exportOpts As New ExportOptions()
        Dim diskOpts As New DiskFileDestinationOptions()
        Dim excelFormatOpts As New ExcelFormatOptions()


        Dim crExcel As ReportClass = crSource '出力Reports
        crExcel.SetDataSource(dsExports) '出力対象のDataSet
        exportOpts = crExcel.ExportOptions

        ' Excel 形式のオプションを設定します。
        excelFormatOpts.ExcelTabHasColumnHeadings = True

        exportOpts.ExportFormatType = ExportFormatType.Excel
        exportOpts.FormatOptions = excelFormatOpts

        exportOpts.ExportDestinationType = ExportDestinationType.DiskFile


        ' ディスク ファイルのオプションを設定します。
        diskOpts.DiskFileName = sfdSaveDialog.FileName
        exportOpts.DestinationOptions = diskOpts

        crExcel.Export()