Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Notepad

Notepad
22.07.2003 14: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
Anzeige
AW: Notepad
22.07.2003 15: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

Anzeige
AW: Notepad
22.07.2003 16: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 16: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

Anzeige
DANKE
22.07.2003 16: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


Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige