Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.CrystalReports
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim CrReport As New CrystalReport
        CrReport.ReportSource = "C:\Test\Testbericht.rpt"
        Dim Optionen As New DiskFileDestinationOptions
        Optionen.DiskFileName = "c:\Test\Testexport.xls"
        With CrReport.ExportOptions
            .ExportFormatType = ExportFormatType.Excel
            .ExportDestinationType = ExportDestinationType.DiskFile
            .DestinationOptions = Optionen
        End With
        CrReport.Export()
 
    End Sub
End Class