Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet '将对象引用赋值给这些变量。
'用 Add方法 创建新的工作簿和工作表对象。
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
'值赋给Microsoft Excel 单元。
xlSheet.Cells(1, 1).Value = "aaaaaaaaaaaaaa"
xlSheet.Cells(2, 1).Value = "bbbbbbbbbbbbbb"
'保存工作表
xlSheet.SaveAs Application.CurrentProject.Path & "\Temp.xls"
xlBook.Close
Set xlApp = Nothing
MsgBox "完成"