Sonderzeichen löschen
28.02.2005 15:33:21
Mich@
für eine Umbenennung von Dateien mittels einer Excel-Tabelle möchte ich zunächst nicht-gültige Zeichen (i.e. \/:*?" und |) löschen lassen. Die zukünftigen Dateinamen sind in Spalte A.
Ich habe es so gelöst:
ActiveWorkbook.Worksheets(1).Columns(1).Replace "/", "-", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace "\", "-", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace ":", "..", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace ChrW(34), "'", xlPart
'ActiveWorkbook.Worksheets(1).Columns(1).Replace ChrW(42), "ChrW42", xlPart
'ActiveWorkbook.Worksheets(1).Columns(1).Replace ChrW(63), "ChrW63", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace "ActiveWorkbook.Worksheets(1).Columns(1).Replace ">", "}", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace "|", "I", xlPart
Für *? und " habe ich den ChrW-Code verwendet, da diese Zeichen (lediglich in Anführungsstriche gesetzt) nicht korrekt ersetzt wurden.
Für * klappt das auch, sobald ich aber Selbiges für ? und " versuche, ist in der Zielzelle nur "ChrW63" etliche Male hintereinander zu sehen, der vorherige Text ist komplett weg.
Schonmal besten Dank im Vorraus,
Mich@