您的位置:首页 > 其它

.net 操作Excel 高效率方法,提升速度

2010-04-22 01:30 393 查看
操作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
嘿嘿,希望对大家有所帮助!
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: