✔ Dateinamen individuell ändern mit excel

[wolfi9]

Hallo Gemeinde,
es gibt ein wunderbares Programm "Bulk rename utility" im freiem download das kann folgendes:

Ich will auf einmal viele Dateien, deren Namen untereinander in einer "Excel Tabelle" stehen von alt in neu umwandeln.
Das ist meine Vorgabe: Spalte 1 alter Dateiname Spalte 2 neuer Name.
mit BRU geht das so

Daraus wird eine Textdatei für BRU erstellt

wobel eine Zeile so aussieht:

alti.doc|neu1.doc. mit i=1,2,3

Es muss zusätzlich ein "Trenner" dazwischen geladen werden (ALT 0124).
Ab in BRU und die Umbenennung ist schon erledigt TOLL!

Da ich ja nur den Dateinamen ändere und alle Dateien im gleichen Verzeichnis stehen, müsste diese Aufgabe auch mit einem VB Makro aus Excel heraus auch gehen.
Den Export und den Programmwechsel möchte ich vermeiden.
Hinweis kenne mich mit Programmierung usw. leider nicht aus.

Kennt jemand eine (fertige) Lösung?

Wolfi9

 

[Zvoni]

Public Sub Umbenennen()
Dim i As Long
Dim AlterName As String
Dim NeuerName As String

On Error Resume Next    'Wenn es einen Fehler gibt, wird die Datei übersprungen

For i=ErsteZeile To LetzteZeile    'Ich weiss ja nicht wo die bei dir anfangen und aufhören
                                                    'Anstatt "LetzteZeile" kann man dann auch
                                                    '"Tabelle1.UsedRange.Rows.Count" nehmen

      AlterName = ThisWorkbook.Path & "\" & Tabelle1.Cells(i,1)
      NeuerName = ThisWorkbook.Path & "\" & Tabelle1.Cells(i,2)

      Name AlterName As NeuerName

Next

End Sub

 

[wolfi9]

Hallo ,
habe die Aufgabe gelöst durch bessere Recherche im Net.

Hier ist das script

Sub Kopieren()
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Zeilenanzahl
Dateiname_alt = Range("A" & x)
Dateiname_neu = Range("B" & x)
FileCopy Dateiname_alt, Dateiname_neu
Next x
End Sub

Wolfi9

closed