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

操作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

嘿嘿,希望对大家有所帮助!

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值