操作Excel时,如果数据量大的话,赋值是比较耗费时间的事.
以前一直是用 xlSheet.Cells(iStartCoumnIndex, iColumnIndex + 1) = dtRpt.Rows(iRowIndex)(iColumnIndex)
这样一个cell一个cell赋值结果,当数据量大时,生成的速度慢的很(有种假死的感觉).
网上一位牛人是这样说的:点这里.
--------------------转--------------------
由于对Excel的Cell赋值效率很低(因为每对Cell赋一次值都回导致调用一次Excel COM+组件的接口)，所有如果数据多起来的话，对Excel COM+组件的访问就会很频繁，从而导致程序运行效率极其低下。
要解决这个问题主要是减少对Cell的访问次数。查阅Excel的API可知，可以通过对它的一个属性Value2赋值（数组）来实现和上述代码一样的作用。这就可以避免了频繁访问Cell而导致的性能急剧下降。
-------------------转---------------------
如下这样的,效率就会很慢
myexcel.Cells[i + 8, j + 1] =value
当数量量大时就回非常慢
改成如下方式效率应该可以得到质的飞跃
Dim aryRowData As Array = Array.CreateInstance(GetType(Object), dtRpt.Rows.Count, dtRpt.Columns.Count)
For iRowIndex = 0 To dtRpt.Rows.Count - 1
For iColumnIndex = 0 To dtRpt.Columns.Count - 1
aryRowData.SetValue(dtRpt.Rows(iRowIndex)(iColumnIndex), iRowIndex, iColumnIndex)
Next
iStartCoumnIndex += 1
Next
xlSheet.Range(xlSheet.Cells(9, 1), xlSheet.Cells(iStartCoumnIndex - 1, dtRpt.Columns.Count)).Value = aryRowData
嘿嘿,希望对大家有所帮助!
