vb.net - 在运行以下代码时，有什么方法可以修复错误，这将从 datagridview 生成 excel 文件？

Question

我在 Visual Studio 的 vb 中从 datagridview 生成带有数据（400000 行）的 excel 文件报告。

我已经尝试过这段代码，当我使用“0”代替“counterx”时效果很好。但我必须在每个循环上增加 counterx，这样它就会一个接一个地占用每一行..后来我可以简单地使用其他循环来让事情变得更快。

        counterx = 0
        Do While (remains > 0)
        Dim rawData3(0, DataGridView4.Columns.Count - 1) As Object

        For col = 0 To DataGridView4.Columns.Count - 1

        rawData3(0, col) = DataGridView4.Rows(counterx).Cells(col).Value

        Next
        counterx += 1
        Dim excelstart3 As String = String.Empty
        TextBox4.Text = counterx

        excelstart3 = ((counterx) + 1).ToString()
        TextBox8.Text = "A" & excelstart3 & ":{0}{1}"
        Dim finalColLetter1 As String = String.Empty
        finalColLetter1 = ExcelColName(DataGridView4.Columns.Count)
        Dim excelRange3 As String = String.Format("A" & excelstart3 & ":{0}{1}", finalColLetter1, counterx + 1) 'firstphase + 1 )

        Ws.Range(excelRange3, Type.Missing).Value2 = rawData3


        ' secondphase = secondphase - 1
        remains = remains - 1
    Loop

标签： vb.netvisual-studio