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

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

@H_404_12@之前从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.1测试环境

3.2对比

4.ps

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

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