Soru Makro ile Xlsm Adı değiştirme

[bulentkars]

Arkadaşlar Merhaba

O:\ORTAK\TALIMATLAR\TALIMAT\ Klasörü içindeki 4 adet xlsm dosyasının adını değiştirmek istiyorum. Yardımcı olabilirseniz sevinirim.

10.xlsm yeni adı 0.xlsm
11.xlsm yeni adı 00.xlsm
12.xlsm yeni adı 000.xlsm

olarak değiştirmek istiyorum.
Örneğin 10.xlsm dosya adı 0.xlsm olarak değişecek.
şimdiden teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Klasordeki_Dosya_Adlarini_Degiştir()
    Dim Yol As String, Eski_Dosya As Variant
    Dim Yeni_Dosya As Variant, X As Byte
   
    Yol = "O:\ORTAK\TALIMATLAR\TALIMAT\ "

    Eski_Dosya = Array("10.xlsm", "11.xlsm", "12.xlsm")
    Yeni_Dosya = Array("0.xlsm", "00.xlsm", "000.xlsm")
   
    For X = LBound(Eski_Dosya) To UBound(Eski_Dosya)
        If Dir(Yol & Eski_Dosya(X)) <> "" Then
            Name Yol & Eski_Dosya(X) As Yol & Yeni_Dosya(X)
        End If
    Next
   
    MsgBox "Dosya isimleri değiştirilmiştir.", vbInformation
End Sub

 

[bulentkars]

Korhan Bey Merhaba,
Elinze sağlık çok teşekkür ederim.