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

本文介绍了两种不同的从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...原创...不总结永远一知半解,一知半解比无知更可怕

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值