当前位置：主页 > PLC控制

WinCC、Excel、VBA、脚本、连通性软件包?

西门子有做个wincc、Excel、VBA、脚本、连通性软件包的例子，也就是在EXCEL宏指令做日报表，现在测试通了，选择日期会有数据出来，关键是有两个问题：一是WINCC中变量数据是25.6，那么打开EXCEL的数据变成了25.0，EXCEL的单元格式也没错设置成1234.0，EXCEL中总是小数点后面的数据显示不出来是怎么回事？二是假设现在是上午整点10点开始运行WINCC并触发变量记录数据了，但是到EXCEL中变成了00点那一行数据，如图；以下是EXCEL的宏指令代码：
DimsPro,sDsn,sSer,sCon,sSql
Dimconn,oRs,oCom
DimDSNName
DimiASInteger
DimsSTaRT,sStopAsString

Subget_wincc_data()

‘–GetDatabaseDSNname———————————–
SetDSNName=CreateObject("CCHMIRuntime.HMIRuntime")
sDsn=DSNName.Tags("@DatasourceNameRT").Read

‘–buildconnectionstring———————————–
sPro="Provider=WinCCOLEDBProvider.1;"
sDsn="Catalog="&sDsn&";"
sSer="DataSource=HH\WinCC"
sCon=sPro&sDsn&sSer
Setconn=CreateObject("ADODB.Connection")
conn.ConnectionString=sCon
conn.CursorLocation=3
conn.Open
SetoRs=CreateObject("ADODB.Recordset")
SetoCom=CreateObject("ADODB.Command")
oCom.CommandType=1
SetoCom.ActiveConnection=conn

‘查询启止时间
sStart=Year(DTPicker1.Value)&"-"&Month(DTPicker1.Value)&"-"&Day(DTPicker1.Value)&"00:00:00"
sStop=Year(DTPicker1.Value)&"-"&Month(DTPicker1.Value)&"-"&Day(DTPicker1.Value)&"23:00:00"

‘转为UTC时间
sStart=DateAdd("h",-8,CDate(sStart))
sStop=DateAdd("h",-8,CDate(sStop))

‘读取Fan1_T1
sSql="Tag:R,(‘ProcessValueArchive\A’),’"&sStart&"’,’"&sStop&"’orderbydatetime"
oCom.CommandText=sSql
SetoRs=oCom.Execute
If(oRs.EOF)Then
oRs.Close
Else
oRs.MoveFirst
i=0
DoWhileNotoRs.EOF
Sheet1.Cells(i+4,2)=oRs.Fields("RealValue").Value
oRs.MoveNext
i=i+1
Loop
oRs.Close
EndIf