求用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例子程序

''SQL查询语句
  Dim strc as string
  strc = "provider=WinCCOLEDBProvider.1;catalog=CC_RebdI_09_06_22_10_38_35R;data source=ComputerName\WinCC" 
         ''这个连接字符串可以在SQl2000中看到
  Dim cc1
  Set cc1=CreateObject("adodb.connection")
      cc1.ConnectionString=strc 
      cc1.CursorLocation=3
      cc1.open
  Dim rst As Object
  Set rst = CreateObject("adodb.recordset")
  dim ssql as string
      ssql = "Tag:R,'Archive_3\DB1DBD0','2009-7-29 00:00:00.0000','2009-7-29 23:59:59.999','timestep=3600,258'"
              ''Archive_3\I_DB1DBD0归档和变量
              ''2009-7-29 00:00:00.0000,2009-7-29 23:59:59.999时间段
              ''timestep=3600,258每阁多少秒拿一个数据(3600=1小时),258表示每个时间段取最后一个数据
  rst.Open ssql, cc1
  ''这样查出来的数据就是一天的每小时的数据
  ''对rst记录集处理就可以得到你要的数据