Excel listesine göre klasör belgesi isim değiştirmek

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Merhaba;
GIP üzerinden indirdiğimiz e-arşiv faturaları .html şeklinde indiriyorum ve excel sayfasına listeliyorum. R sütununda bulunan isimler, masaüstündeki GIB klasöründeki .html dosalarının ismini gösteriyor. Excel çalışma sayfasının C sütununda ise bu numaraya karşılık fatura numarası bulunuyor. Excel çalışma sayfasına makro ekleyerek R sütunun sırasında C sütunun fatura numarasını GIB klasöründe bulunan R sütunu ismindeki dosyaların ismini değiştirmek istiyorum.
Klasör içindeki isim aynı sadece sonunda " _f " eki vardır. Ve klasörün içindeki dosyanın uzantısı ise .html şeklindedir. Teşekkür ederim.

R sütunu 2.satır ismi
e02a877a-c0ab-4dcd-bece-edf3fed78a42
C sütunu 2.satır ismi

GIB2021000000137
GIB KLASÖR içindeki dosyanın ismi uzantısı .html


e02a877a-c0ab-4dcd-bece-edf3fed78a42_f

 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub test()
    pth = Environ("userprofile") & "\desktop\GİB\"
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        fName = pth & Cells(i, "R").Value & "_f.html"
        If Dir(fName) <> "" Then
            newName = pth & Cells(i, "C").Value & ".html"
            Name fName As newName
        End If
    Next i
End Sub
 

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Kod:
Sub test()
    pth = Environ("userprofile") & "\desktop\GİB\"
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        fName = pth & Cells(i, "R").Value & "_f.html"
        If Dir(fName) <> "" Then
            newName = pth & Cells(i, "C").Value & ".html"
            Name fName As newName
        End If
    Next i
End Sub
Teşekkür ederim, elinize sağlık, pratik ve sorunsuz olmuş.
 
Üst