Wie man in VB.NET in eine Excel-Datei schreibt (auf die einfache Weise)

Wie beginne ich mit der Excel-Automatisierung in VB.NET?

Um mit dem Schreiben in Excel-Dateien in Ihrem VB.NET-Projekt zu beginnen, müssen Sie zuerst die IronXL-Bibliothek hinzufügen. Der Prozess ist unkompliziert und kann direkt in Visual Studio durchgeführt werden.

Zuerst stellen Sie sicher, dass Ihre Entwicklungsumgebung bereit ist:

• Visual Studio 2022 oder später.
• Ein aktives Projekt, das auf .NET Framework 4.6.2 oder höher oder .NET Core/.NET 5+ abzielt. IronXL ist mit allen modernen .NET-Versionen kompatibel, einschließlich .NET 9 und 10.

Installieren Sie dann das IronXL NuGet-Paket:

1. Öffnen Sie den NuGet-Paket-Manager in Visual Studio.
2. Suchen Sie nach dem Paket IronXL.Excel.
3. Klicken Sie auf "Installieren".

Alternativ können Sie es über die Paket-Manager-Konsole mit folgendem Befehl installieren:

Install-Package IronXL.Excel

Navigation zum NuGet-Paket-Manager im Menü von Visual Studio, um das richtige Paket für die Integration von VB.NET Excel zu finden.

Nach der Installation können Sie mit dem Schreiben von Code beginnen. Fügen Sie einfach Imports IronXL am Anfang Ihrer VB.NET-Datei hinzu, um die Klassen der Bibliothek in den Gültigkeitsbereich zu bringen.

Suche nach dem IronXL-Paket, um die benötigte Bibliothek zum Schreiben von Daten in eine Excel-Datei mit VB.NET zu installieren.

Wie kann ich eine neue Excel-Datei erstellen und Daten darin schreiben?

Das Erstellen einer neuen Excel-Datei von Grund auf ist eine grundlegende Aufgabe. Mit IronXL können Sie ein Arbeitsbuch erzeugen, Arbeitsblätter hinzufügen und Zellen mit Daten aus beliebigen Quellen, wie einer Sammlung von Objekten, befüllen. Dies ist perfekt für Aufgaben wie das Exportieren von Anwendungsdaten oder das Erstellen täglicher Berichte.

Schauen wir uns ein praktisches Beispiel an. Stellen Sie sich vor, wir haben eine Liste von Produktdaten, die wir in eine Excel-Tabelle exportieren möchten.

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

Public Class Product
    Public Property ID As Integer
    Public Property Name As String
    Public Property Price As Decimal
End Class

Module Program
    Sub Main(args As String())
        ' 1. Prepare a list of data to write to Excel.
        Dim products As New List(Of Product) From {
            New Product With {.ID = 1, .Name = "Laptop", .Price = 1200.50D},
            New Product With {.ID = 2, .Name = "Keyboard", .Price = 75.00D},
            New Product With {.ID = 3, .Name = "Mouse", .Price = 25.99D}
        }

        ' 2. Create a new Excel workbook and select the default worksheet.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 3. Write headers for our data.
        sheet("A1").Value = "Product ID"
        sheet("B1").Value = "Product Name"
        sheet("C1").Value = "Price"

        ' Style the header row.
        Dim headerRange = sheet.GetRange("A1:C1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#D3D3D3") ' Light Gray

        ' 4. Iterate through the product list and write data to subsequent rows.
        For i As Integer = 0 To products.Count - 1
            Dim product = products(i)
            Dim row = i + 2 ' Start from the second row
            sheet("A" & row).Value = product.ID
            sheet("B" & row).Value = product.Name
            sheet("C" & row).Value = product.Price
        Next

        ' 5. Apply currency formatting to the price column.
        Dim priceColumn = sheet.GetRange("C2:C" & products.Count + 1)
        priceColumn.Style.Format = "$#,##0.00"

        ' 6. Auto-size columns for better readability.
        sheet.Columns.AutoFit()

        ' 7. Save the newly created and populated workbook to a file.
        workbook.SaveAs("ProductReport.xlsx")

    End Sub
End Module

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

