Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ExcelExport(m_oDataTable, "C:\Dokumente und" & _
        "Einstellungen\user\Desktop\problem.xls", Trim(txtSheetName.Text), True)
    End Sub
 
Private Sub ExcelExport(ByVal oDataTable As DataTable, ByVal sPath As String, _
  ByVal sSheetname As String, ByVal bNewFile As Boolean) ', ByVal sNewFilename 
' As String)
        Dim iRowsTotal As Integer
        Dim iColsTotal As Integer
        Dim oExcelApp As Object
        oExcelApp = CreateObject("Excel.Application")
        System.Windows.Forms.Cursor.Current = _
          System.Windows.Forms.Cursors.WaitCursor
 
        Try
            If sPath = String.Empty Then
                Exit Sub
            End If
 
            'File erstellen
            If Not File.Exists(sPath) Then
                Dim fs As FileStream = File.Create(sPath)
                fs.Close()
            End If
 
            'Excel File öffnen
            oExcelApp.Workbooks.Open(Filename:=sPath, ReadOnly:=False, _
              Editable:=True)
 
            'Neues Tabellenblatt einfügen 
            oExcelApp.Worksheets.Add(After:=oExcelApp.Worksheets( _
              oExcelApp.Worksheets.Count)).Name = sSheetname
 
            If bNewFile Then
                'Alle bestehenden Tabellenblätter, mit Ausnahme des letzten 
                ' werden, gelöscht 
                For i As Integer = 1 To oExcelApp.Worksheets.Count - 1 'Index 
                ' beginnt bei 1
                    oExcelApp.Worksheets(i).Delete()
                Next
            End If
 
            'Excel wird nicht in der Taskleiste angezeigt
            oExcelApp.Visible = False
 
            'Columns und Rows werden gezählt
            iRowsTotal = oDataTable.Rows.Count - 1
            iColsTotal = oDataTable.Columns.Count - 1
 
 
            'Columns werden auf dem Excelsheet dargestellt...
            For i As Integer = 0 To iColsTotal
                oExcelApp.Cells(1, i + 1).Value = oDataTable.Columns(i).Caption
                pbExport.PerformStep()
            Next
 
            '... und auch die Rows
            For i As Integer = 0 To iRowsTotal - 1
                For j As Integer = 0 To iColsTotal - 1
                    oExcelApp.Cells(i + 2, j + 1).value = oDataTable.Rows( _
                      i).Item(j)
                Next j
                pbExport.PerformStep()
            Next i
 
            'Titelzeilen werden Fett formatmiert und Grösse auf 10 pt gesetzt
            oExcelApp.Rows("1:1").Font.FontStyle = "Bold"
            oExcelApp.Rows("1:1").Font.Size = 10
 
            'Spalten und Zellenbreiten werden automatisch angepasst
            oExcelApp.Cells.Columns.AutoFit()
            oExcelApp.Cells.Select()
            oExcelApp.Cells.EntireColumn.AutoFit()
 
            'Erste Zelle wird markiert
            oExcelApp.Cells(1, 1).Select()
 
 
            'Speichern
            oExcelApp.ActiveWorkbook.Save()
 
            'Excel wird nun angezeigt
            oExcelApp.Visible = True
 
        Catch ex As Exception
	    MessageBox.Show(ex.Message)
        Finally
            System.Windows.Forms.Cursor.Current = _
              System.Windows.Forms.Cursors.Default
            oExcelApp = Nothing
        End Try