Ana içeriğe atla

Excel'de bir klasörün birden çok dosyasını nasıl yeniden adlandırabilirim?

Çoğumuz, bir klasördeki birden fazla dosyayı yeniden adlandırmamız gereken bu sorundan muzdarip olabiliriz, dosya adlarını tek tek yeniden adlandırmak, o klasörde yüzlerce veya binlerce dosya varsa bizi çıldırtacaktır. Bu görevin üstesinden gelmemiz için iyi işlevler var mı?

Excel için kutools ile çalışma sayfasındaki belirli bir klasördeki tüm dosya adlarını listeleyin

Excel'de bir klasörün birden çok dosyasını VBA kodu ile yeniden adlandırın


Yeniden adlandırmak istediğiniz birden çok dosya varsa, önce eski dosya adlarını bir çalışma sayfası sütununda listeleyebilir ve ardından değiştirmek istediğiniz yeni dosya adlarını girebilirsiniz. Çalışma sayfasındaki tüm dosyaları hızlı bir şekilde listelemek için, Kutools for Excel'S Dosya Adı Listesi Yarar.

Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin )

1. tıklayın Kutools Artı > İthalat ihracat > Dosya Adı Listesi, ekran görüntüsüne bakın:

2. In Dosya Adı Listesi iletişim kutusunu tıklayın doc-rename-birden çok dosya-1 Dosyaları listelemek istediğiniz dosya klasörünü seçmek için düğmesine ve ardından Tüm dosyalar itibaren Dosya türü, ekran görüntüsüne bakın:

doc-rename-birden çok dosya-1

3. Sonra tıklayın OK düğmesi, tüm dosya adları yeni bir çalışma sayfasının bir sütununda ve bazı dosya özniteliklerinde listelenmiştir ve artık diğer istenmeyen sütunları silebilir ve yalnızca Dosya Adı sütun, ekran görüntüsüne bakın:

doc-rename-birden çok dosya-1

Bu Dosya Adı Listesi özelliği hakkında daha fazla bilgi edinmek için tıklayın…

Kutools for Excel'i Şimdi Ücretsiz İndirin


Tüm orijinal dosya adlarını bir sütun A'da listeledikten sonra, aşağıdaki ekran görüntüsü gibi B sütununa yeni dosya adlarını yazmalısınız:

doc-rename-birden çok dosya-1

Ve burada eski dosya adlarını yeni dosya adlarıyla değiştirmenize yardımcı olabilecek bir VBA kodundan bahsedeceğim. Lütfen aşağıdaki adımları uygulayın:

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic Penceresi.

2. tıklayın Ekle > modülve aşağıdaki makroyu Modül penceresi.

VBA kodu: Bir klasördeki birden çok dosyayı yeniden adlandırın

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 lütfen F5 bu kodu çalıştırmak için anahtar ve Araştır penceresinde, dosya adlarını değiştirmek istediğiniz klasörü seçin, ekran görüntüsüne bakın:

doc-rename-birden çok dosya-1

4. Ve sonra tıklayın OK, tüm eski dosya adları hemen yeni dosya adlarıyla değiştirilmiştir. Ekran görüntülerine bakın:

doc-rename-birden çok dosya-1 2 doc-rename-birden çok dosya-1

Notlar:

1. Eski ve yeni dosya adlarınızı listelediğinizde, dosya uzantısı dahil edilmelidir.

2. Yukarıdaki kodda, referans A: A yeniden adlandırmak istediğiniz eski dosya adları listesini ve referans B kullanmak istediğiniz yeni dosya adlarını içerir, bunları ihtiyacınıza göre değiştirebilirsiniz


Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

İlgili yazılar:

Excel'de bir dizi hücreden sıra çalışma sayfaları nasıl oluşturulur?

Excel'de birden çok çalışma sayfasını nasıl yeniden adlandırabilirim?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great! it work for me
This comment was minimized by the moderator on the site
The above stated code does not detect native language file names in Hindi or Marathi - example "HIN-MALE-CH - 7 - कार"
Here the code does not detect "कार"
Any way to handle this issue?
This comment was minimized by the moderator on the site
Sziasztok!
Ha kép nevébe "/" jelet akarok rakni, akkor min kell változtatnom?
Ha benne van a "/" jel akkor nekem nem működik.

Köszönöm
Andor
This comment was minimized by the moderator on the site
Hello, Benedeczki,

Under normal circumstances, the file name cannot contain the /\:*?<>” symbol, so if your picture name contains the / symbol, the code cannot run normally.
You'd better to remove the / symbol from the file name.
Thank you!
This comment was minimized by the moderator on the site
wow, useful and very helpful. BIG THANKS :)
This comment was minimized by the moderator on the site
Sub RenameMultipleFiles()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
selectDirectory = .SelectedItems(1)
dFileList = Dir(selectDirectory & Application.PathSeparator & "*")

Do Until dFileList = ""
curRow = 0
On Error Resume Next
curRow = Application.Match(dFileList, Range("A:A"), 0)
If curRow > 0 Then
Name selectDirectory & Application.PathSeparator & dFileList As _
selectDirectory & Application.PathSeparator & Cells(curRow, "B").Value
End If

dFileList = Dir
Loop
End If
End With
End Sub

this formula does not rename1st document
This comment was minimized by the moderator on the site
Love this so much! Is there a way to use Kutools to edit metadata tags for music similar to this with filenames? Would love being able to mass edit song tags through Excel rather than on iTunes or other third party song tag editors. Thank you!
This comment was minimized by the moderator on the site
okay Thank you
This comment was minimized by the moderator on the site
Hello. I did this for a couple of files and it worked successfully. The next few files i tried, did not work. There were a few formulas added to the new names, could that be the issue?
This comment was minimized by the moderator on the site
Very helpful. Thank you!
This comment was minimized by the moderator on the site
great, worked great for me
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations