如何在 VB.NET 中打开 Excel 文件

如何在我的VB.NET项目中安装IronXL？

使用 IronXL 入门只需几秒钟。 打开 Visual Studio 2022，导航到您的 VB.NET 项目，然后使用程序包管理器控制台：

Install-Package IronXL.Excel

或者，右键单击您的项目，选择"管理 NuGet 程序包"，搜索"IronXL"，然后单击"安装"。

如何在 VB.NET 中打开 Excel 文件：图 1 - IronXL NuGet 安装

安装完成后，将以下导入语句添加到您的 VB.NET 文件中：

Imports IronXL

Imports IronXL

就这样。 没有复杂的 COM 引用，没有 Office 依赖项，没有特定于版本的程序集。 您的 VB.NET Excel 文件读取器已准备就绪，可在任何计算机上运行。有关详细的设置说明，请查看我们的 VB.NET Excel 文件教程。

简单代码示例：使用 IronXL 读取 Excel 文档

以下是一个完整的 VB.NET 示例，演示如何打开 Excel 工作簿并读取数据：

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

WorkBook.Load() 方法会自动检测文件格式； 无需指定是 XLS 格式还是 XLSX 格式。 使用 workbook.GetWorkSheet("Sheet1") 通过索引或文件名访问 Excel 工作表。 每个单元格通过诸如 IntValue、DecimalValue、DateTimeValue 或通用 Text 属性等属性返回类型化的值。 对于更复杂的情况，请查阅我们的Excel 公式文档。

如您所见，IronXL 已成功打开文件并读取了我们请求读取的订单总额。 它还能够读取和提取所有订单中每件售出产品的信息。

如何在 VB.NET 中打开 Excel 文件：图 2 - 读取 Excel 文件的示例输出

如何读取不同类型的Excel数据？

IronXL 在读取 Excel VB.NET 文件时能够智能地处理所有 Excel 数据类型。 以下是如何处理各种数据场景的方法：

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

IronXL 可自动处理空单元格、合并单元格和公式。 VB.NET Excel 库会在读取公式时重新计算公式，确保您始终获得最新值。 对于大型数据集，为了获得最佳性能，请使用 Sum()、Average()、Min() 和 Max() 等聚合函数。 需要导出数据吗？ 学习如何将Excel文件转换为CSV文件。

如何在 VB.NET 中打开 Excel 文件：图 3 - 读取和显示所用单元格中的数据

能举个生产应用方面的实际例子吗？

让我们构建一个真正的库存检查器，使用 VB.NET 打开 Excel 文件并处理多个 Excel 工作表：

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

这段可用于生产的 VB.NET 代码演示了错误处理、多工作表处理和实际业务逻辑。 IronXL 可以高效地在内存中处理最大 10MB 的文件。 对于较大的文件，可以考虑使用特定的范围选择分块处理。 常见问题，例如文件权限问题，在我们的故障排除指南中均有介绍。 有关 VB.NET Excel 自动化的讨论，可访问Microsoft Q&A 论坛寻求社区支持。

结论

使用IronXL ，在 VB.NET 中读取和处理 Excel 文件从未如此简单——而且您无需安装 Microsoft Office。 从安全地读取多种数据类型、遍历大型工作表、处理公式和空单元格，到处理多工作表工作簿，IronXL 简化了 Excel 自动化的方方面面。

这个现代化的 .NET 库消除了互操作的复杂性，避免了版本冲突，并且可以在 Windows、Linux 和云环境中无缝运行。 无论您是构建小型库存检查器还是处理企业级 Excel 数据，IronXL 都能提供可靠的性能、简洁的代码和强大的错误处理。

准备好简化您的 VB.NET Excel 工作流程了吗？ 立即开始您的 IronXL 免费试用，体验更快、更简洁、完全独立于 Office 的 Excel 文件处理方式。 浏览我们的文档和教程，以充分发挥 IronXL 在您的应用程序中的强大功能。

立即开始使用 IronXL。

免费开始