Kyrillisch, VBA-Lösung

26/12/2008 - 16:55 von Reinhard Schüll | Report spam
Hallo NG,
da es nicht möglich ist, zwei verschiedene Làndereinstellungen (deutsch und
russisch) gleichzeitig in einem Tabellenblatt zu haben, kam mir die Idee,
einen kyrillischen Text aus einer Textdatei (russisch.txt) über den Editor
zu öffnen und von dort - vorerst per Hand - in ein Textfeld zu kopieren.
Soweit ok. Wie wickle ich diesen Vorgang bitte per Makro ab? Vielleicht làßt
sich die Zwischenstation (Editor) auch umgehen.
Gruß Reinhard
 

Lesen sie die antworten

#1 Reinhard Schüll
26/12/2008 - 19:33 | Warnen spam
Hallo NG,
mein Makro sieht momentan so aus:

TextBox1.Text = ""
Dim Ergebnis
Ergebnis = Shell("C:\WINDOWS\NOTEPAD.EXE S11.TXT", 1)
AppActivate Ergebnis
SendKeys "^A", True 'alles Auswàhlen
SendKeys "^C", True 'Auswahl in die Zwischenablage kopieren
AppActivate "Microsoft Excel"
TextBox1.Paste 'Zwischenablage einfügen

Leider funktioniert der SendKeys-Abschnitt nicht, da das Notepad sich zwar
mit der Datei S11.txt öffnet, aber nicht den Focus erhàlt.
Außerdem würde ich nicht unbedingt die SendKey-Methode bevorzugen wollen.
Gruß Reinhard


"Reinhard Schüll" schrieb im Newsbeitrag
news:
Hallo NG,
da es nicht möglich ist, zwei verschiedene Làndereinstellungen (deutsch
und russisch) gleichzeitig in einem Tabellenblatt zu haben, kam mir die
Idee, einen kyrillischen Text aus einer Textdatei (russisch.txt) über den
Editor zu öffnen und von dort - vorerst per Hand - in ein Textfeld zu
kopieren.
Soweit ok. Wie wickle ich diesen Vorgang bitte per Makro ab? Vielleicht
làßt sich die Zwischenstation (Editor) auch umgehen.
Gruß Reinhard


Ähnliche fragen