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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!