Public Class Product
    Public Property ID As Integer
    Public Property Name As String
    Public Property Price As Decimal
End Class

Module Program
    Sub Main(args As String())
        ' 1. Prepare a list of data to write to Excel.
        Dim products As New List(Of Product) From {
            New Product With {.ID = 1, .Name = "Laptop", .Price = 1200.50D},
            New Product With {.ID = 2, .Name = "Keyboard", .Price = 75.00D},
            New Product With {.ID = 3, .Name = "Mouse", .Price = 25.99D}
        }

        ' 2. Create a new Excel workbook and select the default worksheet.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 3. Write headers for our data.
        sheet("A1").Value = "Product ID"
        sheet("B1").Value = "Product Name"
        sheet("C1").Value = "Price"

        ' Style the header row.
        Dim headerRange = sheet.GetRange("A1:C1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#D3D3D3") ' Light Gray

        ' 4. Iterate through the product list and write data to subsequent rows.
        For i As Integer = 0 To products.Count - 1
            Dim product = products(i)
            Dim row = i + 2 ' Start from the second row
            sheet("A" & row).Value = product.ID
            sheet("B" & row).Value = product.Name
            sheet("C" & row).Value = product.Price
        Next

        ' 5. Apply currency formatting to the price column.
        Dim priceColumn = sheet.GetRange("C2:C" & products.Count + 1)
        priceColumn.Style.Format = "$#,##0.00"

        ' 6. Auto-size columns for better readability.
        sheet.Columns.AutoFit()

        ' 7. Save the newly created and populated workbook to a file.
        workbook.SaveAs("ProductReport.xlsx")

    End Sub
End Module

Wie kann ich Daten in eine vorhandene Excel-Datei schreiben?

Oft müssen Sie keine neue Datei erstellen, sondern Daten zu einer vorhandenen Datei hinzufügen. Das ist üblich für Protokollierung, Anhängen von Datensätzen oder Aktualisieren eines Berichts. IronXL macht diesen Prozess genauso einfach wie das Erstellen einer neuen Datei.

Das folgende Beispiel zeigt, wie man eine vorhandene Tabelle öffnet, die zuletzt verwendete Zeile findet und neue Daten anhängt.

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

' (Assuming the Product class from the previous example is available)

