Excel'de birden fazla dosya adını hücrelere nasıl içe aktarabilirim?
Diyelim ki yüzlerce dosya içeren bir klasörünüz var ve bu dosya adlarını bir çalışma sayfasının hücrelerine hızlıca aktarmak istiyorsunuz. Dosya adlarını tek tek kopyalayıp yapıştırmak oldukça zaman alıcıdır. Bu makalede, bir klasördeki birden fazla dosya adını çalışma sayfanıza verimli bir şekilde içe aktarmanıza yardımcı olacak bazı pratik yöntemleri sizinle paylaşacağım.
Çoklu dosya adlarını VBA koduyla çalışma sayfası hücrelerine içe aktarma
Çoklu dosya adlarını Kutools for Excel ile çalışma sayfası hücrelerine içe aktarma
Çoklu dosya adlarını VBA koduyla çalışma sayfası hücrelerine içe aktarma
Aşağıdaki VBA kodu, dosya adlarını, dosya uzantılarını ve klasör adlarını çalışma sayfasındaki hücrelere içe aktarmanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin:
1. Dosya adlarını içe aktarmak istediğiniz yeni çalışma sayfasını oluşturun.
2. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun. Microsoft Visual Basic for Applications penceresi açılacaktır.
3. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Çoklu dosya adlarını çalışma sayfası hücrelerine içe aktarma
Sub GetFileList()
'updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
4.Ardından bu kodu çalıştırmak için F5tuşuna basın ve açılan Gözat penceresinde dosya adlarını içe aktarmak istediğiniz klasörü seçin; ekran görüntüsüne bakın:
5. Ardından Tamam düğmesine tıklayın; aşağıdaki sonucu alacaksınız:
Not：Belirttiğiniz klasörde alt klasörler varsa, bu alt klasörlerdeki dosya adları içe aktarılmaz.
Çoklu dosya adlarını Kutools for Excel ile çalışma sayfası hücrelerine içe aktarma
Klasördeki ve alt klasörlerdeki dosya adlarını içe aktarmanız gerekiyorsa endişelenmeyin; Kutools for Excel’nin Dosya Adı Listesi aracıyla belirtilen klasördeki (alt klasörler dahil) tüm dosya adlarını kolayca içe aktarabilirsiniz.
Kutools for Excel yüklendikten sonra Kutools for Excel, lütfen aşağıdaki adımları izleyin:
1.KUTOOLS PLUS>İçe/Dışa Aktar>Dosya Adı Listesiseçeneğine tıklayın; ekran görüntüsüne bakın:
2.Dosya Adı Listesiiletişim kutusunda aşağıdaki işlemleri yapın:
(1.) İçe aktarmak istediğiniz dosyaların bulunduğu klasörü seçmek için 
düğmesine tıklayın;
(2.) Alt klasörlerin dosya adlarını da içe aktarmak için Alt dizinlerdeki dosyaları dahil etseçeneğini işaretleyin;
(3.) Dosya türü'ı Dosya türübölümünde belirtin;
(4.) Görüntülemek istediğiniz Dosya boyutu birimi'yi Dosya boyutu birimibölümünden seçin;
(5.) Dosya adlarını ve klasörleri köprü olarak eklemek istiyorsanız, Hyperlink Oluştur seçeneğini işaretleyin.
3. Ayarları tamamladıktan sonra Tamam düğmesine tıklayın; böylece klasördeki ve alt klasörlerdeki dosya adları, aşağıdaki ekran görüntüsünde gösterildiği gibi bir Yeni çalışma sayfasına içe aktarılacaktır:
İpuçları: Belirli bir klasörden yalnızca belirli bir türdeki dosya adlarını içe aktarmak istiyorsanız, Belirt seçeneğini Dosya Adı Listesi iletişim kutusunda işaretleyip dosya uzantısını buraya yazabilirsiniz. Bu sayede hem klasörden hem de alt klasörlerden yalnızca belirttiğiniz türdeki dosya adları içe aktarılır.
Kutools for Excel'i hemen indirin ve ücretsiz deneyin!
İlgili makaleler:
Bir klasördeki ve tüm alt klasörlerindeki dosyaları çalışma sayfasında nasıl listeleyebilirim?
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