Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

Read tag value and write to spreedsheet

Created by: GrahamS at: 4/19/2007 2:03 PM (19 Replies)

Rating (3)

Thanks 0

Result pages:: |; 1 | 2; |

20 Entries

Entries per page: 10 | all

4/19/2007 6:53 PM	Rate (1)
Danielle Posts: 1275 Rating: (123)	aux = auxiliar... what I meant is tags which inly exist within the script. In that case I had to copy data from several tags and place in the excel sheet. For instance, if you have 3 tags named test1 test2 test3 And you need to place those results in excel, you can create a loop from 1 to 50 and an auxiliar tag to help in the process... Like... Dim aux, aux2 Dim i Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.Workbooks.Open "C:\ExcelExample.xls" For i = 1 To 3 aux = "test" + CStr(i) aux2 = HMIRuntime.Tags(aux).Read objExcelApp.Cells(4, i).Value = aux2 i = i + 1 Next objExcelApp.ActiveWorkbook.Save objExcelApp.ActiveWorkbook.Close objExcelApp.Quit Set objExcelApp = Nothing aux and aux2 are just tags which exist within the script for execution. The "for" makes the script "loop through" the test tags, which means it analyses all of them (test1, test2 and test3)...
Danielle Posts: 1275 Rating: (123)
Suggestion To thank Quote Answer

4/20/2007 9:16 AM	Rate (0)
GrahamS Posts: 17 Rating: (0)	Thanks for all your help.
GrahamS Posts: 17 Rating: (0)
Suggestion To thank Quote Answer

4/20/2007 9:37 AM	Rate (0)
GrahamS Posts: 17 Rating: (0)	Danielle, Try your sample code. It does not fil in test2 tag value into spreadsheet. Any ideas please? Cheers,
GrahamS Posts: 17 Rating: (0)
Suggestion To thank Quote Answer

4/20/2007 9:52 AM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	Hi, Remove this line in the code: i = i + 1 The loop increases the i var by itself, no need to increase it yourself. with regards, Ikkezelf
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

4/20/2007 10:34 AM	Rate (0)
GrahamS Posts: 17 Rating: (0)	Works a treat, Thanks.
GrahamS Posts: 17 Rating: (0)
Suggestion To thank Quote Answer

4/20/2007 1:55 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	soooorry... I copied a similar code from an application and changed it, and that line got missed... Anyway.. if anything else comes up post again! Best regards, Danielle
Danielle Posts: 1275 Rating: (123)
Suggestion To thank Quote Answer

8/29/2007 4:00 PM	Rate (0)
amateur Posts: 145 Rating: (3)	Hi to all, THe code is working perfectly to the customers project. However, I have one question. Is it possible to trigger this script at a specific time of a day, every day? Thanks in advance for your time
amateur Posts: 145 Rating: (3)
Suggestion To thank Quote Answer

8/31/2007 10:04 AM	Rate (1)
Ikkezelf Posts: 1084 Rating: (72)	Hi, Of course. Create a new VBS Action. Put your code in that action. Create a Trigger for that action (<CTRL> + <T>) Select the Cyclic Trigger Select the "Daily" event. Select your needed time of day. with regards, Ikkekzelf
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

8/31/2007 11:13 AM	Rate (0)
amateur Posts: 145 Rating: (3)	Thanks for your reply, This solves me for a lot of trouble Best Regards
amateur Posts: 145 Rating: (3)
Suggestion To thank Quote Answer

8/31/2007 11:15 AM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	No problem at all, happy to help. with regards, Ikkezelf
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on