Einführung in Windows Forms

Windows Forms ist eine grundlegende Bibliothek für grafische Benutzeroberflächen (GUI) in Microsofts .NET Framework, die für die Erstellung robuster Desktop-Anwendungen mit reichhaltigen, interaktiven Benutzererfahrungen entwickelt wurde. Als zentraler Bestandteil des .NET-Ökosystems bietet Windows Forms Entwicklern eine umfassende Reihe von Steuerelementen, darunter das vielseitige DataGridView-Steuerelement, das häufig für die Anzeige, Bearbeitung und Verwaltung von Daten in einem Tabellenformat verwendet wird.

Eine der häufigsten Anforderungen in Windows Forms-Anwendungen ist die Möglichkeit, Daten aus dem DataGridView-Steuerelement in externe Dateiformate zu exportieren, z. B. Excel-Dateien (xlsx) oder CSV-Dateien. Diese Funktionen sind für Szenarien wie Berichte, Datenanalysen und die gemeinsame Nutzung von Informationen mit anderen Systemen oder Benutzern unerlässlich. Ganz gleich, ob Sie mit einem kleinen Datensatz oder einer großen Tabelle aus einer Datenbank arbeiten, eine zuverlässige Methode zum Exportieren Ihrer Daten kann die Benutzerfreundlichkeit und den Wert Ihrer Anwendung erheblich steigern.

Es gibt mehrere Ansätze für den Export von DataGridView-Daten in Windows Forms. Traditionelle Methoden beinhalten oft die Microsoft Office-Automatisierung, bei der Entwickler das Excel-Anwendungsobjekt verwenden, um eine neue Arbeitsmappe zu erstellen, ein Arbeitsblatt hinzuzufügen und jede Zeile und Spalte aus der DataGridView programmatisch in die Excel-Datei zu schreiben. Diese Methode bietet eine detaillierte Kontrolle über die Ausgabe und ermöglicht es Ihnen, die Kopfzeile, die Spaltenüberschriften und die Zellformatierung anzupassen. Allerdings muss Microsoft Office auf dem Zielcomputer installiert sein, was bei einigen Einsätzen eine Einschränkung darstellen kann.

Alternativ dazu bieten moderne Bibliotheken von Drittanbietern wie ClosedXML, Syncfusion oder IronXL (wie in diesem Artikel beschrieben) optimierte APIs für den Export von Daten in Excel-Dateien, ohne dass Microsoft Office erforderlich ist. Diese Bibliotheken vereinfachen den Prozess und ermöglichen es Entwicklern, schnell XLSX-Dateien mit benutzerdefinierter Formatierung, gestylten Kopfzeilen und korrekt eingegebenen Spalten zu erstellen. Außerdem bieten sie in der Regel eine bessere Leistung und eine einfachere Bereitstellung, insbesondere in Server- oder Cloud-Umgebungen, in denen Office möglicherweise nicht verfügbar ist.

Wie können Entwickler das Projekt einrichten und die Bibliothek installieren?

Bevor Sie den Exportcode schreiben, richten Sie ein VB.NET Windows Forms-Projekt in Visual Studio ein. Dieses Tutorial zielt auf .NET 8, obwohl IronXL .NET Framework 4.6.2 und alle modernen .NET-Versionen unterstützt. Beachten Sie, dass dieser Ansatz für Anwendungen funktioniert, die ursprünglich in VB.NET 2010 oder später erstellt wurden.

Install-Package IronXL.Excel

Imports IronXL
Imports System.Data

Imports IronXL
Imports System.Data

Wie können Entwickler eine DataGridView mit Beispieldaten bestücken?

Für dieses Beispiel erstellen Sie ein einfaches Windows-Formular mit einem DataGridView-Steuerelement und einer Schaltfläche. Das DataGridView zeigt Mitarbeiterdatensätze an, die in einem DataTable-Objekt gespeichert sind und in eine Excel-Datei exportiert werden.

