向word里绘制表格并往表格里面放数据?该怎么处理

向word里绘制表格并往表格里面放数据???????
下面是正确的代码放表格可以,
只是但往里面填充数据好象没用,麻烦给我大家看看,谢谢


Dim   wd           As   New   Word.Application
'插入一个3列6行的表格
wd.Documents.Add   DocumentType:=wdNewBlankDocument
wd.ActiveDocument.Tables.Add   Range:=wd.Selection.Range,   NumRows:=6,   NumColumns   _
                :=3,   DefaultTableBehavior:=wdWord9TableBehavior,   AutoFitBehavior:=   _
                wdAutoFitFixed

'给每行表格插入数据
Set   oDoc   =   Word.ActiveDocument
        Set   oTable   =   oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,   End:=0),   NumRows:=6,   NumColumns:=3)
        iCount   =   1
        For   Each   oCell   In   oTable.Range.Cells
        oCell.Range.InsertAfter   "第   "   &   iCount   &   "单元格 "
        iCount   =   iCount   +   1
        Next   oCell
        oTable.AutoFormat   Format:=wdTableFormatColorful2,   ApplyBorders:=True,   ApplyFont:=True,   ApplyColor:=True

'将光标移到最后
wd.Selection.EndKey   Unit:=wdStory
'插入分页符
wd.Selection.InsertBreak   Type:=wdPageBreak
wd.Visible   =   True
wd.ShowMe
Set   wd   =   Nothing

[解决办法]
向楼主学习!
哈哈!