VB .NET Lesen und Erstellen von Excel-Dateien (Codebeispiel-Tutorial)

2.1. Excel-Datei erstellen

Lass uns zuerst ein Arbeitsbuch erstellen:

' Create a new Excel workbook with the default format (.xlsx)
Dim wb As New WorkBook

' Create a new Excel workbook with the default format (.xlsx)
Dim wb As New WorkBook

Der obige Code dient zur Erstellung einer neuen Excel-Datei. Standardmäßig hat sie die Erweiterung .xlsx.

2.2. XLS-Datei erstellen

Falls Sie eine Datei mit der Erweiterung .xls erstellen möchten, können Sie diesen Code verwenden:

' Create a new Excel workbook with .xls format
Dim wb As New WorkBook(ExcelFileFormat.XLS)

' Create a new Excel workbook with .xls format
Dim wb As New WorkBook(ExcelFileFormat.XLS)

2.3. Arbeitsblatt erstellen

Nach der Erstellung des Arbeitsbuchs kann ein Excel-Arbeitsblatt wie folgt erstellt werden:

' Create a new worksheet named "Sheet1" in the workbook
Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")

' Create a new worksheet named "Sheet1" in the workbook
Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")

Der obige Code wird ein neues Arbeitsblatt ws1 mit dem Namen Sheet1 im Arbeitsbuch wb erstellen.

2.4. Mehrere Arbeitsblätter erstellen

Beliebig viele Arbeitsblätter können auf die gleiche Weise erstellt werden:

' Create additional worksheets
Dim ws2 As WorkSheet = wb.CreateWorkSheet("Sheet2")
Dim ws3 As WorkSheet = wb.CreateWorkSheet("Sheet3")

' Create additional worksheets
Dim ws2 As WorkSheet = wb.CreateWorkSheet("Sheet2")
Dim ws3 As WorkSheet = wb.CreateWorkSheet("Sheet3")

3.1. Daten in Zellen einfügen

Jetzt können wir einfach Daten in Arbeitsblattzellen wie folgt einfügen:

' Insert a value into a specific cell
worksheet("CellAddress").Value = "MyValue"

' Insert a value into a specific cell
worksheet("CellAddress").Value = "MyValue"

Zum Beispiel können Daten im Arbeitsblatt ws1 wie folgt eingefügt werden:

' Insert "Hello World" into cell A1 of the worksheet
ws1("A1").Value = "Hello World"

' Insert "Hello World" into cell A1 of the worksheet
ws1("A1").Value = "Hello World"

Der obige Code wird Hello World in die Zelle A1 des Arbeitsblattes ws1 schreiben.

3.2. Daten in Bereich einfügen

Es ist auch möglich, Daten mit der Bereichsfunktion in viele Zellen zu schreiben:

' Insert "NewValue" into the range from cell A3 to A8
ws1("A3:A8").Value = "NewValue"

' Insert "NewValue" into the range from cell A3 to A8
ws1("A3:A8").Value = "NewValue"

3.3. Arbeitsblätter erstellen und bearbeiten Beispiel

Wir werden eine neue Excel-Datei Sample.xlsx erstellen und einige Daten darin einfügen, um den oben gelernten Code zu demonstrieren.

' Import IronXL namespace for Excel operations
Imports IronXL

' Main subroutine to create and edit Excel
Sub Main()
    ' Create a new workbook in XLSX format
    Dim wb As New WorkBook(ExcelFileFormat.XLSX)
    ' Create a worksheet named "Sheet1"
    Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")
    ' Insert data into cells
    ws1("A1").Value = "Hello"
    ws1("A2").Value = "World"
    ' Insert a range of values
    ws1("B1:B8").Value = "RangeValue"
    ' Save the workbook as "Sample.xlsx"
    wb.SaveAs("Sample.xlsx")
End Sub

' Import IronXL namespace for Excel operations
Imports IronXL

