Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

Wincc and VBA

Created by: STEP7 at: 5/10/2021 8:21 PM (6 Replies)

Rating (0)

Thanks 0

7 Entries

5/10/2021 8:21 PM	Rate (0)
STEP7 Regular Member Joined: 1/29/2006 Last visit: 3/3/2025 Posts: 15 Rating: (1)	I have developed some code in VBA which reads some tags from wincc do some math and send data to cloud. Everything works nice in VBA when I start the code. But the idea is to run the same code in VBS schedueled once a day unfortunately it does not work even if the same code is added on button and mouse event added the code is not executed. Is there some way to make code from VBA run in VBS. To run the code it was necessary to add two references in VBA. There are no errors in VBA or VBS
	Last edited by: STEP7 at: 05/10/2021 20:22:59
Suggestion To thank Quote Answer

5/14/2021 11:19 AM	Rate (0)
bg2492 Posts: 7298 Rating: (2188)	Hello STEP7, inside the WinCC-Runtime you can only use VBS, not VBA. The syntax of VBA something different as of VBS. see the manual: "SIMATIC HMI WinCC V7.5 WinCC Information System" "VBS Reference" https://support.industry.siemens.com/cs/ww/en/view/109762744/102595739915 Regards Georg Berghof
bg2492 Posts: 7298 Rating: (2188)	Last edited by: bg2492 at: 05/14/2021 11:19:56
Suggestion To thank Quote Answer

5/15/2021 6:00 PM	Rate (0)
STEP7 Regular Member Joined: 1/29/2006 Last visit: 3/3/2025 Posts: 15 Rating: (1)	Dear Mr. Berghof Thank you for your answer. Before posting question I have looked at complete manual but did not find the way to combine things from both "worlds". So is there a way for example to write something in VBA and then to call it in VBS. If yes please some usefull link. Thank you for response

Suggestion To thank Quote Answer

5/16/2021 3:32 PM	Rate (0)
PHS Silver Member Joined: 9/19/2009 Last visit: 5/10/2025 Posts: 460 Rating: (85)	STEP7 Dear Mr. Berghof Thank you for your answer. Before posting question I have looked at complete manual but did not find the way to combine things from both "worlds". So is there a way for example to write something in VBA and then to call it in VBS. If yes please some usefull link. Thank you for response Hi You can make the following test From Runtime, you will call open the grafic designer with VBScript , and open one screen, with this event, you will call your VBA code, then you will shutdown the screen, grafic designer until the next day. Good luck
	If my answer help you, use the Thanks or Rate Button, It is free of charge :-) The Powerful of WinCC I share my knowledge here: SCADA WinCC My contribution to the forum Library for WinCC
Suggestion To thank Quote Answer

5/18/2021 7:34 AM	Rate (0)
St3B0 Platinum Member Joined: 10/3/2010 Last visit: 1/22/2026 Posts: 1572 Rating: (196)	Another way might be to share your VBA-code and if you're lucky, someone here can try to help to create you a VBS alternative?
	B r g d s , SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer

5/18/2021 7:48 AM	Rate (0)
STEP7 Regular Member Joined: 1/29/2006 Last visit: 3/3/2025 Posts: 15 Rating: (1)	A2 = HMIRuntime.Tags("AS1/02_T03_PT001/02_T03_PT001.QfVal").Read B2 = HMIRuntime.Tags("AS1/02_T04_PT001/02_T04_PT001.QfVal").Read C2 = HMIRuntime.Tags("AS1/02_T05_PT001/02_T05_PT001.QfVal").Read A1 = HMIRuntime.Tags("AS1/02_T08_PT001/02_T08_PT001.QfVal").Read B1 = HMIRuntime.Tags("AS1/02_T09_PT001/02_T09_PT001.QfVal").Read C1 = HMIRuntime.Tags("AS1/02_T10_PT001/02_T10_PT001.QfVal").Read B = (A1 + B1 + C1) * 0.7 P = Format(Date, "yyyy-mm-dd") & "T" & Time M = A2 * 1.05 * 0.89 + (B2 + C2) * 0.85 * 0.89 This down wont work URL = "https://api.thingspeak.com/update?api_key=XXXXXXX&datetime=" & P & "&field1=" & A2 & "&field2=" & B2 & "&field3=" & C2 & "&field4=" & A1 & "&field5=" & B1 & "&field6=" & C1 & "&field7=" & M & "&field8=" & B " Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", URL, False http.Send MsgBox (http.responseText) tmp = http.responseText 'Check for errors If Err <> 0 Then MsgBox "Error " 'On Error GoTo 0 End If Lets test the luck!!!

Suggestion To thank Quote Answer

5/18/2021 11:58 AM	Rate (0)
St3B0 Platinum Member Joined: 10/3/2010 Last visit: 1/22/2026 Posts: 1572 Rating: (196)	STEP7 A2 = HMIRuntime.Tags("AS1/02_T03_PT001/02_T03_PT001.QfVal").Read B2 = HMIRuntime.Tags("AS1/02_T04_PT001/02_T04_PT001.QfVal").Read C2 = HMIRuntime.Tags("AS1/02_T05_PT001/02_T05_PT001.QfVal").Read A1 = HMIRuntime.Tags("AS1/02_T08_PT001/02_T08_PT001.QfVal").Read B1 = HMIRuntime.Tags("AS1/02_T09_PT001/02_T09_PT001.QfVal").Read C1 = HMIRuntime.Tags("AS1/02_T10_PT001/02_T10_PT001.QfVal").Read B = (A1 + B1 + C1) * 0.7 P = Format(Date, "yyyy-mm-dd") & "T" & Time M = A2 * 1.05 * 0.89 + (B2 + C2) * 0.85 * 0.89 This down wont work URL = "https://api.thingspeak.com/update?api_key=XXXXXXX&datetime=" & P & "&field1=" & A2 & "&field2=" & B2 & "&field3=" & C2 & "&field4=" & A1 & "&field5=" & B1 & "&field6=" & C1 & "&field7=" & M & "&field8=" & B " Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", URL, False http.Send MsgBox (http.responseText) tmp = http.responseText 'Check for errors If Err <> 0 Then MsgBox "Error " 'On Error GoTo 0 End If Lets test the luck!!! Usually with a google search on VBscript +write data cloud, you can get some hints or even examples. Perhaps try this for a start: Google result: The VBScript language doesn't include any HTTP or HTTPS client, but windows has a couple of COM objects that can be used (from Windows Script Host of from ASP pages written in VBScript), and VBScript code running in internet explorer can similarly access a browser object that allows HTTPS calls. From windows (WSH/ASP), the best object is typically MSXML2.ServerXmlHTTP, for example see this quick overview: http://www.developerfusion.com/article/3272/posting-form-data-to-a-web-page/2/
	B r g d s , SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on