如何用vb调用word,画出表格，然后向表格中写入东西

为什么不用VB在Excell里写东西呢？也可以打印并作出相应设置的。如果可以在Excell中使用的话，请与俺联系，俺给你操作代码。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在“工程”菜单-->"引用"选项内选中“Microsoft Excel 11.0 Objiect library”
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim xlApp As Excel.Application ’定义Excel对象
Dim xlBook As Excel.Workbook ’定义工作表对象
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '-------------创建excell对象!!!
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1) '指定工作表1
'-------------------------------------

'--------赋值语句---------------------
' xlSheet.Cells(1, 1) = "序号"
xlSheet.Cells(1, 1) = "项目" 'xlSheet.Cells(i, j) ------ i:行定位;j:列定位.
xlSheet.Cells(1, 2) = "单位"
xlSheet.Cells(1, 3) = "数据"
xlSheet.Cells(1, 4) = "备注"