ich möchte gerne eine Datei in Notepad öffnen. Anschließend diese aktivieren und per Sendkeys Tastaturbefehle absetzen. Danach sollte die Datei unter gleichem Namen gespeichert werden und die Anwendung notepad geschlossen.
Das ganz natürlich per VBA in Excel. Ich habe derzeit folgenden VBA-Code entwickelt.
Sub Notepad_bearbeiten()
Dim Anwendung$
Anwendung = "c:\winnt\notepad.exe"
Speicher_Pfad_Textdateien = "D:\Temp\Text_Dateien\"
Dateiname = "test_305.txt"
ChDir Speicher_Pfad_Textdateien
AnWID = Shell(Anwendung + " " + Speicher_Pfad_Textdateien + Dateiname, vbMinimizedFocus)
AppActivate AnWID
' Löschen der ersten 160 Zeichen in Notepad
SendKeys "{Del 160}"
SendKeys "%{F4}" ' Anwendung beenden
Application.Wait Now + TimeSerial(0, 0, 2)
On Error Resume Next
End Sub
Dieser öffnet mir auf jeden Fall die Datei in Notepad. Leider jedoch funktionieren die Sendkeys-Befehle nicht. Was mache ich denn da falsch.
Es wäre schön wenn mir jemand helfen könnte. Vielen Dank nochmal im voraus.
Mfg
Markus