最近需要将WINCC归档数据导入到EXCEL表格中进行保存输出，想用的方式是WINCC OLE DB ,但是自己这块是个新手，所以请高手帮忙下

1.建立数据库连接
"provider=WinCCOLEDBProvider.1;catalog=CC_gz_food_09_07_14_14_54_22R;data source=wincc01\WinCC"

2.查询归档数据
“TAG:R(1，2，3，4，5，6，7，8),'2014-10-22 09:03:00.000','2014-10-22 09:10:00.000'”
3.创建EXCEL模板，打开EXCEL表格
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open "D:\WinCCWriteExcel\abc.xlsx"
objExcelApp.Worksheets(sheetname).Activate

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
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
cc1.Close
Set cc1 = Nothing
Set rst = Nothing

前两步，我能看懂，后面就不太明白了，我上传下想要实现的表格，请各位指点一下，如何才能实现，谢谢