AW: datei umbenennen
24.05.2007 08:19:52
Matthias
Hallo Marco,
kopiere erstmal diesen Code in ein Modul einer neuen Mappe:
Option Explicit
Const Pfad = "D:\DeinOrdner" 'Anpassen!
Sub Einlesen()
Dim fn As String, i As Long
With Sheets(1)
i = 1
Range("A:B").ClearContents
fn = Dir(Pfad & "\*.csv")
Do While fn ""
.Cells(i, 1) = fn
i = i + 1
fn = Dir()
Loop
End With
End Sub
Sub Umbenennen()
Dim fnALT As String, fnNEU As String, i As Long
With Sheets(1)
i = 1
Do
fnALT = Pfad & "\" & .Cells(i, 1)
fnNEU = Pfad & "\" & .Cells(i, 2)
Name fnALT As fnNEU
i = i + 1
Loop Until .Cells(i, 1) = ""
End With
End Sub
Dann starte das Makro Einlesen, dadurch wird die Dateiliste in Spalte A erzeugt.
Nun schreibe in B1 diese Formel rein:
|
| Tabelle1 |
| | A | B | | 1 | wert#zwischendaten_1x.csv | wert_1x.csv | | Formeln der Tabelle | B1 : =WECHSELN(A1;"#zwischendaten";"")
|
|
| |
und ziehe die Formel nach unten bis zum Ende der Liste (Doppelklick auf die untere rechte Ecke der Zelle B1).
Nun hast du die neuen Dateinamen in Spalte B und musst nur noch das Makro Umbenennen aufrufen.
Viel Erfolg,
Matthias