' Main subroutine to create and edit Excel
Sub Main()
    ' Create a new workbook in XLSX format
    Dim wb As New WorkBook(ExcelFileFormat.XLSX)
    ' Create a worksheet named "Sheet1"
    Dim ws1 As WorkSheet = wb.CreateWorkSheet("Sheet1")
    ' Insert data into cells
    ws1("A1").Value = "Hello"
    ws1("A2").Value = "World"
    ' Insert a range of values
    ws1("B1:B8").Value = "RangeValue"
    ' Save the workbook as "Sample.xlsx"
    wb.SaveAs("Sample.xlsx")
End Sub

Hinweis: Standardmäßig wird die neue Excel-Datei im bin\Debug-Ordner des Projekts erstellt. Um eine neue Datei in einem benutzerdefinierten Pfad zu erstellen, verwenden wir:

wb.SaveAs(@"E:\IronXL\Sample.xlsx")

wb.SaveAs(@"E:\IronXL\Sample.xlsx")

Hier ist der Screenshot unserer neu erstellten Excel-Datei Sample.xlsx:

Es ist klar, wie einfach es sein kann, Excel-Dateien mit IronXL in einer VB.NET-Anwendung zu erstellen.

4.1. Excel-Datei im Projekt aufrufen

WorkBook ist die Klasse von IronXL, deren Objekt vollen Zugriff auf die Excel-Datei und ihre Funktionen bietet. Zum Beispiel, wenn wir die Excel-Datei aufrufen möchten, verwenden wir einfach:

' Load the Excel file "sample.xlsx" into a workbook
Dim wb As WorkBook = WorkBook.Load("sample.xlsx") 'Excel file path

' Load the Excel file "sample.xlsx" into a workbook
Dim wb As WorkBook = WorkBook.Load("sample.xlsx") 'Excel file path

Im obigen Code lädt die WorkBook.Load()-Funktion sample.xlsx in wb. Jede Art von Funktion kann auf wb durchgeführt werden, indem auf spezifische Arbeitsblätter der Excel-Datei zugegriffen wird.

4.2. Spezifisches Arbeitsblatt aufrufen

' Access worksheet by name
Dim ws As WorkSheet = wb.GetWorkSheet("Sheet1") 'by sheet name

' Access worksheet by name
Dim ws As WorkSheet = wb.GetWorkSheet("Sheet1") 'by sheet name

' Access worksheet by index
Dim ws As WorkSheet = wb.WorkSheets(0) 'by sheet index

' Access worksheet by index
Dim ws As WorkSheet = wb.WorkSheets(0) 'by sheet index

' Access the default worksheet
Dim ws As WorkSheet = wb.DefaultWorkSheet() 'for the default sheet

' Access the default worksheet
Dim ws As WorkSheet = wb.DefaultWorkSheet() 'for the default sheet

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = wb.WorkSheets.FirstOrDefault() 'for the first sheet

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = wb.WorkSheets.FirstOrDefault() 'for the first sheet

5.1. Daten aus einer bestimmten Spalte

Es ist auch möglich, Daten aus vielen Zellen einer bestimmten Spalte auf folgende Weise abzurufen:

' Loop through cells in a specific range and print their values
For Each cell In ws("A2:A10")
    Console.WriteLine("value is: {0}", cell.Text)
Next cell

' Loop through cells in a specific range and print their values
For Each cell In ws("A2:A10")
    Console.WriteLine("value is: {0}", cell.Text)
Next cell

Es werden Werte von den Zellen A2 bis A10 angezeigt. Ein Codebeispiel zur obigen Diskussion ist unten angegeben.

' Example: Load and display values from a column
Imports IronXL

Sub Main()
    ' Load the workbook from file
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()
    ' Loop through cells in range A2:A10
    For Each cell In ws("A2:A10")
        Console.WriteLine("value is: {0}", cell.Text)
    Next
    Console.ReadKey()
End Sub

' Example: Load and display values from a column
Imports IronXL

Sub Main()
    ' Load the workbook from file
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()
    ' Loop through cells in range A2:A10
    For Each cell In ws("A2:A10")
        Console.WriteLine("value is: {0}", cell.Text)
    Next
    Console.ReadKey()
End Sub

Dies zeigt die folgende Ausgabe an:

Und wir können einen Screenshot der Excel-Datei Sample.xlsx sehen: