From excel to wincc

**

WINCC7.3 / 7.4 Запросить отображение базы данных и экспорт EXCEL через VBS скрипт ссылки базы данных

В качестве системы визуализации Siemens Wincc может использоваться для отслеживания данных. Эта статья расскажет о WINCC7.3 / 7.4 через отображение базы данных запросов базы данных ссылок на скрипты VBS и экспорт EXCEL.

1. Запросить базу данных SQL и отобразить данные в элементе управления MSFlexGrid

   Откройте базу данных:

Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persis Security Info=False;Initial Catalog=Data;Data Source=.WINCC"
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=Con
conn.CursorLocation=3
conn.Open

Затем вам нужно написать операторы SQL-запроса в соответствии с вашими потребностями, включая различные условия запроса.
Выполнить инструкцию SQL:

Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=conn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs=oCom.Execute

Затем заполните запрашиваемые данные в элементе управления MSFlexGrid, ширину и высоту таблицы можно определить с помощью скрипта

MSFlexGrid1.TextMatrix(i,0)=oRs.Fields(0).value
MSFlexGrid1.TextMatrix(i,1)=oRs.Fields(1).value

2. Запросите базу данных SQL и экспортируйте данные в EXCEL
Экспорт EXCEL в основном аналогичен отображению данных в элемент управления MSFlexGrid. Он также является первым для запроса. Единственное отличие состоит в том, что вам нужно установить шаблон EXCEL, а объектом заполнения является EXCEL.

Откройте шаблон EXCEL:
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible=False
 objExcelApp.Workbooks.Open "D:  templates  record.xlsx"

Далее заполняем данные в шаблоне EXCEL:

objExcelApp.Cells(i,1).Value=oRs.Fields(0).value
objExcelApp.Cells(i,2).Value=oRs.Fields(1).value

Наконец, сохраните EXCEL как:

