VB.NET读取XLSX指定列数据并输出至控制台问题求助

嘿，我来帮你搞定这个问题！首先咱们先拆解下你现有代码的问题，再一步步实现你要的功能——不管是处理CSV还是真正的XLSX文件。

首先，你的CSV读取代码没有输出，核心bug在这里：

For Each readLine In line

这段代码是遍历字符串line的每个单个字符，而不是把每行分割成CSV的列。"14"是两个字符，所以永远匹配不到，自然没有输出。

一、先修正你的CSV读取代码 #

如果只是要处理CSV文件，我们需要先把每行按分隔符（通常是逗号）分割成列数组，再检查指定列的值是否为"14"，然后输出整行。

修正后的代码：

Private Sub FindValueInCsv()
    Using reader As New StreamReader("D:\excelFileTest.csv")
        ' 可选：如果CSV有表头，先跳过第一行
        reader.ReadLine()
        
        While Not reader.EndOfStream
            Dim line As String = reader.ReadLine()
            ' 按逗号分割列（如果你的CSV用分号或其他分隔符，替换成对应的字符）
            Dim columns As String() = line.Split(","c)
            
            ' 假设你要检查第3列（数组索引从0开始，所以第3列是索引2），请根据实际需求调整索引
            Dim targetColumnIndex As Integer = 2
            ' 先判断列数足够，避免索引越界，再检查值是否为"14"
            If columns.Length > targetColumnIndex AndAlso columns(targetColumnIndex).Trim() = "14" Then
                Console.WriteLine(line)
            End If
        End While
    End Using
End Sub

二、处理真正的XLSX文件（你的核心需求） #

StreamReader只能处理文本格式的文件，XLSX是二进制压缩格式，直接读会乱码。我们需要用专门的库，比如EPPlus（免费非商用，商用需要授权），这是.NET处理Excel最常用的库之一。

步骤1：安装EPPlus NuGet包 #

在Visual Studio中，右键你的项目 → 管理NuGet程序包 → 搜索"EPPlus"并安装（推荐5.x及以上版本）。

步骤2：实现XLSX读取功能 #

' 先引入命名空间
Imports OfficeOpenXml
Imports System.IO
Imports System.Text

Private Sub FindValueInExcel()
    ' EPPlus 5+需要设置许可证上下文，非商用选NonCommercial，商用请改为Commercial
    ExcelPackage.LicenseContext = LicenseContext.NonCommercial
    
    ' 打开XLSX文件
    Using package As New ExcelPackage(New FileInfo("D:\excelFileTest.xlsx"))
        ' 获取第一个工作表（也可以用工作表名：package.Workbook.Worksheets("Sheet1")）
        Dim worksheet As ExcelWorksheet = package.Workbook.Worksheets(0)
        
        ' 获取表格的总行数和列数
        Dim totalRows As Integer = worksheet.Dimension.Rows
        Dim totalColumns As Integer = worksheet.Dimension.Columns
        
        ' 假设你要检查第3列（EPPlus的列索引从1开始），请根据实际调整
        Dim targetColumn As Integer = 3
        
        ' 遍历每行（跳过表头的话从第2行开始，否则从第1行）
        For row As Integer = 2 To totalRows
            ' 获取目标列的单元格值，处理空值并去除前后空格
            Dim cellValue As String = worksheet.Cells(row, targetColumn).Value?.ToString().Trim()
            
            ' 如果值等于"14"，输出整行内容
            If cellValue = "14" Then
                Dim rowContent As New StringBuilder()
                ' 遍历当前行的所有列，拼接内容
                For col As Integer = 1 To totalColumns
                    rowContent.Append($"{worksheet.Cells(row, col).Value?.ToString()}, ")
                Next
                ' 移除末尾多余的逗号和空格
                If rowContent.Length > 0 Then
                    rowContent.Remove(rowContent.Length - 2, 2)
                End If
                Console.WriteLine(rowContent.ToString())
            End If
        Next
    End Using
End Sub

关键注意点： #

• EPPlus的行和列索引都是从1开始的，和数组的0索引不一样，别搞混！
• 用?.操作符处理单元格空值，避免空引用异常。
• 如果你的Excel文件有复杂格式（比如合并单元格），需要额外处理，但普通表格上面的代码足够用。

内容的提问来源于stack exchange，提问作者Sabbir Ahmed