Fügen Sie den folgenden Code zum Load-Ereignis des Formulars hinzu, um das Raster mit Beispieldaten aus einer Tabellenstruktur aufzufüllen:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim dt As New DataTable()
    ' Define columns with appropriate data type
    dt.Columns.Add("EmployeeID", GetType(Integer))
    dt.Columns.Add("Name", GetType(String))
    dt.Columns.Add("Department", GetType(String))
    dt.Columns.Add("Salary", GetType(Decimal))
    ' Add sample rows of data
    dt.Rows.Add(101, "Sarah Johnson", "Engineering", 85000)
    dt.Rows.Add(102, "Michael Chen", "Marketing", 72000)
    dt.Rows.Add(103, "Emily Davis", "Finance", 91000)
    dt.Rows.Add(104, "James Wilson", "Engineering", 78000)
    ' Set DataGridView data source
    DataGridView1.DataSource = dt
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim dt As New DataTable()
    ' Define columns with appropriate data type
    dt.Columns.Add("EmployeeID", GetType(Integer))
    dt.Columns.Add("Name", GetType(String))
    dt.Columns.Add("Department", GetType(String))
    dt.Columns.Add("Salary", GetType(Decimal))
    ' Add sample rows of data
    dt.Rows.Add(101, "Sarah Johnson", "Engineering", 85000)
    dt.Rows.Add(102, "Michael Chen", "Marketing", 72000)
    dt.Rows.Add(103, "Emily Davis", "Finance", 91000)
    dt.Rows.Add(104, "James Wilson", "Engineering", 78000)
    ' Set DataGridView data source
    DataGridView1.DataSource = dt
End Sub

Dieser Code erstellt eine DataTable mit vier Spalten, die typische Mitarbeiterinformationen enthalten. Jede Spalte wird mit ihrem Datentyp mithilfe von GetType() für Integer-, String- und Decimal-Werte definiert. Die Eigenschaft DataSource bindet diese Daten direkt an das DataGridView-Steuerelement und füllt das Raster automatisch auf, wenn der Benutzer das Formular öffnet. In Produktionsanwendungen können diese Daten stattdessen aus einer Datenbank oder einem Array geladen werden.

Wie können Entwickler DataGridView-Daten in eine Excel-Datei mit Kopfzeilen exportieren?

Die Exportfunktion gehört in den Click-Event-Handler der Schaltfläche. Der folgende Code durchläuft die Spalten und Zeilen der DataGridView mithilfe einer Schleife und schreibt jeden Zellwert in die entsprechenden Excel-Arbeitsblattzellen.

Private Sub btnExport_Click(sender As Object, e As EventArgs)
    ' Create a new Excel workbook object and worksheet
    Dim workbook As WorkBook = WorkBook.Create()
    Dim sheet As WorkSheet = workbook.DefaultWorkSheet
    ' Write column headers to the header row (row index 0), integer dim
    Dim colIndex As Integer
    For colIndex = 0 To DataGridView1.Columns.Count - 1
        sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText)
    Next
    ' Write data rows starting from the second row
    Dim rowIndex As Integer
    For rowIndex = 0 To DataGridView1.Rows.Count - 1
        For colIndex = 0 To DataGridView1.Columns.Count - 1
            Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value
            If cellValue IsNot Nothing Then
                sheet.SetCellValue(rowIndex + 1, colIndex, cellValue.ToString())
            End If
        Next
    Next
    ' Save the workbook as an XLSX file with specified filename
    Dim outputPath As String = "EmployeeData.xlsx"
    workbook.SaveAs(outputPath)
    MessageBox.Show("Export solved! File created successfully.", "Success")
End Sub

Private Sub btnExport_Click(sender As Object, e As EventArgs)
    ' Create a new Excel workbook object and worksheet
    Dim workbook As WorkBook = WorkBook.Create()
    Dim sheet As WorkSheet = workbook.DefaultWorkSheet
    ' Write column headers to the header row (row index 0), integer dim
    Dim colIndex As Integer
    For colIndex = 0 To DataGridView1.Columns.Count - 1
        sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText)
    Next
    ' Write data rows starting from the second row
    Dim rowIndex As Integer
    For rowIndex = 0 To DataGridView1.Rows.Count - 1
        For colIndex = 0 To DataGridView1.Columns.Count - 1
            Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value
            If cellValue IsNot Nothing Then
                sheet.SetCellValue(rowIndex + 1, colIndex, cellValue.ToString())
            End If
        Next
    Next
    ' Save the workbook as an XLSX file with specified filename
    Dim outputPath As String = "EmployeeData.xlsx"
    workbook.SaveAs(outputPath)
    MessageBox.Show("Export solved! File created successfully.", "Success")
End Sub

Der Code beginnt mit der Erstellung eines neuen WorkBook-Objekts, das die gesamte Excel-Datei darstellt. Die Eigenschaft DefaultWorkSheet ermöglicht den Zugriff auf das Standardblatt, in das die Daten geschrieben werden sollen.

