操作Excel的一般步骤(VB，VBS中省去AS子句)：
'* 定义变量
Dim xlApp As Excel.Application '* Excel应用程序
Dim xlBook As Excel.Workbook '* 工作簿
Dim xlSheet As Excel.Worksheet '* 工作表

'* 开始
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add '* 创建一个空工作簿，或者用Open方法打开一个簿
Set xlSheet = xlBook.Worksheets("Sheet1")

... '* 数据处理(往单元格中写数据)

'* 结束
xlApp.DisplayAlerts = False '* 没有提示对话框
xlBook.Close True, FileName '* 保存并关闭工作簿(文件名包括路径)
xlApp.Quit '* 关闭Excel