如何在 VB.NET 中撰寫 Excel 文件（簡便方法）

我如何在VB.NET中開始進行Excel自動化？

要在您的VB.NET項目中開始寫入Excel文件，您首先需要添加IronXL程式庫。 這個過程很簡單，可以直接在Visual Studio中完成。

首先，確保您的開發環境已準備就緒：

• Visual Studio 2022或更高版本。
• 一個目標.NET Framework 4.6.2或更高版本或.NET Core/.NET 5+的活躍專案。 IronXL與所有現代.NET版本兼容，包含.NET 9和10。

接下來，安裝IronXL NuGet包：

1. 在Visual Studio中打開NuGet Package Manager。
2. 搜索包件IronXl.Excel。
3. 點擊"安裝"。

或者，您可以通過以下命令在套件管理器控制台中安裝它：

Install-Package IronXL.Excel

在Visual Studio的菜單中導航到NuGet Package Manager以尋找適合VB.NET Excel集成的包件。

安裝完成後，您即可開始編寫代碼。 只需在VB.NET文件的頂部添加Imports IronXL，即可將程式庫的類引入範疇。

搜尋IronXL包以安裝需要的程式庫來使用VB.NET寫入Excel文件。

我如何創建一個新的Excel文件並向其中寫入數據？

從零開始創建一個Excel文件是一項基本任務。 使用IronXL，您可以生成工作簿，添加工作表，並用來自各種來源的數據填充單元格，比如一個對象集合。 這非常適合用於像導出應用程序數據或生成每日報告這樣的任務。

讓我們來看一個實用的例子。 假設我們有一個產品數據列表，想要導出到Excel電子表格。

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

我如何將數據寫入現有的Excel文件？

通常，您不需要創建一個新文件，而是將數據添加到現有文件中。 這對於記錄、追加記錄到數據集或更新報告很常見。 IronXL使這個過程與創建新文件一樣簡單。

以下示例說明如何打開現有的電子表格，找到最後使用的行，並追加新數據。

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

如何將DataTable寫入Excel工作表？

對於處理來自SQL Server等數據源的開發人員來說，一項常見任務是將DataTable的內容直接寫入Excel表。 IronXL用內置方法簡化了這一過程，消除了手動遍歷行和列的需要。

此示例顯示如何填充DataTable並將其一鍵導出到新Excel文件。

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

sheet.Write()方法在這種情況下非常高效。 它智能地將DataTable結構映射到工作表中，包括指定的列標題。 這是一個對於任何數據驅動應用程序來說都非常強大的功能，相比手動迭代節省了大量時間。 如需了解更多有關數據導入和導出的詳細信息，請參閱我們的教程 - 不同電子表格格式之間的轉換。

在寫入Excel文件時，我還能做什麼？

寫入數據僅僅是開始。 一個健壯的VB.NET Excel程式庫應提供一整套功能來自動化任何電子表格任務。 IronXL提供了廣泛的能力，包括：

• 公式：程序地設置和計算公式。 您可以將公式分配到單元格的sheet("C1").Value = "=SUM(A1:B1)")，IronXL將計算結果。
• 圖表：從工作表數據創建各種圖表以可視化信息。
• 數據驗證：對單元格施加規則，例如僅允許在特定範圍內的數字或從下拉列表中選擇的值。
• 條件格式化：根據單元格的值應用樣式，幫助突出重要數據點。
• 安全和保護：通過密碼保護工作表或整個工作簿來控制訪問和防止修改。

這些功能允許在您的.NET應用程序中直接實現複雜報告生成和數據分析工作流的全面自動化。

今天在VB.NET中開始寫入Excel文件

如展示，使用現代程式庫如IronXL，寫入Excel文件變得大大簡化。 通過避免Office Interop的複雜性和依賴性，您可以構建更可靠、高效且易於部署的應用程序。 無論您需要從零創建Excel文件，向現有報告追加數據，還是導出DataTable，IronXL提供了直觀而強大的API來高效完成任務。

您可以下載IronXL並試用免費試用授權，看看它如何輕鬆集成到您的專案中。

對於擁有更廣泛需求的用戶，請記住IronXL也是Iron Suite for .NET的一部分。 憑藉一個授權，您可以獲得一整套處理PDF、條碼、OCR和更多功能的程式庫，為任何.NET開發人員提供卓越的價值。