Hello specs.

can anyone tell me how can I change from Sub OnClick(ByVal Item) to Action on trigger event

maybe I have to change Sub to action or function etc.

the example of a script is this: 

Sub OnClick(ByVal Item)                                                                                                                                                                                                                                               

Dim sDsn, sCon, sSql

Dim conn, oRs, oCom

Dim m, DSNName,ServerName, sServerName

Dim objControl

Dim sBeginTime, sEndTime

Dim sGMTime,sLocalTime

Dim TimeCorrection

Dim sFileName

Dim sTagName

Dim i,j,R,C,Diff

Dim bVisible

Dim bTimeCollumn

Dim OldLocale

  Dim Ans

OldLocale  = GetLocale ()   

If (OldLocale = 1049) Then 'Russian

Else  

Ans = MsgBox("Export works only in local region." & vbCrLf & "Change to Russian region for export time?", vbYesNo)

If (Ans = vbYes) Then  

 SetLocale(1049)  

Else   

  Exit Sub

End If      

End If

Set DSNName = HMIRuntime.Tags("@DatasourceNameRT")

DSNName.Read

sDsn = DSNName.Value

   End If

   bTimeCollumn = True

    Else

    End If

Next      

HMIRuntime.Trace "Control1: stop"  & vbCrLf             

  ExcelSheet.ActiveSheet.Cells(1,1).Value = R - 2   

  ExcelSheet.ActiveSheet.Cells(1,2).Value = C - 2

    Set oRs = Nothing

    Set conn = Nothing        

    ExcelSheet.ActiveSheet.Columns(1).Font.Bold = True    

    ExcelSheet.ActiveSheet.Rows(1).Font.Bold = True

    ExcelSheet.ActiveSheet.Rows(1).Font.Italic = True

    ExcelSheet.ActiveSheet.Rows(1).Font.Underline = True        

    ExcelSheet.ActiveSheet.Columns.AutoFit     

sFileName = "H:\Documents and Settings\u837process\Ðàáî÷èé ñòîë\report\" & Day(Date)& "." & Month(Date) & "." & Year(Date) & "__" & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now) & ".XLS"

ExcelSheet.SaveAs sFileName

MsgBox "Îò÷åò ñîõðàíåí â ôàéëå:" & vbCrLf & sFileName

ScreenItems("Report").Text = sFileName

ExcelSheet.Application.Quit

Set ExcelSheet = Nothing

objExcelApp.Quit

Set objExcelApp = Nothing  

SetLocale(OldLocale)

End Sub

thanks in advance

IT_Service

--------------
Split from Question about Lithium Battery (6es7971-1aa00-oaao) and Buffer Battery (W79084-e1001-b2).

Hi,

May be this following post will be of help:

https://support.industry.siemens.com/tf/ww/en/posts/cyclic-script-activated-by-trigger-can-i-do-that/101897/?page=0&pageSize=10

Instead of C action select VBS action as your script is vb.

and paste your script there and modify if required.

Thanks,

HarrY

thanks for your reply HarrY,

that is the question - I do not understand how should I change the script to be able using the on time trigger instead of button click ???

for example I put it in the global script (VBS)

1) tried the Function but there isn't trigger !

2) tried the Action (could not modify script it's not working)

any idea?

thanks 

IT_Service

Hi,

Instead of "Project Modules", Go to "Actions" tab. Right click on Actions, then click New->Action.

Then paste your code inside this Action. Paste only the code between Sub Onclick(...) and End sub.

then there is a Trigger button. there you can set a Trigger for this Action.

you may have to modify some code to work the code as a trigger.

See attachment