Wie man ein Dataset in VB.NET zu Excel konvertiert

Was macht die Konvertierung von DataSet zu Excel wichtig?

Ein DataSet in .NET repräsentiert einen im Speicher befindlichen Cache von Daten und enthält eine oder mehrere DataTables mit Zeilen, Spalten und Beziehungen. Die Umwandlung dieser DataSets in Excel ermöglicht folgendes:

• Geschäftsberichte: Transformieren von Datenbankabfragen in formatierte Tabellenkalkulationen für Stakeholder
• Datenarchivierung: Exportieren von Anwendungsdaten zur langfristigen Speicherung und Analyse
• Plattformübergreifende Kompatibilität: Teilen von Daten mit Benutzern, die möglicherweise keinen Zugriff auf Ihre Anwendung haben
• Erweiterte Visualisierung: Nutzen der integrierten Diagramm- und Analysetools von Excel

IronXL vereinfacht diesen Prozess, indem es eine intuitive API bereitstellt, die die Konvertierung ohne Installation von Excel auf dem Server oder Entwicklungsrechner verarbeitet. Die Bibliothek unterstützt das .NET Framework 4.6.2 und später, .NET Core und .NET 5 und später, was sie für moderne Anwendungen geeignet macht, einschließlich solcher, die in Linux-Containern und Cloud-Umgebungen bereitgestellt werden. Für weitere Details zu den unterstützten Plattformen besuchen Sie die IronXL-Funktionsseite.

Wie starten Sie mit IronXL in Ihrem VB.NET-Projekt?

Die Einrichtung von IronXL in Ihrem VB.NET- oder .NET-Codeprojekt dauert nur wenige Minuten. Öffnen Sie Visual Studio und navigieren Sie zu Ihrem Projekt, dann installieren Sie IronXL über den NuGet-Paket-Manager.

Über die Paket-Manager-Konsole ausführen:

Install-Package IronXL.Excel

Alternativ suchen Sie im NuGet-Paketmanager-Benutzeroberfläche nach "IronXL.Excel" und klicken Sie auf Installieren. Das Paket lädt automatisch alle notwendigen Abhängigkeiten herunter und konfiguriert sie. Weitere Installationsoptionen finden Sie im IronXL-Installationshandbuch.

Nach der Installation fügen Sie den IronXL-Namespace in Ihre VB.NET-Datei ein:

Imports IronXL
Imports System.Data

Imports IronXL
Imports System.Data

Mit diesen Importen können Sie jetzt DataSets in Excel-Dateien konvertieren.

Wie konvertieren Sie ein DataSet zu Excel in VB.NET?

Beginnen wir mit einem praktischen Beispiel, das ein DataSet mit Beispieldaten erstellt und es in eine Excel-Datei exportiert:

' Create a sample DataSet with product information
Dim dataSet As New DataSet("ProductData")
' Create a DataTable object for products, column headers
Dim productsTable As New DataTable("Products")
productsTable.Columns.Add("ProductID", GetType(Integer))
productsTable.Columns.Add("ProductName", GetType(String))
productsTable.Columns.Add("Price", GetType(Decimal))
productsTable.Columns.Add("InStock", GetType(Boolean))
' Add sample data to export DataTable
productsTable.Rows.Add(1, "Laptop", 999.99, True)
productsTable.Rows.Add(2, "Mouse", 19.99, True)
productsTable.Rows.Add(3, "Keyboard", 49.99, False)
productsTable.Rows.Add(4, "Monitor", 299.99, True)
productsTable.Rows.Add(5, "Headphones", 79.99, True)
' Add the DataTable table to the DataSet
dataSet.Tables.Add(productsTable)
' Export DataSet to Excel using IronXL
Dim workBook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Save the Excel file
workBook.SaveAs("ProductData.xlsx")

' Create a sample DataSet with product information
Dim dataSet As New DataSet("ProductData")
' Create a DataTable object for products, column headers
Dim productsTable As New DataTable("Products")
productsTable.Columns.Add("ProductID", GetType(Integer))
productsTable.Columns.Add("ProductName", GetType(String))
productsTable.Columns.Add("Price", GetType(Decimal))
productsTable.Columns.Add("InStock", GetType(Boolean))
' Add sample data to export DataTable
productsTable.Rows.Add(1, "Laptop", 999.99, True)
productsTable.Rows.Add(2, "Mouse", 19.99, True)
productsTable.Rows.Add(3, "Keyboard", 49.99, False)
productsTable.Rows.Add(4, "Monitor", 299.99, True)
productsTable.Rows.Add(5, "Headphones", 79.99, True)
' Add the DataTable table to the DataSet
dataSet.Tables.Add(productsTable)
' Export DataSet to Excel using IronXL
Dim workBook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Save the Excel file
workBook.SaveAs("ProductData.xlsx")

Dieser Code erstellt ein DataSet, das Produktinformationen enthält, und konvertiert es direkt in eine Excel-Datei. Die Methode LoadWorkSheetsFromDataSet erstellt automatisch für jede DataTable in Ihrem DataSet ein Arbeitsblatt. Die resultierende Excel-Datei enthält korrekt formatierte Daten, die aus Ihrer DataTable-Struktur abgeleitet sind.

' Save as legacy Excel versions format
workBook.SaveAs("ProductData.xls")
' Save as CSV (comma-separated values)
workBook.SaveAsCsv("ProductData.csv")
' Save as TSV (tab-separated values)
workBook.SaveAs("ProductData.tsv")

' Save as legacy Excel versions format
workBook.SaveAs("ProductData.xls")
' Save as CSV (comma-separated values)
workBook.SaveAsCsv("ProductData.csv")
' Save as TSV (tab-separated values)
workBook.SaveAs("ProductData.tsv")

Wie exportieren Sie Daten aus Datenbanken direkt in ein Excel-Dateiformat?

In realen Anwendungen ist es oft erforderlich, Daten aus SQL-Datenbanken zu exportieren. So können Sie eine Datenbank abfragen und die Ergebnisse in Excel exportieren:

Dim connectionString As String = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True"
Dim query As String = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'"
Dim dataSet As New DataSet()
' Populate DataSet from database
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(query, connection)
        adapter.Fill(dataSet, "Orders")
    End Using
End Using
' Create Excel workbook and load data
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Auto-size columns for better readability
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
For i As Integer = 0 To worksheet.Columns.Count - 1
    worksheet.AutoSizeColumn(i)
Next
' Save with timestamp in filename
Dim fileName As String = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx"
workBook.SaveAs(fileName)

Dim connectionString As String = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True"
Dim query As String = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'"
Dim dataSet As New DataSet()
' Populate DataSet from database
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(query, connection)
        adapter.Fill(dataSet, "Orders")
    End Using
End Using
' Create Excel workbook and load data
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Auto-size columns for better readability
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
For i As Integer = 0 To worksheet.Columns.Count - 1
    worksheet.AutoSizeColumn(i)
Next
' Save with timestamp in filename
Dim fileName As String = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx"
workBook.SaveAs(fileName)

Dieses Beispiel demonstriert einen vollständigen Workflow von der Datenbankabfrage bis zur Excel-Datei. Der SqlDataAdapter füllt das DataSet mit Abfrageergebnissen, die dann von IronXL in eine formatierte Excel-Datei konvertiert werden. Die Auto-Resize-Funktion stellt sicher, dass alle Daten ohne manuelle Anpassung der Spaltenbreiten sichtbar sind und einen professionell aussehenden Export erstellt, der zur Verteilung bereit ist. Für die Bearbeitung größerer Datensätze siehe unser Handbuch zum Arbeiten mit großen Excel-Dateien.

Wie verwalten Sie mehrere DataTables in einer Excel-Datei?

Wenn Sie mit verwandten Daten arbeiten, haben Sie möglicherweise mehrere DataTables in einem einzigen DataSet. IronXL behandelt dies nahtlos:

Dim dataSet As New DataSet("CompanyData")
' Create Employees table (dim dt)
Dim employeesTable As New DataTable("Employees")
employeesTable.Columns.Add("EmployeeID", GetType(Integer))
employeesTable.Columns.Add("Name", GetType(String))
employeesTable.Columns.Add("Department", GetType(String))
employeesTable.Rows.Add(1, "John Smith", "Sales")
employeesTable.Rows.Add(2, "Jane Doe", "Marketing")
' Create Departments table
Dim departmentsTable As New DataTable("Departments")
departmentsTable.Columns.Add("DepartmentName", GetType(String))
departmentsTable.Columns.Add("Budget", GetType(Decimal))
departmentsTable.Rows.Add("Sales", 100000)
departmentsTable.Rows.Add("Marketing", 75000)
' Add both tables to DataSet
dataSet.Tables.Add(employeesTable)
dataSet.Tables.Add(departmentsTable)
' Convert to Excel - each DataTable becomes a worksheet
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Optionally rename worksheets
workBook.WorkSheets(0).Name = "Employee List"
workBook.WorkSheets(1).Name = "Department Budgets"
workBook.SaveAs("CompanyData.xlsx")

