使用转置快速导出到 Excel

Question

我使用了此 link 中发布的解决方案 Fast Export of Large Datatable to Excel Spreadsheet in VB.Net

并且工作得很好，但是当我的代码导出超过 15513 行时代码失败并且只在列上显示“#N/A”。如下图所示

Error on export a big number of lines 查看使用的代码：

        'numero de linhas
        Dim Nbligne As Long = dt.Rows.Count

        'Grava o cabeçalho das colunas e os dados
        For Each dc In dt.Columns

            colIndex = colIndex + 1
            'Cabeçalhos
            oWsh.Cells(1, colIndex) = dc.ColumnName
            oWsh.Cells(2, colIndex).Resize(Nbligne, ).Value = oXls.Application.transpose(dt.Rows.OfType(Of DataRow)().[Select](Function(k) CObj(k(dc.ColumnName))).ToArray())

        Next

PS：此代码在当前应用程序中继续运行，因为只有在少数情况下我有超过 15000 条记录，但我需要一个明确的解决方案来解决这个问题。 ;-)

有人可以帮我吗？

Answer 1

在这个例程中收到大量记录后，我可以验证这个错误是在特定情况下发生的，没有再次发生。我认为此错误可能是由 varchar 字段中的字符引起的。

因此没有必要对常规进行更正。

所以，感谢您阅读我的问题 ;-)

使用转置快速导出到 Excel

Fast Export to Excel using transpose

vb.net

excel

export-to-excel