notes数据导出至Excel

 Dim ExcelApplication As Variant 
 Dim ExcelWorkbook As Variant 
 Dim ExcelSheet As Variant 
 
 '打开Excel
 Set ExcelApplication = CreateObject("Excel.Application")
 
 '设置参数
 ExcelApplication.Visible = False   
 Set ExcelWorkbook = ExcelApplication.Workbooks.Add 
 With ExcelWorkbook 
  .Title = "CMM问题单状态追踪"
  .Subject = ""
  .Author = "集成交付组"
 End With  
 Set ExcelSheet = ExcelWorkbook.Worksheets("Sheet1")
 ExcelWorkbook.Sheets("Sheet1").Name = "output" 
 ExcelApplication.Caption = "CMM问题单状态统计"
 
 '插入数据
 Excelsheet.cells(1,1).value = "eeeeee"
 Excelsheet.cells(1,2).value = "bbb"
 Excelsheet.cells(1,3).value = "ccc"
 Excelsheet.cells(2,1).value = "ddd"
 
 '保存并退出Excel
 Dim ExcelName As String      
 Dim sTime As String
 
 sTime=Cstr(Format(Now, "YYYYMMDDHHmmSS")) 
 ExcelName = "D:/CMM_" + sTime + ".xls"   
 ExcelApplication.workbooks(1).saveas(ExcelName)
 'ExcelApplication.save '弹出对话框，让用户手动选择保存地址
 ExcelApplication.workbooks.close
 ExcelApplication.Quit