Wie können Entwickler die Zellformatierung in der exportierten Datei beibehalten?

Der einfache Export überträgt Daten, aber professionelle Anwendungen erfordern oft eine Formatierung der Excel-Ausgabedatei. Die Styling-API von IronXL ermöglicht die Formatierung von Zellen, um das Erscheinungsbild der DataGridView anzupassen oder zu verbessern.

Private Sub ExportWithFormatting()
    Dim workbook As WorkBook = WorkBook.Create()
    Dim sheet As WorkSheet = workbook.DefaultWorkSheet
    ' Write and style column headers on the first line
    Dim colIndex As Integer
    For colIndex = 0 To DataGridView1.Columns.Count - 1
        sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText)
    Next
    ' Find Salary column index (case-insensitive)
    Dim salaryColIndex As Integer = -1
    For i As Integer = 0 To DataGridView1.Columns.Count - 1
        If String.Equals(DataGridView1.Columns(i).HeaderText, "Salary", StringComparison.OrdinalIgnoreCase) Then
            salaryColIndex = i
            Exit For
        End If
    Next
    ' Apply header row styling with format options
    Dim headerRange = sheet.GetRange("A1:D1")
    headerRange.Style.Font.Bold = True
    headerRange.Style.SetBackgroundColor("#4472C4")
    headerRange.Style.Font.SetColor("#FFFFFF")
    ' Write data rows and ensure Salary cells are numeric
    For rowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
        If Not DataGridView1.Rows(rowIndex).IsNewRow Then
            For colIndex = 0 To DataGridView1.Columns.Count - 1
                Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value
                Dim targetRow = rowIndex + 1
                If cellValue Is Nothing Then
                    Continue For
                End If
                If colIndex = salaryColIndex Then
                    ' Ensure numeric value for salary column
                    Dim decValue As Decimal
                    If TypeOf cellValue Is Decimal OrElse TypeOf cellValue Is Double OrElse TypeOf cellValue Is Integer OrElse TypeOf cellValue Is Single Then
                        decValue = Convert.ToDecimal(cellValue)
                        sheet.SetCellValue(targetRow, colIndex, decValue)
                    Else
                        ' Try parse using current culture, then invariant
                        If Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.CurrentCulture, decValue) _
                       OrElse Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.InvariantCulture, decValue) Then
                            sheet.SetCellValue(targetRow, colIndex, decValue)
                        Else
                            ' fallback to text if parsing fails
                            sheet.SetCellValue(targetRow, colIndex, cellValue.ToString())
                        End If
                    End If
                Else
                    ' Non-salary: preserve numeric types, otherwise write as text
                    If TypeOf cellValue Is Decimal OrElse Type Of cellValue Is Double Or Else Type Of cellValue Is Integer Or Else Type Of cellValue Is Single Then
                        sheet.SetCellValue(targetRow, colIndex, cellValue)
                    Else
                        sheet.SetCellValue(targetRow, colIndex, cellValue.ToString())
                    End If
                End If
            Next
        End If
    Next
    ' Format salary column as currency
    Dim salaryColumn = sheet.GetRange("D2:D5")
    salaryColumn.FormatString = "$#,##0"
    Dim filename As String = "FormattedEmployeeData.xlsx"
    workbook.SaveAs(filename)
End Sub

