Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim oItem
Dim m, n, s,i
Dim hourdate
Dim secdate
Dim k
Dim oList
Dim objExcelApp
Dim oItem2
Dim dt1,dt2
dt1=DateAdd("H",-8,ScreenItems("控件12").VALUe) ‘查询的起始时间，wincc采用世界标准的格林时间，与咱的时间差8个小时
dt2=DateAdd("H",-8,ScreenItems("控件13").VAlUe) ‘查询的终止时间
‘下面三行代码是查询所需要的提供者数据源等等
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_0414_08_04_14_20_46_43R;" ‘改为你的wincc工程的数据库名，
‘打开sql有两个与你工程有关的，选择带R的那个
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer’查询链接串
sSql= "TAG:R,'ProcessValueArchive\"&ScreenItems("控件8").ValUe&"','"&dt1&"','"&dt2&"'"
‘上面这一句是查询语句，从SQL for wincc数据库中查询，可以多项查询，详见课本
MsgBox "Open with:" & vbCr & sCon & vbCr & sSql & vbCr
‘下面是ADODB查询，需要用到上面的查询链接串，不需要修改
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute’oRS为查询得到的记录集
Set objexcelApp=CreateObject("excel.application")
objexcelApp.visible=True
objexcelapp.workbooks.open"d:\book.xls"
objExcelApp.Sheets(1).Range("a"&Trim(1)) =oRs.Fields(0).Name ‘以下五行是把字段名写到excel的第一行, ，oRS.Fields(0)为查询得到的记录集的第一个字段
objExcelApp.Sheets(1).Range("b"&Trim(1)) = oRs.Fields(1).Name
objExcelApp.Sheets(1).Range("c"&Trim(1)) = oRs.Fields(2).Name
objExcelApp.Sheets(1).Range("d"&Trim(1)) = oRs.Fields(3).Name
objExcelApp.Sheets(1).Range("e"&Trim(1)) = oRs.Fields(4).Name
For i=1 To oRs.RecordCount ‘做循环查询
objExcelApp.Sheets(1).Range("a"&Trim(i+1)) =oRs.Fields(0).value
objExcelApp.Sheets(1).Range("b"&Trim(i+1)) =DateAdd("H",8,oRs.Fields(1).value) ’格林时间
objExcelApp.Sheets(1).Range("c"&Trim(i+1)) = FormatNumber(oRs.Fields(2).value, 1)
objExcelApp.Sheets(1).Range("d"&Trim(i+1)) = FormatNumber(oRs.Fields(3).value, 1)
objExcelApp.Sheets(1).Range("e"&Trim(i+1)) = FormatNumber(oRs.Fields(4).value, 1)
oRs.MoveNext
Next
oRs.Close’一下为关闭excel,关闭连接等，释放资源
‘objexcelapp.activeworkbooks.save
‘objexcelapp.workbooks.close
‘objexcelapp.quit
Set objexcelapp=nothing
Set oRs = Nothing
conn.Close
Set conn = Nothing
查询单个已经实现了，我看书上查询多个的语句是这么写的TAG:R,('valname1';'valname2'),----
上面那一步照葫芦画瓢能实现，可是继续应该怎么写呢？得到记录集oRs
譬如这两个变量都有四个字段，那么第一个变量对应oRs.Fields(1) oRs.Fields(2)
oRs.Fields(3) oRs.Fields(4)
第二个变量
对应oRs.Fields(5) oRs.Fields(6)
oRs.Fields(7) oRs.Fields(8) 吗？
如果不是应该怎么写呢
问题补充：
就是查询多个变量然后写入到Excel中啊
最佳答案
第二个变量不是 oRs.Fields(5) 这样排下去，它是字段固定，数据依次向后罗列的！
提问者对于答案的评价：
先到者先得了，谢谢各位帮助，的确如你们所说，数据依次所列
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc274284.html
微信扫一扫 
支付宝扫一扫 