3.创建EXCEL模板，打开EXCEL表格
Set objExcelApp = CreateObject("Excel.Application")//创建一个Excel应用
objExcelApp.Visible = False//不可见
objExcelApp.Workbooks.Open "D:\WinCCWriteExcel\abc.xlsx"//打开路径下的abc.xlsx文件
objExcelApp.Worksheets(sheetname).Activate//当前sheet是sheetname对应的

4.给EXCEL表格写入数据
Dim ssql As String
ssql = "TAG:R,'speed1\c_speed1_1','2009-09-24 09:19:00.000','2009-09-24 09:20:00.000'"
rst.Open ssql, cc1//打开变量c_sppeed1_1在,'2009-09-24 09:19:00.000','2009-09-24 09:20:00.000'时间段内的记录
rst.MoveFirst//记录指针指向第一个记录
objExcelApp.worksheets ("sheet1").Cells(i, 2).VAlue = rst.fields(1).value
objExcelApp.worksheets ("sheet1").Cells(i, 3).VAlue = rst.fields(2).value
objExcelApp.worksheets ("sheet1").Cells(i, 4).VAlue = rst.fields(3).value//把记录中每一个字段的值赋值给Excel中的表格单元
cc1.Close
Set cc1 = Nothing
Set rst = Nothing//关闭记录，释放句柄