如何在 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 包管理器。
2. 搜索IronXl.Excel包。
3. 点击"安装"。

或者，您也可以通过软件包管理器控制台使用以下命令进行安装：

Install-Package IronXl.Excel

在 Visual Studio 的菜单中找到 NuGet 包管理器，找到用于 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 等现代库可以大大简化在 VB.NET 中向 Excel 文件写入数据的过程。 通过避免 Office Interop 的复杂性和依赖性，您可以构建更可靠、性能更佳、更易于部署的应用程序。 无论是需要从头创建Excel文件，还是将数据追加到现有报告，或导出DataTable，IronXL都提供了一个直观而强大的API来有效完成任务。

您可以下载 IronXL并使用免费试用许可证进行试用，看看它如何轻松地集成到您的项目中。

对于有更广泛需求的用户，请记住 IronXL 也是Iron Suite for .NET的一部分。 只需一个许可证，即可访问一套全面的库，用于处理 PDF、条形码、OCR 等，为任何 .NET 开发人员提供卓越的价值。