Gruß
Phil
Vba Datei Umbenennen Map
Dateien umbenennen mit Excel + VBA
Helfe beim Thema Dateien umbenennen mit Excel + VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo,
ich möchte mittels Daten aus Excel Dateien umbenennen. Beispiel:
Dateien D:\xxx\
D:\xxx\ etc.
Exceldatei... Dieses Thema im Forum " Microsoft Excel Hilfe " wurde erstellt von 1greenhorn, 12. Dateinamen mit VBScript ändern | tutorials.de. Oktober 2016. Hallo,
Exceldatei D:\xxx\
strOldName strNewName
PICT0101 PICT0201
PICT0102 PICT0202
VBA:
Sub umbenennen()
Dim intRowCount As Integer, intRow As Integer
Dim strOldName As String, strNewName As String
intRowCount = Cells(, 1)(xlUp)
For intRow = 1 To intRowCount
strOldName = & "\" & Cells(intRow, 1)
strNewName = & "\" & Cells(intRow, 2)
Name strOldName As strNewName
Next intRow
End Sub
Ich erhalte aber immer eine Fehlermeldung 53, Datei nicht gefunden mit dem Hinweis auf die Zeile "Name strOldName As strNewName"
Kann mir bitte jemand einen Tip geben? Danke vorab:)
ohne Angabe der Dateiendung kann die Datei nicht gefunden werden. Grüße
EarlFred
Hallo EarlFred,
das hatte ich auch schon versucht, die Einträge in Excel sahen dann so aus:
Das Ergebnis war leider das Gleiche!
Vba Datei Umbenennen Mit
5 Antworten
Beantwortet
4, Sep 2015
von
m-o
Profi
( 21. Vba datei umbenennen mit. 3k Punkte)
Hallo Jan,
versuch es mal so:
Sub umbenennen()
Dim strPfad As String
Dim strDatname As String
Dim strDatalt As String
Dim strDatneu As String
Dim vNeuname As Variant
'Erst der Pfad - anpassen
strPfad = "C:\Test\"
strDatname = Dir(strPfad & "*")
Do While Len(strDatname)
vNeuname = Split(strDatname, "_")
strDatneu = strPfad & vNeuname(0) & ""
strDatalt = strPfad & strDatname
Name strDatalt As strDatneu
strDatname = Dir
Loop
End Sub
Den Pfad musst du nach deinen Bedürfnissen anpassen. Gruß
M. O.
Powershell
Wenn dein Betriebssystem die Powershell hat (ab Windows 7) dann geht sowas:
Mit Parameter "Whatif" zum Testen:
dir * |% { ren $_ ($("_")[0] + "") -WhatIf}
Ohne "Whatif" zum ausführen:
dir * |% { ren $_ ($("_")[0] + "")}
Powershell
Im IMG Ordner liegen die grossen Bilder im tmb die Thumbbilder. im Moment tragen alle bilder dieser beiden Ordner, usw. Das selbe für tmb. dies beiden Ordner liegen in einem Hauptordner z. B: 1541. Nun sollen die Dateinamen in dem Ordner 1541 den Dateinamen, usw bekommen
Die Dateien im tmb so:, usw.
Und das dann für alle anderen Ordner auch. Hast Du Dir das FileSystemObject zwischenzeitlich schon angesehen? Das bringt soweit alles mit, was Du brauchst. Evtl. noch instrrev um einen Dateinamen von einem Pfad abzuschneiden und dann eine Sub, welche sich rekursiv selbst aufruft. Für welchen Zweck ist das? Edit:
Das mit dem Profil habe ich noch nicht verstanden. Vba datei umbenennen map. Ich gehe jetzt davon aus, dass eine Datei im Ordner c:\ordner\12345\img\ nach c:\ordner\12345\img\ umbenannt werden soll. Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von " peterfido " ( 10. April 2015, 23:13)
Im Moment Ligte alles in:
C:\images\
darunter dann die vielen Ordner mit Zahlen: 1, 2, 3..... In diesen Ordner dann jeweils der Ordner IMG und TMB.