Automa1ion
Level-1
- Beiträge
- 14
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
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
[COLOR=#333333]
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[/COLOR]
Zuletzt bearbeitet: