VB.NET_从DataGridview中导出EXCEL(2.效率)

最新推荐文章于 2018-07-18 11:37:00 发布

vicanary

最新推荐文章于 2018-07-18 11:37:00 发布

阅读量5.6k

点赞数 7

CC 4.0 BY-SA版权

分类专栏： Vb.net

本文链接：https://blog.youkuaiyun.com/longjuesi/article/details/9819377

Vb.net 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了两种不同的从DataGridView导出数据到Excel的方法，并对比了它们的效率。一种方法是逐个单元格赋值，效率较低；另一种是通过二维数组一次性赋值给Excel指定区域，效率显著提高。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

/********************************************************************************************************************************************************/

1.没有效率的excelsheet.cells(,)赋值

之前从DataGridview中导出数据一直逐行的取值存放到EXCEL指定的单元格中，在很少数据的情况下这样做没有什么问题。但是数据量多时，其效率极其低下，无法容忍，2000多条记录动辄两三分钟。其赋值行为如下：

For int_row As Integer = 0 To _DGV.RowCount - 1  '对每个datagridview的行
     For int_col As Integer = 0 To _DGV.ColumnCount - 1  '对每个datagridview的列
            exlSheet.Cells(int_row + 4, int_col + 1).FormulaR1C1 = _DGV.Rows(int_row).Cells(int_col).Value.ToString  
     Next  
 Next

这样的每次访问都要调用一次EXCEL COM+的接口，所以效率很慢。

2.高效的数组赋值，value2

这样的赋值方式直接用二维数组给excel一个区域进行赋值，速度很快，当然二维数组的“长宽”要和excel的区域“长宽”匹配。

其赋值行为如下：

Dim arr As Array = Array.CreateInstance(GetType(String), DGV.RowCount, DGV.ColumnCount)'建立一个类型为string,一维长度为datagridview的RowCount,二维长度为datagridview的ColumnCount的二维数组

'将datagridview中的值写入数组中
For i As Integer = 0 To DGV.RowCount - 1  
    For j As Integer = 0 To DGV.ColumnCount - 1  
         arr.SetValue(DGV.Rows(i).Cells(j).Value.ToString, i, j)  
    Next  
Next

'设置Excel的区域 
oRange = exlSheet.Range(exlSheet.Cells(4, 1), exlSheet.Cells(_DGV.RowCount + 3, _DGV.ColumnCount))

'将数组的值赋给此区域
oRange.Value2 = arr

3.效率对比

3.1测试环境

3.2对比

4.ps

这样的速度如果还不能满足需求，可以考虑导出为csv格式，这个速度极快。

龙觉寺优快云_BLOG...原创...不总结永远一知半解，一知半解比无知更可怕