Soru Dosya adı başındaki bazı başlıklar makroyla nasıl silinir?

[assenucler]

Merhabalar,


2004 yılından bugüne değin arşivimde bulunan yüzlerce "excel dosyası adları" baş kısmında (ÖNEMLİ_) (SAPTA01_) vb. bazı kelimeleri makroyla nasıl silebiliriz?

Dosyaların uzantıları xls ve xlsx ' dir. İlginizi bekliyorum.

 

[halit3]

Kod:
Kırmızı yerlere dikkat et

Sub mevcut_dosyaları_bul()

Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo atla
If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\"

Liste4 (Kaynak)
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
Private Sub Liste4(yol As String)
Dim fL As Object, fs As Object, f As Object, j As Long, n As Long
Set fL = CreateObject("Scripting.FileSystemObject")

For Each dosya In fL.GetFolder(yol).Files

uzanti = fL.GetExtensionName(dosya.Name)
MsgBox uzanti
If uzanti = "xls" Or uzanti = "xlsx" Then
yeni = Replace(Replace(dosya.Name, "SAPTA01_", ""), "ÖNEMLİ_", "")
klasor1 = fL.GetParentFolderName(dosya)
If Right(klasor1, 1) <> "\" Then klasor1 = klasor1 & "\"
If fL.FileExists(klasor1 & yeni) = False Then
Name dosya As klasor1 & yeni
End If
End If

Next

On Error GoTo sonraki
For Each f In fL.GetFolder(yol).SubFolders
Liste4 (f.Path)
sonraki:
Next

Set fL = Nothing
End Sub

 

[assenucler]

Halit Bey,

Öncelikle, ilginiz için teşekkür ederim.

Biraz önce kodunuzu bir modüle ekleyip, kaynak ve hedef klasörü gösterdiğimde; önce "Güncelleme yapılması gereken dosya var, güncellensin mi? sorusunu "Güncellenmesin" ile geçtiğimde, 4-5 dakika süren "Dönen bir halka" oluştu" ve ekteki resimde de görüleceği gibi herhangi bir düzeltme yapmayarak, ikinci kez "Hedef Klasörü Seçin" penceresi çıktı.

 

[Erdem Akdemir]

Merhaba,
Halit bey'in verdiği kodlarda sizin söylediğiniz mesajları verecek bir kod satırı yok.
Kodun içine sizin eklediğiniz alanlardan dolayı bu hatalar geliyordur.

 

[assenucler]

Sayın Kuvari,

Yukarıda yazdıklarım, Hedef" klasörü seçtikten sonra yaşadıklarımdır. Bilgilendirmek için yazdım.
Halit beyin kodlarında herhangi bir değişiklik yapmadım.

İlginiz için teşekkürler.

 

[halit3]

Merhaba buradaki kodlarda hedef klasör yok
sadece kaynak kalasör seçimi var
dosyayı 1 nolu mesaja ekledim.

 

[Cengiz Demir]

Merhabalar. Ant Renamer' i de kullanabilirsiniz.
Ant Renamer
Files bölümüne add files yada sürükle bırak yaparak dosyalarınızı ekleyin.
Action / Multiple String replacement seçip Search for bölümüne silinmesi istediğiniz kelimeleri yazıp. Go düğmesine basın.
Bir müddet sonra dosya isimleri düzenlenecektir

 

[assenucler]

Üstadım,

2. iletiye eklediğiniz dosya kodu ile olumlu sonuç aldım. Ancak klasörde 50 dosya varsa, bu dosya sayısı kadar açılan "xls, xlsx" penceresinde "Tamam" a tıklamak gerekiyor ve dosya adı başındaki "SAPTA01_, ÖNEMLİ_" sözcükleri kalkıyor.

Tamam'a bir kez basmak için kodda nasıl bir değişiklik gerekiyor?

İlgi, emek ve katkılarınız için teşekkür ederim.

Saygılar,

 

[assenucler]

Sayın Cengizdemir72,

Bilgilendirmeniz için teşekkürler.

 

[halit3]

bu bölümü sil

MsgBox Uzanti

 

[assenucler]

Halit Bey,

Son günlerde açtığım konulara en kısa sürede yanıt verdiniz. Size ne kadar teşekkür etsem az ve hakkınızı nasıl öderim bilmiyorum. Allah sizden ve değerli üstatlarımızdan razı olsun.

Saygılarımla.

 

[halit3]

Halit Bey,

Son günlerde açtığım konulara en kısa sürede yanıt verdiniz. Size ne kadar teşekkür etsem az ve hakkınızı nasıl öderim bilmiyorum. Allah sizden ve değerli üstatlarımızdan razı olsun.

Saygılarımla.

Teşekkürler iyi günler