Module Program
    Sub Main(args As String())
        ' Ensure the file from our previous example exists.
        If Not System.IO.File.Exists("ProductReport.xlsx") Then
            Console.WriteLine("Please run the first example to create ProductReport.xlsx")
            Return
        End If

        ' 1. Load the existing workbook from the file system.
        Dim workbook As WorkBook = WorkBook.Load("ProductReport.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 2. Find the first empty row to append new data.
        ' The LastRowUsed property gives us the last row with data.
        Dim lastRow = sheet.Info.LastRowUsed
        Dim newRowIndex = lastRow.RowNumber + 1

        ' 3. Define the new data to be added.
        Dim newProducts As New List(Of Product) From {
            New Product With {.ID = 4, .Name = "Monitor", .Price = 350.00D},
            New Product With {.ID = 5, .Name = "Webcam", .Price = 99.99D}
        }

        ' 4. Loop through the new data and write it to the worksheet.
        For i As Integer = 0 To newProducts.Count - 1
            Dim product = newProducts(i)
            Dim currentRow = newRowIndex + i
            sheet("A" & currentRow).Value = product.ID
            sheet("B" & currentRow).Value = product.Name
            sheet("C" & currentRow).Value = product.Price
        Next

        ' 5. Re-apply formatting and auto-fit columns to include new data.
        Dim priceColumn = sheet.GetRange("C2:C" & sheet.Info.LastRowUsed.RowNumber)
        priceColumn.Style.Format = "$#,##0.00"
        sheet.Columns.AutoFit()

        ' 6. Save the changes back to the original file.
        workbook.Save()

        ' Or save as a new file to preserve the original.
        ' workbook.SaveAs("ProductReport_Updated.xlsx")
    End Sub
End Module

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

' (Assuming the Product class from the previous example is available)

Module Program
    Sub Main(args As String())
        ' Ensure the file from our previous example exists.
        If Not System.IO.File.Exists("ProductReport.xlsx") Then
            Console.WriteLine("Please run the first example to create ProductReport.xlsx")
            Return
        End If

        ' 1. Load the existing workbook from the file system.
        Dim workbook As WorkBook = WorkBook.Load("ProductReport.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 2. Find the first empty row to append new data.
        ' The LastRowUsed property gives us the last row with data.
        Dim lastRow = sheet.Info.LastRowUsed
        Dim newRowIndex = lastRow.RowNumber + 1

        ' 3. Define the new data to be added.
        Dim newProducts As New List(Of Product) From {
            New Product With {.ID = 4, .Name = "Monitor", .Price = 350.00D},
            New Product With {.ID = 5, .Name = "Webcam", .Price = 99.99D}
        }

        ' 4. Loop through the new data and write it to the worksheet.
        For i As Integer = 0 To newProducts.Count - 1
            Dim product = newProducts(i)
            Dim currentRow = newRowIndex + i
            sheet("A" & currentRow).Value = product.ID
            sheet("B" & currentRow).Value = product.Name
            sheet("C" & currentRow).Value = product.Price
        Next

        ' 5. Re-apply formatting and auto-fit columns to include new data.
        Dim priceColumn = sheet.GetRange("C2:C" & sheet.Info.LastRowUsed.RowNumber)
        priceColumn.Style.Format = "$#,##0.00"
        sheet.Columns.AutoFit()

        ' 6. Save the changes back to the original file.
        workbook.Save()

        ' Or save as a new file to preserve the original.
        ' workbook.SaveAs("ProductReport_Updated.xlsx")
    End Sub
End Module

Wie schreibe ich ein DataTable auf ein Excel-Arbeitsblatt?

Für Entwickler, die mit Daten aus Quellen wie SQL Server arbeiten, ist es eine übliche Aufgabe, die Inhalte eines DataTable direkt auf ein Excel-Blatt zu schreiben. IronXL vereinfacht dies mit einer eingebauten Methode, die das Durchlaufen von Zeilen und Spalten manuell überflüssig macht.

Dieses Beispiel zeigt, wie man ein DataTable-Objekt bevölkert und in einem Schritt in eine neue Excel-Datei exportiert.

Imports IronXL
Imports System.Data

Module Program
    Sub Main(args As String())
        ' 1. Create and populate a DataTable. This often comes from a database query.
        Dim dt As New DataTable("EmployeeData")
        dt.Columns.Add("EmployeeID", GetType(Integer))
        dt.Columns.Add("FullName", GetType(String))
        dt.Columns.Add("Department", GetType(String))
        dt.Columns.Add("HireDate", GetType(Date))

        dt.Rows.Add(101, "John Smith", "Sales", New Date(2022, 5, 20))
        dt.Rows.Add(102, "Jane Doe", "Engineering", New Date(2021, 8, 15))
        dt.Rows.Add(103, "Peter Jones", "Marketing", New Date(2023, 1, 10))

        ' 2. Create a new workbook.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Employees")

        ' 3. Write the DataTable to the worksheet starting at cell A1.
        ' The second parameter (True) indicates that column headers should be included.
        sheet.Write(dt, "A1", True)

        ' 4. Apply some styling for a more polished look.
        sheet.Columns.AutoFit()
        Dim headerRange = sheet.GetRange("A1:D1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#C5D9F1") ' Light Blue

        Dim dateColumn = sheet.GetRange("D2:D" & dt.Rows.Count + 1)
        dateColumn.Style.Format = "yyyy-mm-dd"

        ' 5. Save the workbook.
        workbook.SaveAs("EmployeeDatabaseExport.xlsx")
    End Sub
End Module

Imports IronXL
Imports System.Data

Module Program
    Sub Main(args As String())
        ' 1. Create and populate a DataTable. This often comes from a database query.
        Dim dt As New DataTable("EmployeeData")
        dt.Columns.Add("EmployeeID", GetType(Integer))
        dt.Columns.Add("FullName", GetType(String))
        dt.Columns.Add("Department", GetType(String))
        dt.Columns.Add("HireDate", GetType(Date))

        dt.Rows.Add(101, "John Smith", "Sales", New Date(2022, 5, 20))
        dt.Rows.Add(102, "Jane Doe", "Engineering", New Date(2021, 8, 15))
        dt.Rows.Add(103, "Peter Jones", "Marketing", New Date(2023, 1, 10))

        ' 2. Create a new workbook.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Employees")

        ' 3. Write the DataTable to the worksheet starting at cell A1.
        ' The second parameter (True) indicates that column headers should be included.
        sheet.Write(dt, "A1", True)

        ' 4. Apply some styling for a more polished look.
        sheet.Columns.AutoFit()
        Dim headerRange = sheet.GetRange("A1:D1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#C5D9F1") ' Light Blue

        Dim dateColumn = sheet.GetRange("D2:D" & dt.Rows.Count + 1)
        dateColumn.Style.Format = "yyyy-mm-dd"

        ' 5. Save the workbook.
        workbook.SaveAs("EmployeeDatabaseExport.xlsx")
    End Sub
End Module

Die sheet.Write()-Methode ist dafür unglaublich effizient. Sie ordnet die DataTable-Struktur intelligent dem Arbeitsblatt zu, einschließlich Spaltenüberschriften, falls angegeben. Dies ist eine leistungsstarke Funktion für jede datengesteuerte Anwendung und eine erhebliche Zeitersparnis im Vergleich zur manuellen Iteration. Weitere Details zu Datenimport und -export finden Sie in unserem Tutorial zum Konvertieren zwischen verschiedenen Tabellenformaten.

Was kann ich noch beim Schreiben von Excel-Dateien tun?

Das Schreiben von Daten ist erst der Anfang. Eine robuste VB.NET Excel-Bibliothek sollte eine vollständige Palette von Funktionen bieten, um jede Tabellenkalkulationsaufgabe zu automatisieren. IronXL bietet umfangreiche Fähigkeiten, einschließlich:

• Formeln: Formeln programmatisch festlegen und berechnen. Sie können einer Zelle eine Formel über das Value-Feld zuweisen (z. B. sheet("C1").Value = "=SUM(A1:B1)") und IronXL wird das Ergebnis berechnen.
• Diagramme: Erstellen Sie verschiedene Diagrammtypen aus den Daten der Arbeitsblätter, um Informationen zu visualisieren.
• Datenvalidierung: Regeln für Zellen erzwingen, z. B. nur Zahlen innerhalb eines bestimmten Bereichs oder Werte aus einer Dropdown-Liste zulassen.
• Bedingte Formatierung: Zellen können je nach ihren Werten formatiert werden, um wichtige Datenpunkte hervorzuheben.
• Sicherheit und Schutz: Schützen Sie Arbeitsblätter oder ganze Arbeitsmappen mit Passwörtern, um den Zugriff zu kontrollieren und Änderungen zu verhindern.

Diese Funktionen ermöglichen die vollständige Automatisierung komplexer Berichterstellungs- und Datenanalyse-Workflows direkt in Ihren .NET-Anwendungen.

Beginnen Sie noch heute mit dem Schreiben in Excel-Dateien in VB.NET

Wie gezeigt, vereinfacht eine moderne Bibliothek wie IronXL das Schreiben von Daten in Excel-Dateien in VB.NET erheblich. Indem Sie die Komplexitäten und Abhängigkeiten von Office Interop vermeiden, können Sie zuverlässigere, leistungsstärkere und leicht zu implementierende Anwendungen erstellen. Egal, ob Sie Excel-Dateien von Grund auf neu erstellen, Daten zu bestehenden Berichten hinzufügen oder ein DataTable exportieren müssen, IronXL bietet eine intuitive und leistungsstarke API, um die Aufgabe effizient zu erledigen.

Sie können IronXL herunterladen und es mit einer kostenlosen Testlizenz ausprobieren, um zu sehen, wie einfach es in Ihre Projekte integriert werden kann.

Für diejenigen mit umfassenderen Anforderungen ist IronXL auch Teil von Iron Suite for .NET. Mit einer einzigen Lizenz erhalten Sie Zugriff auf eine umfassende Sammlung von Bibliotheken zum Umgang mit PDFs, Barcodes, OCR und mehr, was jedem .NET-Entwickler einen außergewöhnlichen Nutzen bietet.