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

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,098
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.
[TABLE]

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

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

[/TABLE]
e02a877a-c0ab-4dcd-bece-edf3fed78a42_f

[/TABLE]
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
2,910
Excel Vers. ve Dili
Excel 2010-TR (32 bit)
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,098
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