Code:
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
Dieser Code soll mir den LoggingVerlauf z.B. immer wenn er sich ändert archivieren,
wie mache ich das, dass es "automatisch" funktioniert und es mir dann eine Datei überschreibt.
Standardmäßig landet es ja in Export->"Control..."
Vielen Dank vorab