objExcelApp.DisplayAlerts=False
objExcelApp.activeworkbook.saveas excel_name
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing
``! [Вставьте сюда описание изображения] (https://img-blog.csdnimg.cn/20190302202137237.PNG?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM9FF4Ly9
 Здесь, спасибо за помощь, предоставленную по этой ссылке: https://item.taobao.com/item.htm?spm=a1z38n.10677092.0.0.144b1debi8oDOW&id=570401337752

 

1 <Overview>

In industrial production, the report has always been a very important part. It is generally used to record the process parameters, energy consumption information and statistics on the scene, as the basis for analyzing the operation of the enterprise.
This article uses WinCC V7.5 SP1 as an example, describing how WinCC acquires the device’s running data statistics and presents statistics in the form of a report, as shown in Figure 1:

The following functions can be implemented:

• Automatic logging device (full point statistics)
• Timed storage daily report (Excel format)
• Use the web control to display the HTM report file

2 <Create Template>

Create a Report folder under the WinCC project folder, as shown in Figure 2, Figure 3:

3 <WinCC Variables>

Two WinCC variables are required in this example. One is the WinCC external variable related to the device running data, including running data, energy consumption data, etc., created according to the actual situation of the project. The other is a variable for all point storage, which will be introduced to read the current time (h value) using the WinCC system variable. As shown in Figure 4

4 <Create Global Action>

There are two files in global action:

• Action 1:
  • Create a temporary storage file using the template
  • Touch the hair every day 00:00:02 seconds
  • Press «File Name — Date» format COPY data to the specified report path
• Action 2:
  • Read the read data for the whole point and store the temporary storage file

4.1 Action 1 Script: Create File and Copy Report

The global action script is as follows:

Option Explicit
Function action
    Dim objexcelapp,objexcelbook,objexcelsheet
    Dim sheetname
    Dim dstr,path,fn,cow,fso
    
    Dim MyFile
    Dim TempFileName,TemplateFileName,DestFile
    
    TemplateFileName = Hmiruntime.ActiveProject.path & " report  Daily Report  Smart Air Compressive Station Running Daily News _ Template .xlsx"
    
         TempFileName = Hmiruntime.ActiveProject.path & " report  Daily report  Smart Air Compressive Station Running Daily News. Xlsx"
    
         Destfile = "E:  Report"
    
    dstr = CStr(Year(Now)) & "-" & CStr(Month(Now)) & "-" & CStr(Day(Now)) & " " & CStr(Hour(Now)) & ":" & CStr(Minute(Now))
    
    fn = CStr(Year(Now)) & CStr(Month(Now)) & CStr(Day(Now)) & CStr(Hour(Now)) & CStr(Minute(Now))
    
         Sheetname = "Air Compressor"
    Set fso = CreateObject("scripting.FileSystemObject")
    Set objexcelapp = CreateObject("Excel.Application")
    Set MyFile = fso.GetFile(TemplateFileName)
    
    objexcelapp.visible = False
    objexcelapp.Workbooks.open TempFileName
    objexcelapp.Worksheets(sheetname).Activate
    
    objexcelapp.ActiveWorkbook.SaveAs(DestFile & fn & ".xlsx")
    objexcelapp.ActiveWorkbook.SaveAs(DestFile &"web"& fn & ".htm"),44
    MyFile.Copy (TempFileName),True
    objexcelapp.Workbooks.Close
    objexcelapp.Quit
    Set objexcelapp = Nothing
                    
End Function

The action trigger cycle is 00:00:02 daily, as shown in Figure 5 below:

4.2 Global Action 2: Whole Point Storage Data

The global action 2 script is as follows, and the part code is modified according to the actual situation of the project.

Option Explicit
Function action

    Dim objexcelapp,objexcelbook,objexcelsheet
    Dim a,b,c,d,sheetname
    Dim dstr,path,fn,cow
    Dim TempFileName
         TempFileName = Hmiruntime.ActiveProject.path & " report  Daily report  Smart Air Compressive Station Running Daily News. Xlsx"
    cow = 4
    dstr = CStr(Year(Now)) & "-" & CStr(Month(Now)) & "-" & CStr(Day(Now)) & " " & CStr(Hour(Now)) & ":" & CStr(Minute(Now))
    
         Sheetname = "Air Compressor"
    
    
    Set objexcelapp = CreateObject("Excel.Application")
    
    objexcelapp.visible = False
         Objexcelapp.workbooks.open tempfilename 'opens a temporary storage file
    objexcelapp.Worksheets(sheetname).Activate
    a = HMIRuntime.Tags("IntHour").Read
    
    With objexcelapp.worksheets(sheetname)
        
        .cells(a + cow,1) = dstr
                 .Cells (a + cow, 2) = hmiruntime.tags ("Integer Transfer Point Number_PLC_SD"). Read
                 .cells (a + cow, 3) = hmiruntime.tags ("Integer Transfer Point Number_PLC_WD"). Read
        .cells(a + cow,4) = HMIRuntime.Tags("ZLAN1_1_ZGSSLL1").Read
        .cells(a + cow,5) = HMIRuntime.Tags("AI_2_AI_CQG_PRESS1").Read
        .cells(a + cow,6) = HMIRuntime.Tags("AI_AI_WATER_TEMP_IN").Read
        .cells(a + cow,7) = HMIRuntime.Tags("AI_AI_WATER_IN_PRESS").Read
        .cells(a + cow,8) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_1").Read
        .cells(a + cow,9) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_1").Read
        .cells(a + cow,10) = HMIRuntime.Tags("ZLAN1_3_ZD1_1").Read
        .cells(a + cow,11) = HMIRuntime.Tags("ZLAN1_3_ZD2_1").Read
        .cells(a + cow,12) = HMIRuntime.Tags("ZLAN1_3_ZD3_1").Read
        .cells(a + cow,13) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_1").Read
        .cells(a + cow,14) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_1").Read
        .cells(a + cow,15) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN1").Read
        
        .cells(a + cow,16) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_2").Read
        .cells(a + cow,17) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_2").Read
        .cells(a + cow,18) = HMIRuntime.Tags("ZLAN1_3_ZD1_2").Read
        .cells(a + cow,19) = HMIRuntime.Tags("ZLAN1_3_ZD2_2").Read
        .cells(a + cow,20) = HMIRuntime.Tags("ZLAN1_3_ZD3_2").Read
        .cells(a + cow,21) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_2").Read
        .cells(a + cow,22) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_2").Read
        .cells(a + cow,23) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN2").Read
        
        
        .cells(a + cow,24) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_3").Read
        .cells(a + cow,25) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_3").Read
        .cells(a + cow,26) = HMIRuntime.Tags("ZLAN1_3_ZD1_3").Read
        .cells(a + cow,27) = HMIRuntime.Tags("ZLAN1_3_ZD2_3").Read
        .cells(a + cow,28) = HMIRuntime.Tags("ZLAN1_3_ZD3_3").Read
        .cells(a + cow,29) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_3").Read
        .cells(a + cow,30) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_3").Read
        .cells(a + cow,31) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN3").Read
        
        
        .cells(a + cow,32) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_4").Read
        .cells(a + cow,33) = HMIRuntime.Tags("ZLAN1_4_LTLS_4").Read
        .cells(a + cow,34) = HMIRuntime.Tags("ZLAN1_3_ZD1_4").Read
        .cells(a + cow,35) = HMIRuntime.Tags("ZLAN1_3_ZD2_4").Read
        .cells(a + cow,36) = HMIRuntime.Tags("ZLAN1_3_ZD3_4").Read
        .cells(a + cow,37) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_4").Read
        .cells(a + cow,38) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_4").Read
        .cells(a + cow,39) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN4").Read
        
        .cells(a + cow,40) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_8").Read
        .cells(a + cow,41) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_8").Read
        .cells(a + cow,42) = HMIRuntime.Tags("ZLAN1_3_ZD1_8").Read
        .cells(a + cow,43) = HMIRuntime.Tags("ZLAN1_3_ZD2_8").Read
        .cells(a + cow,44) = HMIRuntime.Tags("ZLAN1_3_ZD3_8").Read
        .cells(a + cow,45) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_8").Read
        .cells(a + cow,46) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_8").Read
        .cells(a + cow,47) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN8").Read
        
    End With
    
    objexcelapp.ActiveWorkbook.Save
    objexcelapp.Workbooks.Close
    objexcelapp.Quit
    Set objexcelapp = Nothing
End Function

The action trigger cycle is 00:05 seconds per hour, as shown in Figure 6 below:

5 <Production Reports Screen>

WinCC report screen is divided into several features:

• Click on the «Real Time Report» button to show the data today.
• Traversal folder All report files (HTM format) to the list box, select the «Historical Report Query» button after check

5.1 Control Add

• ** Web Control: ** Microsoft Web Browser, «MyWeb»
• ** list box control: ** Microsoft Lisview Control, «ListBox1»
• ** Button Control: ** Button («Real Time Report», «Historical Report Query»)
  Control add mode
  Right-click on the ActiveX control, select Add / Remove, then select in the OCX control list
  Microsoft Lisview Control and Microsoft Web Browser. As shown in the following figure
  Show:
  

5.2 script

• Form script
  After the form is open, perform the Web Control Load «Real Time Report», and add a folder to the list box to all report names.
  «Form Object» — «Other» — «Open Screen», perform VB scripts, as shown below:

Sub OnOpen()                                                
	On Error Resume Next
	Dim fso, f, f1, fc, N 
    Dim lst,wbCtrl

	Set lst = ScreenItems("listbox1")
	Set wbCtrl = ScreenItems("myweb")
	
	Set fso = CreateObject("scripting.FileSystemObject")
	 Set f = fso.getfolder ("E:  Report  Web Format))
	Set fc = f.Files
	
	N = 0
	For Each f1 In fc   
	    N = N + 1
	    lst.Index N
	    lst.Text f1.name
	Next
    lst.NumberLines =N
	lst.SelIndex ="1"
	lst.Sort = 1
	
	 Wbctrl.navigate hmiruntime.activeproject.path & " report  Daily report  Web  Smart Air Compressive Station Operation Daily. HTM"

End Sub

• Button «Real Time Report» VB script

Sub OnClick(Byval Item)  
  
	On Error Resume Next
	item.Enabled = False
	Dim lst,wbCtrl
	Dim Value1
	Set wbCtrl = ScreenItems("myweb")
	Set lst = ScreenItems("listbox1")
	Value1 = lst.SelText
	
	 Wbctrl.navigate hmiruntime.activeproject.path & " report  Daily report  Web  Smart Air Compressive Station Operation Daily. HTM"
	item.Enabled = True

End Sub

• Button «Historical Report Query» VB script

Sub OnClick(Byval Item)  
	On Error Resume Next
	item.Enabled = False                                
	Dim lst,wbCtrl
	Dim Value1
	Set wbCtrl = ScreenItems("myweb")
	Set lst = ScreenItems("listbox1")
	
	Value1 = lst.SelText
	 Wbctrl.navigate "E:  Report  Web Format " & Value1
	item.Enabled = True
End Sub

6 <Run Results>

Basic >> Advanced >> Professional