求助，VB6.0下如何快速将大数组数据导入到excel

小弟正用VB6.0编写一个程序，大致内容是把一个杂乱的文本文件中的一些数据选出来导入一个excel中

目前文本处理部分已完成，最后得出了一个大数组：shuzu(50000，10)

由于数据量很大，如果用
For   row2   =   1   To   50000
        For   col2   =   1   To   10
                XLSworkbook2.Worksheets(1).Cells(row2,   col2)   =   shuzu(row2,   col2) 
        Next   col2 
Next   row2 

这样执行时间实在是太久了，无法接受，小弟了解到有某种方法可以不用这样做直接通过内存什么的整体导入excel，可以很快执行完成，但不知道该如何实现，烦请大师指教，谢谢。

 Sheet1.Range("a1", "j50000").Value = shuzu

XLSworkbook2.Worksheets(1).Range("a1", "j50000").Value = shuzu

= shuzu 'shuzu要用数组名。 参考http://blog.csdn.net/lyserver/archive/2010/06/24/5691431.aspx

补充：VB ,  基础类