Forums Neueste Beiträge
 

Mit VBA aus Excel heraus den Text-Editor öffnen und eine Datei in den Editor laden

28/01/2010 - 00:45 von Ludwig | Report spam
Hallo,

mit VBA erzeuge ich aus Excel heraus eine kleine TextDatei
namens MusterText.txt
Die Datei wird im Verzeichnis C:\MusterOrdner abgelegt.
Die Adresse heißt also C:\MusterOrdner\MusterText.txt

Nun möchte ich den normalen Texteditor vom Windows Betriebssystem
mittels VBA aus Excel heraus aufrufen
und mir dann den Dateninhalt mittels des Editors anzeigen lassen.

Es soll also nicht etwa der Inhalt der Textdatei nach Excel importiert
werden, sondern halt nur der Editor mit dem Inhalt der Textdatei
angezeigt und in den Vordergrund gerückt werden.

Ich möchte dies gerne so haben, weil ich dann diesen kleinen Text
aus der Textdatei einfach kopieren kann und dann z.B. in eine
neue eMail, die mit Outlook-Express abgeschickt werden soll
einfügen kann.

Warum wàhle ich diesen Umweg, denn ich könnte ja auch den Text,
der aus der Exceltabelle stammt einfach dort kopieren und dann
in die eMail einfügen. Ja, das würde zwar funktionieren aber dann
habe ich es bisher nicht geschafft einen reinen Text in die eMail
zu kopieren, denn immer waren dann auch die
Formatierung aus der Excel-Tabelle mit dabei.

Wer kann mir zu diesem Thema eine Tipp geben ?

Wenn ich mit VBA auf direkten Weg die 5-6 Zeilen Text, die in der
kleinen Textdatei drin sind direkt als reinen Text in die
Anwendung Qutlook Express einfügen könnte, dann wàre das
natürlich noch besser.

Super wàre natürlich wenn ich die eMail - Adresse des
Empfàngers direkt in Zeile "An:" übertragen könnte aber soviel
Luxus muß nicht sein.

Mit freundlichen Grüßen

Ludwig
 

Lesen sie die antworten

#1 Peter Schleif
28/01/2010 - 07:40 | Warnen spam
Ludwig schrieb am 28.01.2010 00:45 Uhr:

Die Adresse heißt also C:\MusterOrdner\MusterText.txt
Nun möchte ich den normalen Texteditor vom Windows Betriebssystem
mittels VBA aus Excel heraus aufrufen
und mir dann den Dateninhalt mittels des Editors anzeigen lassen.



Sub StarteEditorMitDatei()
Const EDITOR = "C:\Windowsotepad.exe"
Const DATEI = "C:\MusterOrdner\MusterText.txt"

With CreateObject("Wscript.Shell")
.Run """" & EDITOR & """ """ & DATEI & """", 5
End With
End Sub

Peter

Ähnliche fragen