VB写WORD如何这么慢

VB写WORD怎么这么慢?
For   RowNum   =   2   To   FreCount   +   1
                Print   #100,   RowNum
                wdTable.Rows(RowNum).Cells(1).Range.InsertAfter   FreqToStr(OverSTDTable(RowNum   -   2).StartFre)
                wdTable.Rows(RowNum).Cells(2).Range.InsertAfter   FreqToStr(OverSTDTable(RowNum   -   2).EndFre)
                wdTable.Rows(RowNum).Cells(3).Range.InsertAfter   FreqToStr(OverSTDTable(RowNum   -   2).EndFre   -   OverSTDTable(RowNum   -   2).StartFre)
        Next
当中第一步的循环要将近1秒钟,难道是这样吗??
总共有2000步,那不等死人??

我的数据是通过datagrid读入的,请问有没有办法将datagrid当中的数据直接写到WORD的表格当中??

或者还有什么办法??

[解决办法]
表格用excel或者access写不更简单明了么？不懂楼主意思。。。。。