Dim dataSet As New DataSet("CompanyData")
' Create Employees table (dim dt)
Dim employeesTable As New DataTable("Employees")
employeesTable.Columns.Add("EmployeeID", GetType(Integer))
employeesTable.Columns.Add("Name", GetType(String))
employeesTable.Columns.Add("Department", GetType(String))
employeesTable.Rows.Add(1, "John Smith", "Sales")
employeesTable.Rows.Add(2, "Jane Doe", "Marketing")
' Create Departments table
Dim departmentsTable As New DataTable("Departments")
departmentsTable.Columns.Add("DepartmentName", GetType(String))
departmentsTable.Columns.Add("Budget", GetType(Decimal))
departmentsTable.Rows.Add("Sales", 100000)
departmentsTable.Rows.Add("Marketing", 75000)
' Add both tables to DataSet
dataSet.Tables.Add(employeesTable)
dataSet.Tables.Add(departmentsTable)
' Convert to Excel - each DataTable becomes a worksheet
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Optionally rename worksheets
workBook.WorkSheets(0).Name = "Employee List"
workBook.WorkSheets(1).Name = "Department Budgets"
workBook.SaveAs("CompanyData.xlsx")

Jede DataTable in Ihrem DataSet wird zu einem separaten Arbeitsblatt in der Excel-Datei, was die logische Trennung Ihrer Daten beibehält. Dieser Ansatz ist besonders nützlich für die Erstellung umfassender Berichte, die einzelne Arbeitsblätter für verschiedene Datenkategorien erfordern, alles in einer einzigen Datei. Laut der Microsoft-Dokumentation zu DataSets spiegelt diese Struktur die relationale Natur von Datenbankschemata wider.

Wie fügen Sie eine grundlegende Formatierung zu Ihrem Excel-Export hinzu?

Während IronXL automatisch grundlegende Formatierungen vornimmt, können Sie Ihre Excel-Exporte mit zusätzlichem Styling verbessern:

' After loading DataSet into WorkBook
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
' Set header row style
Dim headerRange As Range = worksheet.GetRange("A1:D1")
headerRange.Style.Font.Bold = True
headerRange.Style.BackgroundColor = "#4472C4"
headerRange.Style.Font.Color = "#FFFFFF"
' Format currency columns
For rowIndex As Integer = 1 To worksheet.RowCount - 1
    worksheet($"C{rowIndex + 1}").FormatString = "$#,##0.00"
Next
' Add borders to data range
Dim dataRange As Range = worksheet.GetRange($"A1:D{worksheet.RowCount}")
dataRange.Style.Border.TopBorder.Type = BorderType.Thin
dataRange.Style.Border.BottomBorder.Type = BorderType.Thin

' After loading DataSet into WorkBook
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
' Set header row style
Dim headerRange As Range = worksheet.GetRange("A1:D1")
headerRange.Style.Font.Bold = True
headerRange.Style.BackgroundColor = "#4472C4"
headerRange.Style.Font.Color = "#FFFFFF"
' Format currency columns
For rowIndex As Integer = 1 To worksheet.RowCount - 1
    worksheet($"C{rowIndex + 1}").FormatString = "$#,##0.00"
Next
' Add borders to data range
Dim dataRange As Range = worksheet.GetRange($"A1:D{worksheet.RowCount}")
dataRange.Style.Border.TopBorder.Type = BorderType.Thin
dataRange.Style.Border.BottomBorder.Type = BorderType.Thin

Diese Formatierungsoptionen verwandeln einfache Datenexporte in professionell aussehende Tabellenkalkulationen. Die Styling-Fähigkeiten umfassen Schriftarteigenschaften, Farben, Rahmen und Zahlenformate und ermöglichen es Ihnen, Exporte zu erstellen, die dem Branding oder den Berichtsstandards Ihrer Organisation entsprechen. Erkunden Sie weitere Zellformatierungsoptionen in der IronXL-Dokumentation.

Abschluss

Die Konvertierung von DataSets zu Excel in VB.NET wird mit IronXL außergewöhnlich einfach. Die Bibliothek eliminiert die Komplexität herkömmlicher Interop-Ansätze und bietet gleichzeitig leistungsstarke Funktionen für den Datenexport, die Formatierung und die Unterstützung mehrerer Formate. Ob Sie Speicherdaten oder Ergebnisse von Datenbankabfragen exportieren, IronXL verarbeitet die Konvertierung effizient, ohne dass eine Excel-Installation erforderlich ist.

Wichtige Vorteile der Verwendung von IronXL für die DataSet-zu-Excel-Konvertierung sind:

• Keine Microsoft Office-Abhängigkeiten
• Unterstützung für mehrere Excel-Formate (XLSX, XLS, CSV, TSV)
• Automatische Arbeitsblatterstellung aus DataTables
• Plattformübergreifende Kompatibilität für Cloud- und Containerbereitstellungen
• Einfache, intuitive API, die nur wenig Code erfordert

Um zusätzliche Funktionen zu erkunden, wie z. B. das Erstellen von Diagrammen, Formularunterstützung und erweiterte Formatierungsoptionen, besuchen Sie die IronXL-Dokumentation, die am besten zu Ihren Bedürfnissen passt.

Bereit, Ihre Datenexport-Fähigkeiten zu transformieren? Laden Sie IronXL herunter, das Bibliotheken für PDF, Barcode, OCR und mehr enthält.