将datagridview数据传输到excel

Question

我正在使用 EPPlus 将我的 datagridview 数据传输到 excel 文件，我的问题是进程正在消耗内存，我缺少什么来释放已用的内存？在外面，几千行看起来还不错，但是程序使用的内存会增加，并且在导出并保存到 Excel 后不会回落。现在，当我尝试导出一百万行时，内存不足。

这是我的代码，这个进程在后台工作人员上运行。

Using p = New ExcelPackage
        Dim sheetnum As Integer = 2
        Dim ws As ExcelWorksheet = CreateSheet(p, "report")
        For Each dgcol As DataGridViewColumn In dg.Columns
            ws.Cells(1, col).Value = dgcol.HeaderText
            col += 1
        Next

        For Each rowx As DataGridViewRow In dg.Rows
            For Each colx As DataGridViewColumn In dg.Columns
                ws.Cells(row, colx.Index + 1).Value = dg.Rows(rowx.Index).Cells(colx.Index).Value
            Next
            row += 1
            BackgroundWorker1.ReportProgress(CInt(100 * Integer.Parse(rowx.Index + 1) / dg.Rows.Count), CInt(100 * Integer.Parse(rowx.Index + 1) / dg.Rows.Count))
            If row = 1048577 Then 'Check if max rows have been reached and create a new sheet
                ws = CreateSheet(p, "report" & sheetnum)
                sheetnum += 1
                row = 2
                col = 1
                For Each dgcol As DataGridViewColumn In dg.Columns
                    ws.Cells(1, col).Value = dgcol.HeaderText
                    col += 1
                Next
            End If
        Next

        Dim bin() As Byte = p.GetAsByteArray()
        File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & "report.xlsx", bin)
    End Using

Answer 1

由于它被封装在 using 块中，因此 ExcelPackage 对象被正确处理。您说您还处置了 cmets 中的 ExcelWorksheet 对象，但没有成功。

但是，我认为您没有在最后一行代码（End Using 之前）中处理写入文件的字节数组

试试看。希望对您有所帮助。