SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Tag not read in VBscript

Created by: Dbhatt at: 9/3/2022 5:14 AM (2 Replies)

Rating (0)

Thanks 0

3 Entries

9/3/2022 5:14 AM	Rate (0)
Dbhatt Member Joined: 11/18/2021 Last visit: 4/9/2025 Posts: 2 Rating: (0)	Dear Expert, I have developed below script to generate excel from VB script, but VBscript doesn't read tag and transfer to excel. Date and Time is successfully transferred to excel Option Explicit Function action Dim objExcelApp Dim targetRow Dim row Dim GUL2_ON Set GUL2_ON = HMIRuntime.Tags("GUL2_ON") Dim GUL2ACCULOAD Set GUL2ACCULOAD = HMIRuntime.Tags("GUL2.ACCULOAD").Read Dim GUL1_ON Set GUL1_ON = HMIRuntime.Tags("GUL1_ON") Dim GUL1ACCULOAD Set GUL1ACCULOAD = HMIRuntime.Tags("GUL1.ACCULOAD").Read Dim GSU1_ON_B1 Set GSU1_ON_B1 = HMIRuntime.Tags("GSU1_ON_B1") Dim GSU2_ON_B1 Set GSU2_ON_B1 = HMIRuntime.Tags("GSU2_ON_B1") targetRow = 3 row = HMIRuntime.Tags("LINE").Read targetRow = targetRow + row 'targetRow = HMIRuntime.Tags("LINE").Read Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.Workbooks.Open "C:\Berth-1.xls" objExcelApp.Sheets("GSU-1").Select objExcelApp.Cells(targetRow,4).Value =Time objExcelApp.Cells(targetRow,3).Value =Date objExcelApp.Cells(targetRow,5).Value = GUL1ACCULOAD objExcelApp.Sheets("GSU-2").Select objExcelApp.Cells(targetRow,4).Value =Time objExcelApp.Cells(targetRow,3).Value =Date objExcelApp.Cells(targetRow,5).Value = GUL2ACCULOAD objExcelApp.ActiveWorkbook.Save objExcelApp.ActiveWorkbook.Save objExcelApp.Workbooks.Close objExcelApp.Quit Set objExcelApp = Nothing End Function GUL1ACCULOAD and GUL2ACCULOAD can not be read . Please do needful.

Suggestion To thank Quote Answer

9/3/2022 11:52 AM	Rate (0)
joao-cln Posts: 2 Rating: (0)	I believe the Read method reads out all the information from the tag, including its value. You have to use tag.value. From the scripting manual: Dim objTag Set objTag = HMIRuntime.Tags("Tag1") objTag.Read() MsgBox objTag.Value
joao-cln Posts: 2 Rating: (0)	Last edited by: joao-cln at: 09/03/2022 11:59:50
Suggestion To thank Quote Answer

9/6/2022 11:12 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 1/20/2026 Posts: 16653 Rating: (1944)	Hello check here the official example in the WinCC help system for reading tag values: https://support.industry.siemens.com/cs/de/en/view/109792622/45951188235 bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer