Russische Zeichen in VBA
d25.dl.busi@googlemail.com
inzwischen bin ich schon sehr verzweifelt. Weil ich viele gute Beiträge gefunden habe die sich mit dem Thema befassen. Dennoch ist mir mit diesen nicht geholfen. Warum? Lest selbst...
Folgende Situation.
Ich habe in einem Laufwerk Dateien stehen. Diese wurden zunächst von einem Sachbearbeiter in unserem Dokumentenmanagement-System selektiert und schlussendlich extrahiert. In dem Laufwerk steht auch eine Excel-Datei. Diese beinhaltet u.a. eine Liste mit den Dateinamen der Dateien die sich auch im Laufwerk befinden.
Der Sachbearbeiter soll nun diese Liste in Excel mit einer Ordnerstruktur versehen.
Anschließend kann man mittels Knopfdruck die Unterordner erzeugen und die Dateien entsprechend dorthin verschieben (macht ein VBA-Programm im Hintergrund).
Zur Vollständigkeit: Im Nachgang wird dann noch eine Index-Datei erzeugt. Diese enthält Links für jede Datei. Damit man diese auch schnell öffnen kann. Alles zusammen wird auf einer CD gebrannt an Kunden verschickt.
Das Ganze Prozedere klappt sehr gut, ist auch schon produktiv im Einsatz.
Jetzt wollen wir das bei unseren russischen KollegInnen ausrollen und bekommen plötzlich Probleme mit den russischen Zeichen.
Die Dateinamen enthalten in diesem Fall auch russische Zeichen. Diese werden im Windows Explorer sauber dargestellt.
In der Tabelle im Excel werden die Zeichen auch mit den russisschen Zeichen dargestellt.
Wenn ich nun das Programm zum Anlegen der Ordner mit dem Verschieben der Dateien laufen lasse, bekomme ich die gleichen Probleme wie schon von andereren leidlich beschrieben.
Und zwar weil die Dateinamen, die ich in VBA in eine Variable ausgelese, mit "?" dargestellt werden. Im Detail prüfe ich z.B., ob diese gerade zu verschiebende Datei im Ziellaufwerk schon vorhanden ist. Ich nutze dafür
If Dir(lv_pathnach, vbDirectory) "" Then ...
wobei lv_pathnach aus
lv_pathnach = gv_filepath & "\" & ActiveWorkbook.Sheets("LOG").Cells(lv_r, gv_max + 10).Value
zusammengesetzt wird und
ActiveWorkbook.Sheets("LOG").Cells(lv_r, gv_max + 10).Value
die beschriebenen Dateinnamen (mit russischen Zeichen) enthält.
Ich habe schon diverse Ratschläge versucht auf mein Problem zu adaptieren. Wie z.B. beim Auslesen des Zellinhaltes nach Unicode zu konvertieren. Ich hab auch schon versucht mit arrays zu arbeiten. Bislang war alles erfolglos.
Was kann ich noch machen? Hat jemand eine Idee?
Danke schon mal vorab für eure Hilfe!
D