Notepad

Forumthread: Notepad
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Notepad

Notepad

22.07.2003 16:13:27

Wolfgang

Wie kann ich über Excel VBA eine Textdatei (Test.txt) mit dem Notepad öffnen, einen Wert aus einer InputBox einfügen und die Textdatei wieder schließen.


Sub filenametoapplication()
SendKeys "Guten Morgen"
Shell "Notepad.exe", 3
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Notepad

22.07.2003 17:39:41

Nepumuk
AW: Notepad

22.07.2003 18:44:52

Wolfgang
AW: Notepad

22.07.2003 18:49:58

Nepumuk
DANKE

22.07.2003 18:55:54

Wolfgang

AW: Notepad

22.07.2003 17:39:41

Nepumuk

Hallo Wolfgang,
so:


Option Explicit
Public Sub test()
Dim hFile  As Long
hFile = FreeFile
Open "C:\Dokumente und Einstellungen\Administrator\Desktop\test.txt" For Append As hFile
Print #hFile, InputBox("Text eingeben.", "Eingabe")
Close #hFile
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

AW: Notepad

22.07.2003 18:44:52

Wolfgang

Danke Nepumuk!
Funktioniert Super!
Ist es auch möglch, den Befehl so zu erweitern, dass ich die Daten, welche bereits in der Text Datei stehen vorher löschen kann und dann die neue Eingabe mache?
mfg
Wolfgang

AW: Notepad

22.07.2003 18:49:58

Nepumuk

Hallo Wolfgang,
klar, so:


Option Explicit
Public Sub test()
Dim hFile  As Long
hFile = FreeFile
Open "C:\Dokumente und Einstellungen\Administrator\Desktop\test.txt" For Output As hFile
Print #hFile, InputBox("Text eingeben.", "Eingabe")
Close #hFile
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

DANKE

22.07.2003 18:55:54

Wolfgang

Danke Nepumuk!
Ich habe dein Makro weiter ausgebaut und es funktioniert.
mfg
Wolfgang
Public


Sub test()
Dim hFile  As Long
hFile = FreeFile
Dim sFile As String
sFile = "T:\test.txt"
If Dir(sFile) <> "" Then Kill sFile
Open "T:\test.txt" For Append As hFile
Print #hFile, InputBox("Text eingeben.", "Eingabe")
Close #hFile
End Sub