daheads blog²

Da ich heute ein DataTable möglichst schnell und einfach als Bericht brauchte, habe ich nach einer Möglichkeit gesucht, dieses DataTable nach Excel zu exportieren.

Irgendwo im Internet habe ich dann folgenen, leicht abgeänderten Schnipsel entdeckt (die Quelle weiß ich leider nicht mehr).

Da ich das sicherlich noch häufiger brauche und andere eventuell auch, poste ich den Code mal hier.

Als Referenz muss das Excel COM Objekt zu den Projekt Referenzen hinzugefügt werden.

''' <summary>
  ''' Export a DataTable into an Excel Datasheet
  ''' </summary>
  ''' <param name="aDataTable"></param>
  ''' <param name="aOutputFilename"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, 
ByVal aOutputFilename As String) As Boolean
 
    Dim app As New Excel.ApplicationClass
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
 
    wb = app.Workbooks.Add()
    ws = wb.ActiveSheet()
 
    Dim dc As DataColumn
    Dim dr As DataRow
    Dim colIndex As Integer
    Dim rowIndex As Integer
 
    ' Columns erstellen
    For Each dc In aDataTable.Columns
      colIndex += 1
      app.Cells(1, colIndex) = dc.ColumnName
    Next
 
    ' Rows hinzufügen
    For Each dr In dt.Rows
      rowIndex += 1
      colIndex = 0
      For Each dc In aDataTable.Columns
        colIndex += 1
        app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
      Next
    Next
 
    ws.Columns.AutoFit()
 
    wb.SaveAs(aOutputFilename)
 
    wb.Close()
    app.Quit()
 
    wp = nothing
    System.Runtime.InteropServices.Marshal.ReleaseComObject(wp)
    app = nothing
    System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
 
    GC.Collect()
    GC.WaitForPendingFinalizers()
 
    Return True
  End Function

Update am 01.12.2009:

Da ich immer häufiger auf die obigen Funktionen zugreife, habe ich meine Klasse ExcelTools mittlerweile etwas ergänzt. Wer möchte, kann sich den Quellcode hier herunter laden.