VB.NET 读取和创建 Excel 文件（代码示例教程）

Q: 我如何在VB.NET中对Excel数据进行计算？

IronXL允许您直接对单元格范围执行计算，如总和、最小值和最大值。例如，使用 ws('A1:A10').Sum() 计算该范围内值的总和。

Q: 我可以在VB.NET中使用Excel工作表中的特定单元格插入数据吗？

是的，在VB.NET中使用IronXL，您可以通过设置单元格的 Value 属性来向特定单元格插入数据，例如 ws1('A1').Value = 'Hello World' 。

Q: 我如何在VB.NET中将Excel工作簿保存到特定路径？

要使用IronXL将Excel工作簿保存到特定路径，请使用 SaveAs 方法和所需的文件路径，例如 wb.SaveAs('E:\IronXL\Sample.xlsx') 。

Q: 我在哪里可以下载适用于VB.NET开发的Excel库？

您可以通过运行命令 dotnet add package IronXL.Excel 通过NuGet下载IronXL Excel库，或通过从IronXL网站下载DLL。

Q: 我可以在一个Excel文件中创建多个工作表吗？

是的，在VB.NET中使用IronXL，您可以通过在WorkBook对象上多次调用 CreateWorkSheet 方法，在单个Excel文件中创建多个工作表。

Q: 如何在VB.NET中通过名称或索引访问Excel文件中的特定工作表？

在VB.NET中使用IronXL，您可以使用 wb.GetWorkSheet('SheetName') 按名称访问工作表，或使用 wb.WorkSheets(index) 按索引访问。

Curtis Chau

Updated: 2026年6月4日

开发人员需要一种流畅、简单的方法来访问 VB .NET Excel 文件。在这个演练中，我们将使用IronXL读取VB .NET Excel文件并访问项目使用的所有数据。我们将学习如何创建所有格式的电子表格（.tsv），以及使用VB.NET Excel编程设置单元格样式和插入数据。

如何在VB.NET中读取Excel文件

下载 VB.NET 读取 Excel C# 库
在VB.NET中创建Excel文件
将数据插入工作表
在VB.NET中读取Excel文件
从工作表中访问数据
对数据执行功能

步骤1

1. 适用于 VB.NET 的 Excel 库

使用DLL 下载或NuGet获取 IronXL Excel for VB.NET 库。 IronXL 是我们在 VB.NET 项目中快速访问 Excel 数据的第一步，也是我们将在本教程中使用的工具（开发免费）。

PM > Install-Package IronXL.Excel

Install-Package IronXL.Excel

操作指南

2. 使用 VB.NET 创建 Excel 文件

IronXL提供了在VB.NET项目中创建Excel（.xlsx格式）文件的最简单方法。之后，我们可以插入数据，还可以设置单元格属性，例如字体样式或边框。

2.1 创建 Excel 文件

我们先来创建一个工作簿：

' 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

VB .NET

上述代码用于创建一个新的Excel文件。默认情况下，其扩展名为.xlsx。

2.2 创建 XLS 文件

如果您希望创建.xls扩展文件，可以使用此代码：

' 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)

VB .NET

2.3 创建工作表

创建工作簿后，可以按如下方式创建 Excel 工作表：

' 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")

VB .NET

上述代码将创建一个名为ws1在WorkBook wb中。

2.4 创建多个工作表

可以用同样的方法创建任意数量的工作表：

' 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")

VB .NET

3. 将数据插入工作表

3.1. 将数据插入单元格

现在我们可以轻松地按如下方式将数据插入工作表单元格：

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

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

VB .NET

例如，可以这样插入工作表ws1中的数据：

' 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"

VB .NET

上述代码将在WorkSheet Hello World。

3.2. 将数据插入范围

也可以使用 range 函数将数据写入多个单元格，如下所示：

' 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"

VB .NET

3.3 创建和编辑工作表示例

我们将创建一个新的Excel文件Sample.xlsx，并在其中插入一些数据，以展示我们上面学习到的代码。

' 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

VB .NET

