Zmiana nazwy plików za pomocą programu Excel VBA

Question

Oto, co muszę zrobić. Mam te dwie kolumny w arkuszu excel. Z nazwami plików. Pierwsza kolumna zawiera bieżącą nazwę pliku, a druga kolumna ma nazwy, do których chce się przemianować pliki. Muszę tego użyć, ponieważ nie ma wzorca w zmianie nazwy. Na przykład poniższy plik może być zbiorem plików ...

Current Name > Rename To 
--------------------------- 
Abc.jpg  > Dinner.jpg 

Xyz.jpg  > Driving.jpg 

123.jpg  > Sunset.jpg 

Wiem, że powinno to być łatwe w VBA, ale nie do końca pewne. Każda pomoc byłaby bardzo cenna.

Answer 1

Myślę, że możesz zrobić coś takiego, używając funkcji Name do zmiany nazwy plików, jednak prawdopodobnie będziesz musiał upewnić się, że 2 kolumny mają pełną ścieżkę pliku, np. "C: \ Temp \ ABC.jpg "

Dim Source As Range 
Dim OldFile As String 
Dim NewFile As String 

Set Source = Cells(1, 1).CurrentRegion 

For Row = 1 To Source.Rows.Count 
    OldFile = ActiveSheet.Cells(Row, 1) 
    NewFile = ActiveSheet.Cells(Row, 2) 

    ' rename files 
    Name OldFile As Newfile 

Next