Private Sub ExportWithFormatting()
    Dim workbook As WorkBook = WorkBook.Create()
    Dim sheet As WorkSheet = workbook.DefaultWorkSheet
    ' Write and style column headers on the first line
    Dim colIndex As Integer
    For colIndex = 0 To DataGridView1.Columns.Count - 1
        sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText)
    Next
    ' Find Salary column index (case-insensitive)
    Dim salaryColIndex As Integer = -1
    For i As Integer = 0 To DataGridView1.Columns.Count - 1
        If String.Equals(DataGridView1.Columns(i).HeaderText, "Salary", StringComparison.OrdinalIgnoreCase) Then
            salaryColIndex = i
            Exit For
        End If
    Next
    ' Apply header row styling with format options
    Dim headerRange = sheet.GetRange("A1:D1")
    headerRange.Style.Font.Bold = True
    headerRange.Style.SetBackgroundColor("#4472C4")
    headerRange.Style.Font.SetColor("#FFFFFF")
    ' Write data rows and ensure Salary cells are numeric
    For rowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
        If Not DataGridView1.Rows(rowIndex).IsNewRow Then
            For colIndex = 0 To DataGridView1.Columns.Count - 1
                Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value
                Dim targetRow = rowIndex + 1
                If cellValue Is Nothing Then
                    Continue For
                End If
                If colIndex = salaryColIndex Then
                    ' Ensure numeric value for salary column
                    Dim decValue As Decimal
                    If TypeOf cellValue Is Decimal OrElse TypeOf cellValue Is Double OrElse TypeOf cellValue Is Integer OrElse TypeOf cellValue Is Single Then
                        decValue = Convert.ToDecimal(cellValue)
                        sheet.SetCellValue(targetRow, colIndex, decValue)
                    Else
                        ' Try parse using current culture, then invariant
                        If Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.CurrentCulture, decValue) _
                       OrElse Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.InvariantCulture, decValue) Then
                            sheet.SetCellValue(targetRow, colIndex, decValue)
                        Else
                            ' fallback to text if parsing fails
                            sheet.SetCellValue(targetRow, colIndex, cellValue.ToString())
                        End If
                    End If
                Else
                    ' Non-salary: preserve numeric types, otherwise write as text
                    If TypeOf cellValue Is Decimal OrElse Type Of cellValue Is Double Or Else Type Of cellValue Is Integer Or Else Type Of cellValue Is Single Then
                        sheet.SetCellValue(targetRow, colIndex, cellValue)
                    Else
                        sheet.SetCellValue(targetRow, colIndex, cellValue.ToString())
                    End If
                End If
            Next
        End If
    Next
    ' Format salary column as currency
    Dim salaryColumn = sheet.GetRange("D2:D5")
    salaryColumn.FormatString = "$#,##0"
    Dim filename As String = "FormattedEmployeeData.xlsx"
    workbook.SaveAs(filename)
End Sub

Diese erweiterte Version wendet professionelle Formatierung auf die exportierte Excel-Datei an. Die Methode GetRange wählt Zellen in der Standard-Excel-Notation aus (A1:D1 für die Kopfzeile). Die Style-Eigenschaft zeigt Formatierungsoptionen an, einschließlich Schriftstärke, Hintergrundfarbe und Textfarbe, die als Hex-Werte angegeben werden.

Warum eine moderne Bibliothek gegenüber Office Interop wählen?

Traditionelle VB.NET-Lösungen für den Excel-Export, die sich auf Microsoft.Office.Interop.Excel stützen, erfordern die Installation von Microsoft Office auf jedem System, auf dem die Anwendung läuft. Code, der Dim xlApp-Muster verwendet, stellt eine Herausforderung für die Bereitstellung dar, insbesondere für Serverumgebungen und Cloud-Anwendungen, in denen Sie MS Excel nicht installieren können.

IronXL arbeitet unabhängig - eine Office-Installation ist nicht erforderlich. Die Anwendungen werden als in sich geschlossene Einheiten ohne externe Abhängigkeiten bereitgestellt. Darüber hinaus vermeidet IronXL Speicherlecks und COM-Objektbereinigungsprobleme, die bei Interop-basierten Lösungen auftreten, was zu stabileren Anwendungen führt. Die Bibliothek unterstützt auch den CSV-Export, falls Sie dieses Format anstelle von XLSX benötigen.

Ich hoffe, dieser Artikel hat Ihre Frage beantwortet, wie man DataGridView-Daten exportiert. Weitere Hilfe finden Sie in der Fehlerbehebungsdokumentation oder wenden Sie sich an den Support, wenn bei der Implementierung Fehler auftreten.

Abschluss

Der Export von DataGridView-Daten nach Excel in VB.NET wird mit den richtigen Tools zum Kinderspiel. IronXL bietet eine saubere, moderne API, die die Erstellung von Arbeitsmappen, das Schreiben von Daten in Zellen und die Formatierung ohne die Installation von Microsoft Office ermöglicht. Ganz gleich, ob Sie einfache Datentabellen oder komplex formatierte Arbeitsmappen schreiben müssen, diese Bibliothek bietet die benötigte Funktionalität.

Laden Sie IronXL herunter, um noch heute Excel-Exportfunktionen in VB.NET Windows Forms-Anwendungen zu integrieren. Lizenzierungsoptionen sind für Teams jeder Größe verfügbar, mit einer kostenlosen Testversion für den Einstieg.