Skip to Content

SiePortal

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

SiePortalDeutsch

Search

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

wincc flexible to excel reporting

Created by: akshat1980 at: 7/27/2016 11:21 AM (9 Replies)

Rating (0)

Thanks 0

10 Entries

7/27/2016 11:21 AM	Rate (0)
akshat1980 Posts: 4 Rating: (0)	Hello ....I want to make excel reporting by using vb script in wincc flexible....... but it showing error.....pls help me for this Dim wsh, XLSrunning, TargetBookrunning, objExcelApp, objWorkbook, TheTargetBook, TheTargetBookName Dim TheCount Dim objFSO Const OverwriteExisting = 1 Set wsh = CreateObject("WScript.Shell") TheTargetBookName = "report.xls" TheTargetBook = "D:\Out\" & TheTargetBookName '---------------[Modification#1_Begin]------------------------------------------- Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FileExists(TheTargetBook) Then objFSO.CopyFile "D:\Out\Template.xls", TheTargetBook, OverwriteExisting 'HMIRuntime.Trace "The file," & TheTargetBook & ", does not exist." & vbCrLf & "I've just created one for you!" End If Set objFSO = Nothing '---------------[Modification#1_End]-------------------------------------------- TheCount = GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count 'While TheCount is bigger than 0, it means the Excel Application is running..., but doesn't mean the workbook is open for sure! If TheCount > 0 Then Set objExcelApp = GetObject(,"Excel.Application") ' Using GetObject(,"Excel.Application") to point to the running Excel Application. TargetBookrunning = 0 For Each XLSrunning In objExcelApp.Workbooks If XLSrunning.name = TheTargetBookName Then TargetBookrunning = 1 End If Next If TargetBookrunning = 1 Then Set objWorkbook = GetObject(TheTargetBook) Else Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) End If Else Set objExcelApp = CreateObject("Excel.Application") Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) End If objExcelApp.Visible = True objExcelApp.ScreenUpdating = True objExcelApp.DisplayAlerts = True Dim TheTargetRow ' <------[Modification#2]------- With objWorkbook.ActiveSheet TheTargetRow = .Cells(65535, 2).End(-4162).Row .cells(TheTargetRow + 1, 2) = SmartTags("Tag_1") .cells(TheTargetRow + 1, 3) = SmartTags("Tag_2") .cells(TheTargetRow + 1, 4) = SmartTags("Tag_3") End With objWorkbook.Save 'objWorkbook.Close Set objWorkbook = Nothing 'objExcelApp.Quit Set objExcelApp = Nothing 'MsgBox "Done" Set wsh = Nothing
akshat1980 Posts: 4 Rating: (0)
Suggestion To thank Quote Answer

7/29/2016 8:49 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 9/12/2025 Posts: 16409 Rating: (1935)	Hello akshat1980 In WinCC Scada Help System there is an example of the use of the MS Automation Interface. I have used it also in WinCC Flexible RT. Try this one if it works in your environment. ---- Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True 'ExcelExample.xls is to create before executing this procedure. 'Replace <path> with the real path of the file ExcelExample.xls. objExcelApp.Workbooks.Open "<path>\ExcelExample.xls" objExcelApp.Cells(4, 3).Value = SmartTags("Variablenname") objExcelApp.ActiveWorkbook.Save objExcelApp.Workbooks.Close objExcelApp.Quit Set objExcelApp = Nothing ---- Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

7/30/2016 1:10 PM	Rate (0)
akshat1980 Posts: 4 Rating: (0)	Murof Hello akshat1980 In WinCC Scada Help System there is an example of the use of the MS Automation Interface. I have used it also in WinCC Flexible RT. Try this one if it works in your environment. ---- Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True 'ExcelExample.xls is to create before executing this procedure. 'Replace <path> with the real path of the file ExcelExample.xls. objExcelApp.Workbooks.Open "<path>\ExcelExample.xls" objExcelApp.Cells(4, 3).Value = SmartTags("Variablenname") objExcelApp.ActiveWorkbook.Save objExcelApp.Workbooks.Close objExcelApp.Quit Set objExcelApp = Nothing ---- Bye Murof thanks Murof tell me how can i write data in next row ex. objExcelApp.Cells(4, 3 objExcelApp.Cells(5, 3 objExcelApp.Cells(6, 3 objExcelApp.Cells(6, 3 like this
akshat1980 Posts: 4 Rating: (0)
Suggestion To thank Quote Answer

7/31/2016 8:45 AM	Rate (0)
SMIT SHAH Silver Member Joined: 7/24/2014 Last visit: 8/1/2025 Posts: 393 Rating: (66)	Dear Akshat, For it you need to change the number 3 by 4 , 5 , 6 so on to change the rows If your pattern is fixed then you can do it by a for loop by making it variable and changing it by a for loop
	Thanks and Regards Smit Shah If Helpful please hit thanks and rate it
Suggestion To thank Quote Answer

8/2/2016 8:59 AM	Rate (0)
akshat1980 Posts: 4 Rating: (0)	thanks smit but i dont know vb......so pls can u send me the script for same........ SMIT SHAH Dear Akshat, For it you need to change the number 3 by 4 , 5 , 6 so on to change the rows If your pattern is fixed then you can do it by a for loop by making it variable and changing it by a for loop
akshat1980 Posts: 4 Rating: (0)
Suggestion To thank Quote Answer

8/2/2016 9:13 AM	Rate (0)
SMIT SHAH Silver Member Joined: 7/24/2014 Last visit: 8/1/2025 Posts: 393 Rating: (66)	akshat1980 thanks smit but i dont know vb......so pls can u send me the script for same........ SMIT SHAH Dear Akshat, For it you need to change the number 3 by 4 , 5 , 6 so on to change the rows If your pattern is fixed then you can do it by a for loop by making it variable and changing it by a for loop Dear Akshat, Refer to the attachment for the script In this the n is the number that gets increment by 1 every time when this script is called so it will try to log the data to next row Attachment VBScript.txt (320 Downloads)
	Thanks and Regards Smit Shah If Helpful please hit thanks and rate it
Suggestion To thank Quote Answer

8/2/2016 9:17 AM	Rate (0)
SMIT SHAH Silver Member Joined: 7/24/2014 Last visit: 8/1/2025 Posts: 393 Rating: (66)	For getting started in VBA you can have a reference from https://msdn.microsoft.com/en-us/library/office/fp179694.aspx
	Thanks and Regards Smit Shah If Helpful please hit thanks and rate it
Suggestion To thank Quote Answer

8/2/2016 2:34 PM	Rate (0)
akshat1980 Posts: 4 Rating: (0)	dear smit i try this.......but its showing error..... 17:41:39.75 Compiler Info : Compiling started ... 17:41:40.26 Compiler Info : Linking target 'Device_1' ... 17:41:40.26 Compiler Info : Number of generated tags: 3. 17:41:40.26 Compiler Info : Required license: WinCC flexible /Archives for PC-RT 17:41:40.26 Compiler Error : Script Script_1 compiled with errors. 17:41:40.26 Compiler Info : ### FAILED with 1 error(s), 0 warning(s). 17:41:40.26 Compiler Info : Compiling finished! 17:41:40.26 Compiler Error : The runtime start was skipped because of compiler errors.
akshat1980 Posts: 4 Rating: (0)
Suggestion To thank Quote Answer

8/3/2016 7:47 AM	Rate (0)
SMIT SHAH Silver Member Joined: 7/24/2014 Last visit: 8/1/2025 Posts: 393 Rating: (66)	akshat1980 dear smit i try this.......but its showing error..... 17:41:39.75 Compiler Info : Compiling started ... 17:41:40.26 Compiler Info : Linking target 'Device_1' ... 17:41:40.26 Compiler Info : Number of generated tags: 3. 17:41:40.26 Compiler Info : Required license: WinCC flexible /Archives for PC-RT 17:41:40.26 Compiler Error : Script Script_1 compiled with errors. 17:41:40.26 Compiler Info : ### FAILED with 1 error(s), 0 warning(s). 17:41:40.26 Compiler Info : Compiling finished! 17:41:40.26 Compiler Error : The runtime start was skipped because of compiler errors. Okay I will check and will revert back to you with the reference project
	Thanks and Regards Smit Shah If Helpful please hit thanks and rate it
Suggestion To thank Quote Answer

8/8/2016 10:59 AM	Rate (0)
Hirnheiner Advanced Member Joined: 7/19/2016 Last visit: 3/29/2022 Posts: 15 Rating: (1)	Hello guys, syntax in sample script is not correct: For Counter=start to end ....do something... Next is the correct one. Regards

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on