[ milooskv @ 03.01.2015. 21:29 ] @
Pozdrav svima,

Imam sledeći problem:

Imam tabelu (spisak) u Excel-u, oko 6000 redova, gde se:

-u koloni A nalaze redni brojevi (1,2,3...)
-u koloni F neki drugi brojevi (npr 111222333)
-u koloni N treći brojevi (npr 444555666)



Pored toga, imam folder sa isto toliko (oko 6000) PDF fajlova, čija je struktura imena fajla sledeća: N_kolona-F_kolona.pdf (npr 444555666-111222333.pdf)

Moje pitanje je: Kako mogu da, uz pomoć ovog spiska u Excel-u, izvršim grupno preimenovanje fajlova u folderu, da struktura imena bude redni_broj-N_kolona-F_kolona, (npr 1-444555666-111222333.pdf , 2-444555666-111222333.pdf , 3-444555666-111222333.pdf itd.)?

[Ovu poruku je menjao milooskv dana 03.01.2015. u 23:15 GMT+1]
[ FOX028 @ 04.01.2015. 02:20 ] @
Otvori VBA editor u tom Excel fajlu (Alt+F11) zatim odaberi sa liste na levoj strani editora Sheet na kome ti se nalazi taj spisak i tu ubaci sledeci VBA kod:

Code:
Sub Preimenuj()
Dim Lokacija As String
Dim StariNaziv As String
Dim NoviNaziv As String
Dim i As Integer
Dim Pocetak As Integer
Dim Kraj As Integer

Lokacija = "G:\Proba"       'adresa foldera gde se nalaze PDF fajlovi
Pocetak = 1                    'broj reda od kog pocinje spisak sa rednim brojevima u A i ostalim brojevima u F i N koloni
Kraj = 6000                     'broj reda gde se zavrsava spisak

For i = Pocetak To Kraj
    StariNaziv = Lokacija & "\" & Cells(i, 14) & "-" & Cells(i, 6) & ".pdf"
    NoviNaziv = Lokacija & "\" & Cells(i, 1) & "-" & Cells(i, 14) & "-" & Cells(i, 6) & ".pdf"
    Name StariNaziv As NoviNaziv
Next i

End Sub


pre nego sto pokrenes kod promeni podatke za Lokaciju, Pocetak i Kraj pa tek onda pokreni proceduru (F5).
Ovo bi trebalo da zavrsi posao.
[ milooskv @ 05.01.2015. 12:33 ] @
Odradio sam preko Total Commander-a, mnogo je lakše, samo se iz Excel-a prekopitaju kolone u .txt fajl, i onda on pokupi imena iz tog fajla i grupno preimenuje sve fajlove.

Hvala na pomoći u svakom slučaju. :)

Pozdrav

P.S. Ako nekome treba, mogu da opišem detaljno, korak po korak kako sam odradio.
[ 3okc @ 05.01.2015. 13:03 ] @
TC, naravno, ovo savršeno završava.

Hvala na ponudi da opišeš postupak ali neko te je već pretekao:
SVE O Total Commander-u > Multi Rename Tool (Ctrl+M)
[ milooskv @ 05.01.2015. 21:08 ] @
Citat:
TC, naravno, ovo savršeno završava.

Hvala na ponudi da opišeš postupak ali neko te je već pretekao:
SVE O Total Commander-u > Multi Rename Tool (Ctrl+M)


Malo je specifičniji slučaj koji je meni trebao. Ukatko, trebalo mi je da sortiram podatke u Excel-u po vrednostima iz F kolone, zatim da prekopiram ove tri kolone u .txt fajl, pa da sve tabove u .txt fajlu zamenim sa nekim drugim simbolom (jer ime fajla ne može da sadrži tab) i tek onda taj fajl upotrebim u multi rename tool-u (get names from file).