< návrat zpět

MS Excel


Téma: Hromadné přejmenování souborů na základě seznamu rss

Zaslal/a 14.3.2015 10:06

Dobrý den,
chtěl bych požádat o pomoc při vytvoření makra na hromadné přejmenování souborů ve složce (většinou se bude jednat o pdf soubory nebo obrázkové soubory na základě seznamu, který mám v excelu)
Je toto možné nějak zautomatizovat? Přepisovat ručně název třeba 1000 souborů je dosti pracné.
Předem děkuji za radu.

Příloha: zip24118_wall-dotaz.zip (6kB, staženo 65x)
Zaslat odpověď >

Strana:  1 2   další »
#024119
avatar
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.
Příloha: zip24119_vypisadresaresoubory_4.zip (26kB, staženo 180x)
citovat
icon #024129
eLCHa
@kalisci
Jestli mohu doporučit, tak raději
TotalCommander nebo FreeCommander (používám já) a jistě i další programy mají tuto funkci integrovanou. Tyto 2 pod klávesovou zkratkou CTRL+M - než spustíte, vidíte výsledek. Pokud by nevyhovovalo, tak něco podobného jako napsal Dingo (přijde mi, že na to jde trochu komplikovaně, ale výsledku by asi dosáhl) - zkoušet se mi to nechce ;)))citovat
#024166
avatar
Děkuji Dingovi. Je to sice trošku složitější, ale funguje.
Total commander znám ale co vím, tak nepodporuje přejmenování na základě seznamu.citovat
#024167
avatar
Příkazový řádek, zadej

for /?

prohlédni si text a věnuj pozornost zejména popisu

FOR /F "eol=; tokens=2,3* delims=, " %i in (soubor.txt) do @echo %i %j %k

a uprav si ho na 2 proměnné a příkaz ren
Myslím, že to problém řeší.citovat
#024184
elninoslov
Tak som Vám niečo urobil 1
Nemente žiadne bunky okrem zelených !
Prosím okomentujte.
Příloha: rar24184_premenovaniesuborov.rar (37kB, staženo 461x)
citovat
#024188
avatar
@elninoslov
WOW, tak to je geniální a přesně, co jsem potřeboval 9citovat
#024189
elninoslov
Pridal som tam ešte ukazateľ priebehu (ProgressBar) dole vľavo v stavovej lište Excelu. Kvôli tomu aby som mohol ukazovať %-tuálny priebeh, som musel pridať ďalšiu metódu na zistenie počtu súborov, predtým ako prebehne vlastné zisťovanie názvov súborov. Ale už sa mi to nechce prerábať, tak aby to bolo možno o 0,5 sek rýchlejšie.

Testoval som to na 7 GB dát - 1000 súborov MP3 - cca 30 znakové názvy :
- načítanie názvov súborov - cca 1 s (nepodarilo sa mi to ani odmerať)
- premenovanie 1000 súborov trvá 5,6 sekundy
- zistil som, že ako chybu vyhodnotí pokus o premenovanie súboru v ktorom je "è" ("é" s opačným dĺžňom - francúzština) a ruské znaky. Toto by bolo treba ešte doriešiť, ak to bude niekomu vadiť, ale popravde neviem ako to v objekte FSO riešiť.

Ďalšia vec, ktorú ešte premyslím, či tam niekedy zapracujem, je import nejakého textového súboru s pripravenými novým názvami, a viacnásobný výber adresárov.

PS: Časy testované na 7200rpm disku (ostatné komponenty sú pre toto nepodstatné ale uvediem i7 4770S, systém na SSD)
Příloha: rar24189_premenovaniesuborov2.rar (45kB, staženo 169x)
citovat
#024193
avatar
Elninoslov to je prostě paráda.
Děkuji moc. Jak je vidět, pomůže to i ostatním....
Teď tomu nechybí vůbec nic a práce s tím - bez chyby.citovat
#024194
elninoslov
Ale sú tam stále chyby. Všade sa vždy nájdu.
Vymenil som čítanie príponu súboru za natívnu funkciu objektu FSO, ďalej odstránil som 2 nepoužívané Fnc, opravil/upravil podmienené formátovanie na základe hodnôt, a opravil kontrolu maximálneho počtu položiek, ktorá nefungovala dobre.
Prípadné postrehy privítam.
Příloha: rar24194_premenovaniesuborov3.rar (45kB, staženo 96x)
citovat
#024203
elninoslov
Po dlhom skúmaní prichádzam s inou metódou premenovania, ktorá nemá problém s Unicode znakmi.
Rozdiel v rýchlosti je takmer 0.
Příloha: rar24203_premenovaniesuborov4.rar (46kB, staženo 512x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje