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.