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

Reading Values with VBscript from Excel

Created by: GusoXXL at: 3/1/2022 5:59 PM (1 Replies)

Rating (0)

Thanks 0

2 Entries

3/1/2022 5:59 PM	Rate (0)
GusoXXL Posts: 42 Rating: (5)	Hello, im trying to make a visual basic scritp to read a full column of an Excel document where the name of the first sheet (HMI tags) is the one i want to read (and the first column) I did this script but getting some errors (one of them about not accepting property or method 438), can help me to solve the script pls? ------------------------------------------------------------------ Sub Excel2() 'Var definition Dim ExcelObject Dim WorkSheet Dim Workbook Dim objTag1 Dim Rwcnt Dim i Dim value Dim path Dim ErrorDesc 'Errors On Error Resume Next 'Path for the workbook path = "C:\Users\VijeoSCADA\Desktop\Excel\Prueba.xlsx" 'Object for the process Set ExcelObject = CreateObject("Excel.Application") ExcelObject.Visible = False ExcelObject.DisplayAlerts = True 'Error loop If Err.Number <> 0 Then ErrorDesc = Err.Description & "(" & Err.Number & ")" SmartTags("ErrDesc") = ErrorDesc Set ExcelObject = Nothing Exit Sub End If 'Setting workbook to open it with the path Set Workbook = ExcelObject.Workbooks.Open (path) 'Openning first sheets Set WorkSheet = ExcelObject.Activeworkbook.Worksheets(1) 'Error loop If Err.Number <> 0 Then ErrorDesc = Err.Description & "(" & Err.Number & ")" SmartTags("ErrDesc") = ErrorDesc Set ExcelObject = Nothing Exit Sub End If 'Number of rows in the porject Rwcnt= ExcelObject.AtiveWorkbook.Sheets(1).UsedRange.Rows.count 'Error loop If Err.Number <> 0 Then ErrorDesc = Err.Description & "(" & Err.Number & ")" SmartTags("ErrDesc") = ErrorDesc Set ExcelObject = Nothing Exit Sub End If 'Loop For i=2 To Rwcnt objTag1= WorkSheet.Cells(i,1).Value Next 'Relation between var and smarttags Set objTag1= SmartTags("PruebaUA") 'Error loop If Err.Number <> 0 Then ErrorDesc = Err.Description & "(" & Err.Number & ")" SmartTags("ErrDesc") = ErrorDesc Set ExcelObject = Nothing Exit Sub End If 'Closing connections ExcelObject.ActiveWorkbook.Save ExcelObject.Workbooks.Close ExcelObject.Quit 'Connections to zero Set objTag1= Nothing Set ExcelObject = Nothing Set WorkSheet = Nothing End Sub ------------------------------------------------------------------------------ THANKS FOR THE HELP
GusoXXL Posts: 42 Rating: (5)
Suggestion To thank

3/2/2022 9:56 AM	Rate (0)
Jen_Moderator Posts: 8171 Rating: (174)	Closed cause question posted twice. The second thread with the subject Reading Values with VBscript from Excel is published within the conference SIMATIC WinCC (TIA Portal). Best regards, Jen_Moderator
Jen_Moderator Posts: 8171 Rating: (174)
Suggestion To thank

Share this page:

Share this page on...

SiePortal

Reading Values with VBscript from Excel

Created by: GusoXXL at: 3/1/2022 5:59 PM (1 Replies)

Rating (0) Thanks 0

2 Entries

GusoXXL

Jen_Moderator

2 Entries

Follow us on

Rating (0)

Thanks 0