Dim xlApp '* Excel应用程序
Dim xlBook '* 工作簿
Dim xlSheet '* 工作表

Set xlApp = CreateObject("Excel.Application")
'Set xlBook = xlApp.Workbooks.Add '* 创建一个空工作簿
Set xlBook = xlApp.Workbooks.Open "d:\neimeng\Book2.xls" '打开一个已存在的工作簿
Set xlSheet = xlBook.Worksheets("Sheet1")

With xlSheet
.Cells(Row, Col) = Data '给单元格赋值
End With