**注意：**默认情况下，新创建的Excel文件将位于项目的bin\Debug文件夹中。如果要创建自定义路径下的新文件，请使用：

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

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

VB .NET

这是我们新创建的Excel文件Sample.xlsx的截图：

很明显，使用IronXL在VB.NET应用程序中创建Excel文件是多么简单。

4. 在VB.NET中读取Excel文件

IronXL还提供了一种简单的方法在VB .NET项目中读取Excel (.xlsx) 文件。为此，只需获取 Excel 文档，将其加载到您的项目中，读取其数据，并根据您的需要使用它即可。

请遵循以下步骤：

4.1. 在项目中访问 Excel 文件

WorkBook是IronXL的类，其对象提供对Excel文件及其功能的全面访问。例如，如果我们想访问 Excel 文件，只需使用：

' 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

VB .NET

在上述代码中，wb。可以通过访问Excel文件的特定WorkSheets在wb上执行任意类型的功能。

4.2. 访问特定工作表

要访问Excel中的特定工作表，请使用WorkSheet类，可以通过以下不同方式使用：

按图纸名称

' 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

VB .NET

按页索引

' 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

VB .NET

默认工作表

' 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

VB .NET

第一页

' 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

VB .NET

获得Excel工作表ws后，您可以从相应的Excel文件的WorkSheet中获取任何类型的数据，并执行所有Excel功能。

5. 从工作表中访问数据

可以这样从ExcelSheet ws中访问数据：

' Retrieve values from specific cells
Dim int_Value As Integer = ws("A2").IntValue 'for integer
Dim str_value As String = ws("A2").ToString() 'for string

' Retrieve values from specific cells
Dim int_Value As Integer = ws("A2").IntValue 'for integer
Dim str_value As String = ws("A2").ToString() 'for string

VB .NET

5.1. 特定列的数据

也可以通过以下方式从特定列的多个单元格中获取数据：

' 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

VB .NET

它将显示从单元格A10的值。下面给出上述讨论的代码示例。

' 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

VB .NET

这将显示以下输出：

我们可以看到Excel文件Sample.xlsx的截图：

6. 对数据执行函数

通过应用 SUM、MIN 或 MAX 等聚合函数，可以轻松地从 Excel 工作表中访问筛选后的数据，方法如下：

' Aggregate functions on a range of data
Dim sum As Decimal = ws("From:To").Sum()
Dim min As Decimal = ws("From:To").Min()
Dim max As Decimal = ws("From:To").Max()

' Aggregate functions on a range of data
Dim sum As Decimal = ws("From:To").Sum()
Dim min As Decimal = ws("From:To").Min()
Dim max As Decimal = ws("From:To").Max()

VB .NET

您可以点击此处阅读更多关于Excel聚合函数的信息。

' Example: Apply functions to data
Imports IronXL

Sub Main()
    ' Load the workbook
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()

    ' Perform aggregate calculations
    Dim sum As Decimal = ws("G2:G10").Sum()
    Dim min As Decimal = ws("G2:G10").Min()
    Dim max As Decimal = ws("G2:G10").Max()

    ' Print the results
    Console.WriteLine("Sum is: {0}", sum)
    Console.WriteLine("Min is: {0}", min)
    Console.WriteLine("Max is: {0}", max)
    Console.ReadKey()
End Sub

' Example: Apply functions to data
Imports IronXL

Sub Main()
    ' Load the workbook
    Dim wb As WorkBook = WorkBook.Load("sample.xlsx")
    ' Get the first worksheet
    Dim ws As WorkSheet = wb.WorkSheets.FirstOrDefault()

    ' Perform aggregate calculations
    Dim sum As Decimal = ws("G2:G10").Sum()
    Dim min As Decimal = ws("G2:G10").Min()
    Dim max As Decimal = ws("G2:G10").Max()

    ' Print the results
    Console.WriteLine("Sum is: {0}", sum)
    Console.WriteLine("Min is: {0}", min)
    Console.WriteLine("Max is: {0}", max)
    Console.ReadKey()
End Sub

VB .NET

这段代码会显示如下内容：