Excel Çalışma Sayfasında Bir Windows Klasöründeki Tüm Dosyaları Yinelemeli Olarak Listelemek İçin 3 Hızlı Yöntem

Birçok kullanıcının bir Windows klasöründeki tüm dosyaları ve tüm alt klasörlerini bir Excel çalışma sayfasında hızlı bir şekilde listelemesi gerekir. Bu nedenle, bu yazıda size bunu gerçekleştirmenin 3 hızlı yolunu tanıtacağız.

Bir Excel çalışma sayfasındaki bir Windows klasöründeki tüm dosyaları yinelemeli olarak listelemek istiyorsanız, dosya adlarını elle Excel'e kopyalamaktan kesinlikle hoşlanmayacaksınız. Kuşkusuz, çok sıkıcı ve zaman alıcıdır. Bu nedenle, burada size çok daha akıllı ve daha uygun 3 yaklaşım öğreteceğiz.

Yöntem 1: Bir Windows Klasöründeki Dosyaları Firefox veya Google Chrome aracılığıyla Listeleyin

1. Öncelikle, Windows Gezgini'nde belirli Windows klasörüne erişin ve klasör yolunu kopyalayın.
2. Ardından, Firefox veya Google Chrome'u başlatın.
3. Ardından, kopyalanan klasör yolunu İnternet Tarayıcısının adres çubuğuna yapıştırın.
4. Bundan sonra, "Enter" tuşuna basın.
5. Bir kerede, bu Windows klasöründeki tüm dosyalar tarayıcıda listelenecektir.
6. Ardından, tüm içeriği seçmek için "Ctrl + A" ve kopyalamak için ""Ctrl + C" tuşlarına basın.
7. Son olarak, bunları bir Excel çalışma sayfasına yapıştırın.

Yöntem 2: Bir Windows Klasöründeki Dosyaları “Ad Yöneticisi” aracılığıyla Listeleme

1. İlk başta, yeni bir Excel çalışma sayfası oluşturun.
2. Ardından A1 Hücresini seçin.
3. Ardından, "Formüller" sekmesine gidin ve "Ad Yöneticisi" düğmesini tıklayın.
4. Açılan iletişim kutusunda, “Yeni” düğmesine tıklayın.
5. Ardından, bir sonraki iletişim kutusunda, "Ad" alanına "Dosyalar" yazın.
6. Ve “Refers to:” alanında “=Sheet1!$A$1” öğesini “=FILES(Sheet1!$A$1)” olarak değiştirin.
7. Daha sonra, "Tamam" ı tıklayın ve "Ad Yöneticisi" iletişim kutusunu kapatın.
8. Daha sonra A1 Hücresindeki Windows klasör yolunu kopyalayın ve “\*” yolun sonunda.
9. Ardından, Hücre A3'ü seçin ve “=INDEX(Files,ROW()-2)” işlevini girin.
10. Hemen, bu Windows klasöründeki bir dosya aşağıdaki görüntüdeki gibi listelenecektir.
11. Son olarak, diğer dosyaları listelemek için bu işlevi "#REF!" hata. Hata, tüm dosyaların listelendiği anlamına gelir.

Yöntem 3: Bir Windows Klasöründeki Dosyaları Excel VBA Aracılığıyla Yinelemeli Olarak Listeleme

1. olaraktart, yeni bir Excel dosyası oluşturun.
2. Ardından, “ referansıyla Excel VBA düzenleyicisine erişin.Excel'inizde VBA Kodunu Nasıl Çalıştırırsınız?".
3. Ardından aşağıdaki kodu “ThisWorkbook” projesine kopyalayın.

Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = True
    End With
 
    Call LoopFolders(strWindowsFolder)
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim nLastRow As Integer
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        With ActiveSheet
            nLastRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & nLastRow) = objFile.Name
            .Range("B" & nLastRow) = objFile.Path
            .Range("C" & nLastRow) = objFile.Size
            .Range("D" & nLastRow) = objFile.Type
            .Range("E" & nLastRow) = objFile.DateCreated
            .Columns("A:E").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

4. Şimdi, ilk alt programa tıklayın ve “F5” tuşuna basın.
5. Açılır iletişim kutusunda, dosyaları listelemek istediğiniz bir Windows klasörüne gidin ve seçin ve “Tamam”a tıklayın.
6. Sonunda, makro bittiğinde, Excel çalışma sayfasına dönün. Aşağıdaki ekran görüntüsünde gösterildiği gibi, Windows klasöründeki ve alt klasörlerindeki tüm dosyalar listelenmiştir.

Excel Zaman Zaman Çöküyor

Diğer yazılımlar gibi, Excel ara sıra çökebilir ve bu da açık olan Excel dosyasını doğrudan yok edebilir. Bu gibi durumlarda, kullanıcıların çoğu, Excel'in dosyayı res'te otomatik olarak kurtarabileceğini umacaktır.tarT. Ancak, çoğu zaman gerçeklik beklediğiniz gibi değildir. O zaman, bir çareye başvurmak çok önemli olacaktır. Excel onarımı araç, gibi DataNumen Excel Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com