使用转置快速导出到Excel

Posted 2021-03-27

我使用了一个解决方案，发布在这个链接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条记录，但我需要一个明确的解决方案来解决这个问题。 ;-)

有人能帮助我吗？

答案

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

因此没有必要对例行程序进行修正。

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