kann mir bitte jemand helfen! ich bekomme das problem einfach nicht in den griff.
vielen dank im voraus!
gruß marco
https://www.herber.de/forum/archiv/872to876/t872062.htm#872062
Hier das Makro, das den Pfad mitnimmt:
Gruß
Heinz
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 | ||||||||
| ||||||||
Sub Umbenennen()
Dim Pfad As String
Dim Datei As Variant
Dim i As Integer
Datei = Application.GetOpenFilename("CSV Dateien (*.CSV),(*.CSV)", , "Änderung der CSV-Datei _
im Ordner")
If Datei = "Falsch" Or Datei = False Then End
Pfad = Left(Datei, InStrRev(Datei, "\") - 1)
With Application.FileSearch
.LookIn = Pfad
.Filename = "*.CSV"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
alt = .FoundFiles(i)
neu = Left(.FoundFiles(i), Len(Pfad) + 1 + 4) & Right(.FoundFiles(i), 7)
Debug.Print alt
Debug.Print neu
'Name (alt) As (neu)
Next i
End If
End With
End Sub
Sub Umbenennen()
Dim Pfad As String
Dim Datei As Variant
Dim i As Integer
Datei = Application.GetOpenFilename("CSV Dateien (*.CSV),(*.CSV)", , "Änderung der CSV-Datei _
_
im Ordner")
If Datei = "Falsch" Or Datei = False Then End
Pfad = Left(Datei, InStrRev(Datei, "\") - 1)
With Application.FileSearch
.LookIn = Pfad
.Filename = "*.CSV"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
alt = .FoundFiles(i)
neu = Left(.FoundFiles(i), Len(Pfad) + 1 + 4) & Right(.FoundFiles(i), 7)
Name (alt) As (neu)
Next i
End If
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen