WinCC Automatische Archivierung von TrendControl

[Automa1ion]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

ich möchte genau das machen

https://support.industry.siemens.co...rte-als-csv-datei-exportieren-?dti=0&lc=de-WW

habe den Text auch schon abgetippt als VBS im Projektordner.

Die Frage, wie füge ich den jetzt in mein Bild ein, bzw. wie wird das ausgeführt?

Vielen Dank schonmal

PS: bin noch Neuling im Umgang mit WinCC

 

[Automa1ion]

achso ich arbeite mit WinCC 7.3

 

[Automa1ion]

Zuviel Werbung?
-> Hier kostenlos registrieren

Sub ForceKeyStroke(Byval Item)
Dim WScriptShell
Set WScriptShell = CreateObject("WScript.Shell.1")
Dim objControl
Set Item = "Control_e40"
Set objControl = ScreenItems(Item)
objControl.Activate	'Set Focus
WScriptShell.SendKeys "{F8}" 'send keystroke to active object
End Sub

möchte dass hier ausführen... mein item ist "control_e40" im Bild "OnlineTutorialBild.pdl", syntax passt auch
wie führe ich das ganze jetzt aus, muss ich das irgendwie anbinden oder funktioniert das jetzt automatisch
oder kann ich es z.b. alle 2s machen?

 

[hmeier]

Hallo,

ich hab jetzt den Link von dir nicht angeschaut, das ganze geht aber viel leichter direkt über die Control-Eingenschaften / -Methoden:

Sub OnClick(ByVal Item)        
Const EXPORT_SELECTION_ALL = 0
Const EXPORT_SELECTION_SELECTED = 1
Dim oControl

Set oControl = ScreenItems("Control1")

oControl.ExportDirectoryname = "C:\MyDir"    'Exportpfad

oControl.ExportFilename = "MyFile"    'Dateiname

oControl.ExportSelection = EXPORT_SELECTION_SELECTED    'Selektion: Alles oder nur Ausgewähltes

oControl.ExportShowDialog = False    'Dialog nicht anzeigen

oControl.Export    'Exportieren (wenn ExportShowDialog = true, dann öffnet sich der Dialog des Controls, sonst wird exportiert)

End Sub