VB.NET - 为什么我的 Excel 读取跳过第一行？

Question

有一个程序使用 OLEDB 读取 Excel 文件并将其转换为制表符分隔的文本文件。这个循环处理转换。

While reader.Read
            Dim count As Integer = 0
            Try
                While (True)
                    temp = reader(count).ToString + ControlChars.Tab
                    output_file.Write(temp)
                    count += 1
                End While
            Catch ex As Exception
                output_file.WriteLine()
            End Try


        End While

肯定不是最优雅的代码，但它会逐个读取每个单元格，然后在行尾抛出异常以写入换行符。唯一的问题是它跳过了 Excel 文档的第一行。知道为什么吗？

Answer 1

要获得更优雅的解决方案，请尝试以下操作：

While reader.Read()

    For i As Integer = 0 To reader.FieldCount - 1
        output_file.Write(reader(i).ToString() + ControlChars.Tab)
    Next

    output_file.WriteLine()
End While

从阅读器读取每一行，并在 FOR 循环中使用行中的字段数 (.FieldCount) 处理行中的字段。

每个 FOR 循环完成后，结束文件中的行。

对阅读器中的每一行重复。

最好不使用异常来处理代码中本来可以处理的事件（例如，抛出一个处理 FileNotFoundException - 或抛出一个 - 而不是简单地进行 File.Exits 检查） .\

更新 做了一点谷歌搜索，看来您可以通过连接字符串包含/排除标题：

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";

注意 HDR=Yes 部分。根据Connection strings for Excel，这用于指示第一行是否为标题。

您可能会尝试的另一件事是使用 reader.GetName(int index) 查看读取器的字段是否在其 Name 属性中具有值，其中 index 是列（字段）的从零开始的序号。