'引用Microsoft Excel 9.0 Object Library(Offic2000，Office2003的为Microsoft Excel 11.0 Object Library)
   Dim newxls As New Excel.Application
   Dim newbook As Excel.Workbook
   Dim newsheet As Excel.Worksheet
   newxls.Visible = True  '界面可见，当要后台处理的时候，可以让newxls.Visible = False
   Set newbook = newxls.Workbooks.Add  '添加工作簿
   Set newsheet = newbook.Worksheets(1)  '引用工作表
   newsheet.Columns("A").ColumnWidth = 5  'A列的宽为5
   newsheet.Columns("B:K").ColumnWidth = 15  'B~K列的宽为15
   newsheet.Rows(1).Font.Bold = True  '第一行粗体
   For i = 0 To 10
       newsheet.Rows(i + 1).HorizontalAlignment = xlCenter  '居中显示
       For j = 0 To 19
           newsheet.Cells(i + 1, j + 1) = (i+1)*(j+1)  '添加数据
       Next
   Next

   ''引用Microsoft Word 9.0 Object Library(Offic2000，Office2003的为Microsoft Word 11.0 Object Library)
   Dim newword As Word.Application
   Dim newdoc As Word.Document
   Set newword = CreateObject("Word.Application")
   Set newdoc = newword.Documents.Add  '添加文档
   newword.Visible = True  '界面可见，当要后台处理的时候，可以让newxls.Visible = False
   newdoc.Content.Text = "1234567890"  '在文档上添加内容
   newdoc.Range(0, 10).Font.Size = 24  '文字大小
   newdoc.Range(0, 10).Bold = True  '粗体