Bir klasördeki ve alt klasörlerdeki tüm dosyaları bir çalışma sayfasına nasıl listelersiniz?

Bir klasördeki tüm dosya adlarını, içindeki alt klasörlerde bulunan dosyalar da dahil olmak üzere bir çalışma sayfasına listelemeyi denediniz mi? Aslında, Excel'de bir klasör ve alt klasöründeki dosya adlarını listelemek için doğrudan bir yöntem bulunmamaktadır. Ancak bugün, bu görevi çözmek için bazı hızlı ipuçları tanıtacağım.

VBA kodu ile klasör ve alt klasördeki tüm dosya adlarını listeleme

Kutools for Excel ile klasör ve alt klasördeki tüm dosya adlarını hızlı ve kolay bir şekilde listeleme

VBA kodu ile klasör ve alt klasördeki tüm dosya adlarını listeleme

Normalde, Excel'in bu görevle başa çıkmak için yerleşik bir özelliği yoktur, ancak aşağıdaki VBA kodunu uygulayarak bu sorunu çözebilirsiniz.

1. Dosya adlarını listeleyecek yeni bir çalışma sayfasını etkinleştirin.

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

3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Klasör ve alt klasördeki tüm dosya adlarını listeleme

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. Kodu Modüle yapıştırdıktan sonra, bu kodu çalıştırmak için F5 tuşuna basın ve bir Makrolar iletişim kutusu açılacak, MainList makro adını seçin ve ardından Çalıştır düğmesine tıklayın, ekran görüntüsüne bakın:

5. Gözat penceresinde, alt klasörlerdeki dosyalar da dahil olmak üzere tüm dosya adlarını listelemek istediğiniz klasörü seçin, ekran görüntüsüne bakın:

6. Klasörü belirledikten sonra Tamam düğmesine tıklayın ve klasördeki ve alt klasörlerindeki tüm dosya adları geçerli çalışma sayfasındaki A2 hücresinden itibaren listelenir, ekran görüntülerine bakın:

Kutools for Excel ile klasör ve alt klasördeki tüm dosya adlarını hızlı ve kolay bir şekilde listeleme

Yukarıdaki kodla sadece dosya adlarını listeleyebilirsiniz, bazen dosya boyutu, dosya türü, oluşturulma zamanı, içeren klasör gibi diğer özellikleri de listelemeniz gerekebilir. Kutools for Excel, bu özellik sayesinde bir klasördeki ve alt klasörlerindeki tüm veya belirli türdeki dosya adlarını hızlıca listeleyebileceğiniz Faydalı bir Fonksiyon - Dosya Adı Listesi içerir.

Kutools for Excel'i indirip kurduktan sonra lütfen aşağıdaki adımları izleyin:

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

2. Dosya Adı Listesi iletişim kutusunda aşağıdaki işlemleri yapın:

A: Tıklayın butonuna basarak dosya adlarını listelemek istediğiniz klasörü seçin;

B: Dosya Türü bölümünden listelemek istediğiniz dosya türünü belirtin;

C: Dosya Boyutu Birimi bölümünden görüntülemek istediğiniz bir dosya boyutu birimini seçin.

Not: Alt klasörlerden dosya adlarını listelemek için Alt dizinlerdeki dosyaları dahil et seçeneğini işaretleyin, ayrıca gizli dosyaları ve klasörleri de ihtiyacınıza göre işaretleyebilirsiniz. Hiperlink oluştur seçeneğini işaretlerseniz, her dosya adı ve klasör için hiperlink oluşturacaktır.

3. Ardından Tamam düğmesine tıklayın, seçilen klasörde ve alt klasörlerinde yer alan tüm dosyalar aşağıdaki özniteliklerle yeni bir çalışma sayfasında görüntülenecektir. Ekran görüntüsüne bakın:

Bu Dosya Adı Listesi aracı hakkında daha fazla bilgi edinmek için tıklayın.

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!