Nebude to profesionální řešení, ale jen rada jak postupovat.
V příloze je soubor, který jsem tu už dával víckrát, je to někde z netu sehnaný .xls, který vypíše obsah zvoleného adresáře (mimo jiné) a cestu.
Výstup doporučuju zkopírovat do nového souboru jako hodnoty a pak si vzorcema a přepisem jmen připravit dva finální sloupce, kde bude staré a nové jméno souboru s plnou cestou a příponou. Např.
C:\temp\1.jpg C:\temp\zkouška 1.jpg
Pak už jen do modulu vložit makro
Sub prejmenovat()
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Name Cells(i, 1) As Cells(i, 2)
Next i
End Sub
pomodlit se a spustit.
V příloze je soubor, který jsem tu už dával víckrát, je to někde z netu sehnaný .xls, který vypíše obsah zvoleného adresáře (mimo jiné) a cestu.
Výstup doporučuju zkopírovat do nového souboru jako hodnoty a pak si vzorcema a přepisem jmen připravit dva finální sloupce, kde bude staré a nové jméno souboru s plnou cestou a příponou. Např.
C:\temp\1.jpg C:\temp\zkouška 1.jpg
Pak už jen do modulu vložit makro
Sub prejmenovat()
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Name Cells(i, 1) As Cells(i, 2)
Next i
End Sub
pomodlit se a spustit.
Příloha: 24119_vypisadresaresoubory_4.zip (26kB, staženo 171x)
citovat