WinCC 7.0 用户归档+Listview控件 制作报表（三）

导出

  上一篇介绍了查询的VBS脚本，导出到Excel的功能同样也通过脚本来实现，也需要连接数据，查询需要的数据。与查询功能不同的是，导出功能是把数据写入到Excel中，而不是显示到ListView控件上。这里给“导出”按钮的事件属性——“鼠标动作”中添加VBS脚本。

1、查询数据
  这部分和查询的脚本一样，连接数据库，先比较日期，然后再通过查询字符串进行查询操作。

'定义连接字符串
Dim sPro,sDsn,sSer,sCon
sPro = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=false;"
sDsn = "Initial Catalog=CC_test_17_12_18_11_29_28R;"
sSer = "Data Source=ADMIN-PC\WINCC"
sCon = sPro + sDsn + sSer

Dim date1,date2,D1,D2
Set D1=ScreenItems("DTP1")   'DTP1获取的为系统短时间格式 "2017/12/28 10:00:00"
Set D2=ScreenItems("DTP2")
date1 = Split(D1.value," ",-1,1)
date2 = Split(D2.value," ",-1,1)
Dim dt1,dt2
dt1 = CStr(date1(0))&" "&"00:00:00"
dt2 = CStr(date2(0))&" "&"23:59:59"

'比较两个日期得大小   
If DateDiff("d", CDate(D1.value), CDate(D2.value)) < 0