PDF Dosyasının İsmini Değiştirme

[ozuberk]

Merhaba üstatlar D:\Deneme1 ve D:\Deneme2 dosyaların içinde yer alan PDF dosyalarının isimlerini makro ile değiştirmek mümkün mü?

Deneme1 içinde yer alan PDF isimleri A1 de değişecek isimler B1 de yer alıyor
Deneme2 içinde yer alan PDF isimleri A1 de değişecek isimler G1 de yer alıyor

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Klasordeki_Dosya_Adlarini_Degistir()
    Dim Klasor_1 As String, Klasor_2 As String, Dosya As Range, Say As Long
   
    Klasor_1 = "D:\Deneme1\"
    Klasor_2 = "D:\Deneme2\"
   
    For Each Dosya In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
        If Dir(Klasor_1 & Dosya.Value) <> "" Then
            Name Klasor_1 & Dosya.Value As Klasor_1 & Dosya.Offset(, 1).Value
            Say = Say + 1
        End If
   
        If Dir(Klasor_2 & Dosya.Value) <> "" Then
            Name Klasor_2 & Dosya.Value As Klasor_2 & Dosya.Offset(, 6).Value
            Say = Say + 1
        End If
    Next
       
    MsgBox Say & " adet dosya adı değiştirilmiştir.", vbInformation
End Sub

 

[ozuberk]

Korhan hocam "Variable not defined" hatası aldım. Hata alınan yeri aşağıda işaretledim.

Option Explicit

Sub Klasordeki_Dosya_Adlarini_Degistir()
Dim Klasor_1 As String, Klasor_2 As String, Dosya As Range

Klasor_1 = "D:\Deneme1\"
Klasor_2 = "D:\Deneme2\"

For Each Dosya In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
If Dir(Klasor_1 & Dosya.Value) <> "" Then
Name Klasor_1 & Dosya.Value As Klasor_1 & Dosya.Offset(, 1).Value
Say = Say + 1
End If

If Dir(Klasor_2 & Dosya.Value) <> "" Then
Name Klasor_2 & Dosya.Value As Klasor_2 & Dosya.Offset(, 6).Value
Say = Say + 1
End If
Next

MsgBox Say & " adet dosya adı değiştirilmiştir.", vbInformation
End Sub

 

[Korhan Ayhan]

Dim tanımlamasını unutmuşum. Düzelttim. Tekrar deneyiniz.

 

[ozuberk]

Korhan Bey elinize sağlık, teşekkür ederim.