how to export to an excel format on vb.net?

Hi, You can help me to export a report of crystal reports to an excel format in data only ... I already managed to export it to a pdf format and if I do the function but when I change the output parameters for export to Excel marks me error. I show my code

Dim reportPath As String = _crRepDocPrint.FilePath



    Dim fileName As String = String.Format("{0}.xls", _nameexc)

    _cryRpt.Load(reportPath)
    CrvVisor.ReportSource = _cryRpt
    CrvVisor.Refresh()

    Try
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As New  _
        DiskFileDestinationOptions
        'Dim crFormatTypeOptions As New PdfRtfWordFormatOptions
        Dim crFormatTypeOptions As New ExcelDataOnlyFormatOptions
        'Dim crFormatTypeOptions As New ExcelDataOnlyFormatOptions
        If DestinoEXC.Length > 0 Then
            'crDiskFileDestinationOptions.DiskFileName = DestinoEXC & 
                                                        NamePDF & fileName
            crDiskFileDestinationOptions.DiskFileName = DestinoEXC & 
                                                               fileName
        Else
            crDiskFileDestinationOptions.DiskFileName = "" & fileName
        End If

        crExportOptions = _cryRpt.ExportOptions
        With crExportOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
            .DestinationOptions = crDiskFileDestinationOptions
            .FormatOptions = crFormatTypeOptions
        End With
        _cryRpt.Export()
    Catch ex As Exception
        MsgBox(ex.ToString)

    End Try