Excel'de bir klasördeki birden fazla dosyayı nasıl yeniden adlandırabiliriz?

Belki de çoğu bizim gibi bu sorunla uğraşmışızdır: Bir klasördeki birden fazla dosyayı yeniden adlandırmamız gerekiyor. Eğer klasörde yüzlerce veya binlerce dosya varsa, dosya isimlerini teker teker değiştirmek bizi deli edebilir. Bu görevle başa çıkmak için kullanabileceğimiz iyi bir yöntem var mı?

Adım 1: Excel için Kutools ile belirli bir klasördeki tüm dosya isimlerini çalışma sayfasına listeleme

Adım 2: VBA kodu ile Excel'de bir klasördeki birden fazla dosyayı yeniden adlandırma

Excel için Kutools ile belirli bir klasördeki tüm dosya isimlerini çalışma sayfasına listeleme

Eğer yeniden adlandırmak istediğiniz birden fazla dosya varsa, önce eski dosya isimlerini çalışma sayfasının bir sütununa listeleyebilir ve ardından değiştirmek istediğiniz yeni dosya isimlerini girebilirsiniz. Çalışma sayfasındaki tüm dosyaları hızlıca listelemek için Excel için Kutools'un Dosya Adı Listesi yardımcı programını kullanabilirsiniz.

Excel için Kutools'u yükledikten sonra lütfen şu adımları izleyin:( Excel için Kutools'u Şimdi Ücretsiz İndir )

1. Kutools Plus > İçe Aktar & Dışa Aktar > Dosya Adı Listesi'ne tıklayın, ekran görüntüsüne bakın:

2Şurada Dosya Adı Listesi diyalog kutusunda butonuna tıklayarak dosyaları listelemek istediğiniz dosya klasörünü seçin ve ardından Tüm dosyalar seçeneğini Dosya türükısmından seçin, ekran görüntüsüne bakın:

3. Ardından Tamam butonuna tıklayın, tüm dosya isimleri yeni bir çalışma sayfasının bir sütununa listelenmiş olacaktır, ayrıca bazı dosya özellikleri de eklenecektir. 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 daha fazla bilgi için tıklayın…

Excel için Kutools'u Şimdi Ücretsiz İndir

VBA kodu ile Excel'de bir klasördeki birden fazla dosyayı yeniden adlandırma

A sütununa tüm orijinal dosya isimlerini listeledikten sonra, aşağıdaki ekran görüntüsünde gösterildiği gibi B sütununa yeni dosya isimlerini yazmalısınız:

Burada size eski dosya isimlerini yeni dosya isimleriyle bir seferde değiştirmenize yardımcı olabilecek bir VBA kodundan bahsedeceğim. Lütfen aşağıdaki adımları izleyin:

1. ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle > Modül'e 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, kodu çalıştırmak için F5 tuşuna basın ve Gözat penceresinde, dosya isimlerini değiştirmek istediğiniz klasörü seçin, ekran görüntüsüne bakın:

4. Ve ardından Tamam'a tıklayın, tüm eski dosya isimleri anında yeni dosya isimleriyle değiştirilecektir. Ekran görüntüleri:

Notlar:

1. Eski ve yeni dosya isimlerini listelerken, dosya uzantısının mutlaka dahil edilmesi gerekir.

2. Yukarıdaki kodda, A:A referansı yeniden adlandırmak istediğiniz eski dosya isimlerini temsil eder ve B referansı ise kullanmak istediğiniz yeni dosya isimlerini içerir, bunları ihtiyaçları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 sıra çalışma sayfaları nasıl oluşturulur?

Excel'deki birden fazla çalışma sayfasını nasıl yeniden adlandırabiliriz?