Bir klasördeki birden fazla dosyayı Excel’de nasıl yeniden adlandırabilirim?
Çoğumuz muhtemelen şu sorunla karşılaşmıştır: bir klasördeki çok sayıda dosyayı yeniden adlandırmamız gerekir. Dosya adlarını tek tek değiştirmek, klasörde yüzlerce hatta binlerce dosya varsa gerçekten sinir bozucu olabilir. Bu görevi kolayca yerine getirmemize yardımcı olacak etkili işlevler var mıdır?
Adım 1: Belirli bir klasörden tüm dosya adlarını çalışma sayfasına kutools for Excel ile listeleyin
Adım 2: Bir klasördeki birden fazla dosyayı Excel'de VBA koduyla yeniden adlandırın
Belirli bir klasörden tüm dosya adlarını çalışma sayfasına kutools for Excel ile listeleyin
Yeniden adlandırmak istediğiniz birden fazla dosya varsa, öncelikle eski dosya adlarını bir çalışma sayfası sütununda listeleyin ve hemen ardından yerine koymak istediğiniz yeni dosya adlarını girin. Tüm dosyaları çalışma sayfasında anında listelemek için Kutools for Excel’in Dosya Adı Listesi yardımcısını kullanabilirsiniz.
Kutools for Excel yüklendikten sonra Kutools for Excel, lütfen aşağıdaki adımları uygulayın:()Kutools for Excel'i Ücretsiz İndirin)
1.KUTOOLS PLUS>İçe/Dışa Aktar>Dosya Adı Listesibölümüne tıklayın; ekran görüntüsüne bakın:
2.Dosya Adı Listesiiletişim kutusunda, dosyaları listelemek istediğiniz klasörü seçmek için 
düğmesine tıklayın ve ardından Tüm dosyalarseçeneğini Dosya türübölümünden seçin; ekran görüntüsüne bakın:
3. Ardından Tamam düğmesine tıklayın; tüm dosya adları bir Yeni Çalışma Sayfası’nın bir sütununda listelenir ve bazı dosya öznitelikleri de gösterilir. Artık istenmeyen diğer sütunları silebilir ve yalnızca Dosya Adı sütununu bırakabilirsiniz; ekran görüntüsüne bakın:
Bu Dosya Adı Listesi özelliğinin ayrıntılarını öğrenmek için tıklayın…
Kutools for Excel'i Ücretsiz İndirin
Bir klasördeki birden fazla dosyayı Excel'de VBA koduyla yeniden adlandırın
Tüm orijinal dosya adlarını A sütununa listeledikten sonra, yeni dosya adlarını aşağıdaki ekran görüntüsünde gösterildiği gibi B sütununa yazmalısınız:
Burada, eski dosya adlarını yeni dosya adlarıyla aynı anda değiştirmenize yardımcı olabilecek bir VBA kodundan bahsedeceğim. Lütfen aşağıdaki adımları uygulayın:
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.
VBA kodu: Bir klasördeki birden fazla dosyayı yeniden adlandırma
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. Kodu yapıştırdıktan sonra, bu kodu çalıştırmak için lütfen F5 tuşuna basın ve dosya adlarını değiştirmek istediğiniz klasörü seçmek üzere Gözat penceresini açın; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; tüm eski dosya adları hemen yeni dosya adlarıyla değiştirilir. Ekran görüntülerine bakın:
 |  |  |
Notlar:
1. Eski ve oluşturulan dosya adlarınızı listelerken dosya uzantısını mutlaka ekleyin.
2. Yukarıdaki kodda, A:A başvurusu, yeniden adlandırmak istediğiniz eski Dosya Adı Listesi’ndeki dosya adlarını belirtir ve B başvurusu, kullanmak istediğiniz yeni dosya adlarını içerir; bunları ihtiyacınıza göre değiştirebilirsiniz.
Demo: Excel'de bir klasördeki birden fazla dosyayı yeniden adlandırma
İlgili makaleler:
Excel'de bir hücre aralığından Dizi Çalışma Sayfaları nasıl oluşturulur?
Excel'de birden fazla çalışma sayfasını nasıl yeniden adlandırabilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar