Dim xlApp As Excel.Application       '定义对象
Dim xlBook As Excel.WorkBook      '定义对象
Dim xlSheet As Excel.Worksheet    '定义对象

Set  xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set  xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set  xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

注:在2003的Office里,是无法在VB里直接引用的,须在浏览里指向到 Excel.Exe 这个文件