Zeichen in Dateinamen ersetzen
Klaus
Worti hatte mir gestern ein Makro geschrieben, um alle Dateien in einem Verzeichnis zu _ bearbeiten:
Sub Alledateien_Bearbeiten()
Dim strDatei As String
Dim wb As Workbook
'Laufwerk und Pfad anpassen
ChDrive "D"
ChDir "D:\data\"
strDatei = Dir("D:\data\*.xls")
Do While strDatei ""
'Öffnen erste Datei
Set wb = Workbooks.Open(strDatei)
'Deine weiteren Befehle, zB.
MsgBox wb.Name
'Schliessen Datei
wb.Close True
'Schauen, ob es noch weitere XLS-Dateien gibt
strDatei = Dir
Loop
Set wb = Nothing
End Sub
Nun geschieht folgendes: Dateien werden teils gar nicht bearbeitet, andere Dateien (die gar nicht im Laufwerk D vorhanden sind, entstehen auf einmal.
Kann es sein, dass die Dateinamen nicht richtig erkannt werden? Beispiel: JC-BN107-51-2007-JC00556.xls
geht das mit den Minus Zeichen nicht? und wenn, gibt es die Möglichkeit per Makro das Minuszeichen z.B. in einen Unterstrich zu ersetzen?
Gruss Klaus