关于通过COM自动化调用Excel的效率问题

如果笔者告诉你，往Excel表格中写几十万条数据不会超过10秒钟，而不是通常设想的数分钟甚至数十分钟，你是否会相信，但实际情况就是这样。在Office开发中，最为常用的对象就是Range对象，而最被误用的对象也是Range对象。下面笔者举一个简单的例子说明如何有效的使用Range对象，以导出数据到Excel。

在实践中，通过COM自动化调用Excel，不管是通过VB还是通过VSTO在.net下调用Excel，最为耗时的操作就是对Range的操作，而Excel对象、WorkBook和WorkSheet对象的创建通常会在1-3秒内完成（笔者计算机上测试最多不会超过5秒）。如果我们需要向Excel中导出大量数据，一般的做法是（使用晚绑定）：

 

 1 Sub  test1()
 2        Dim  objExcel  As   Object
 3        Dim  objBook  As   Object
 4        Dim  objSheet  As   Object
 5        Dim  objRng  As   Object
 6        Dim  i  As   Long , j  As   Long
 7       
 8        Set  objExcel  =   CreateObject ( " Excel.Application " )
 9        Set  objBook  =  objExcel.Workbooks.Add()
10        Set  objSheet  =  objBook.Worksheets( 1 )
11        Set  objRng  =  objSheet.Range( " A "   &   1   &   " : "   &   " J "   &   2000 )
12       
13        With  objRng
14              For  j  =   1   To   2000  Step  1
15                    For  i  =   1   To   10  Step  1
16                         .Cells(j, i).Value  =   CStr (j)
17                    Next  i
18              Next  j
19        End   With
20       
21       objExcel.Visible  =   True
22       
23        Set  objBook  =   Nothing
24        Set  objSheet  =   Nothing
25        Set  objExcel  =   Nothing
26 End Sub
27
28

这段程序大概需要执行2分钟左右（注意，数据一共是2000行；笔者的机器是Dell i8500笔记本，P4 2.0，512内存）甚至更长。使用早期绑定和晚期绑定对于这样的程序，差别很小。

如果测试一下，可以发现时间主要花在Range的操作上。查一下Excel的文档，可以看到，Range对象可以和数组进行很好的互操作。在笔者正在进行的《Excel与VBA程序设计》中关于效率一节（7.7）对Range对象的使用，特别是大数据量频繁引用的情况下，需要使用数组代替，但没有展开讨论。

例如将Range赋给数组：vData = ActiveSheet.Range("A1:B10").Value
vData 就是一个数组。反过来，使用：
ActiveSheet.Range("D1:E10").Value = vData
就可以将数组vData的值赋给Range，如果Range的范围较小，则自动截断。

下面，我们将上面的例子使用此思路修改为以下的样子（这次数据一共为20000行，是上边的10倍）：

 1 Sub  Test2()
 2     
 3      Dim  objExcel  As   Object
 4      Dim  objBook  As   Object
 5      Dim  objSheet  As   Object
 6      Dim  objRng  As   Object
 7      Dim  i  As   Long , j  As   Long
 8
 9      Set  objExcel  =   CreateObject ( " Excel.Application " )
10      Set  objBook  =  objExcel.Workbooks.Add()
11      Set  objSheet  =  objBook.Worksheets( 1 )
12      Set  objRng  =  objSheet.Range( " A "   &   1   &   " : "   &   " J "   &   20000 )
13         
14      Dim  a( 1   to   20000 ,  1   to   10 )  As  Variant
15     
16      For  j  =   1   To   20000  Step  1
17         
18          For  i  =   1   To   10  Step  1
19             a(j, i)  =   CStr (j)
20          Next  i
21         
22      Next  j
23     
24     objRng.Value  =  a
25     
26     objExcel.Visible  =   True
27     
28      Set  objBook  =   Nothing
29      Set  objSheet  =   Nothing
30      Set  objExcel  =   Nothing
31     
32 End Sub
33

这段程序在笔者机子上运行时间为2-4秒，一般为2.x秒，效率差别可见一斑。

一般来说，我们向Excel中写数据，很多数据块应该都是可以使用数组代替的，这种情况下，先生成数组，再将数组赋给Excel的Range对象，即可大大提高效率（而且，数据量越大，效率差别越大）。