3 Mabilis na Paraan upang Recursively Listahan ng Lahat ng mga File sa isang Windows Folder sa Excel Worksheet

Maraming mga gumagamit ang kailangang mabilis na ilista ang lahat ng mga file sa isang folder ng Windows at lahat ng mga subfolder nito sa isang worksheet ng Excel. Samakatuwid, sa artikulong ito, ipakilala namin sa iyo ang 3 mabilis na paraan upang mapagtanto ito.

Kung nais mong recursively ilista ang lahat ng mga file sa isang folder ng Windows sa isang worksheet ng Excel, tiyak na hindi mo magugustuhan ang pagkopya ng mga pangalan ng file sa Excel nang manu-mano. Walang alinlangan, ito ay masyadong nakakapagod at nakakapagod ng oras. Samakatuwid, dito tuturuan ka namin ng 3 mas matalino at mas maginhawang diskarte

Paraan 1: Maglista ng Mga File sa isang Windows Folder sa pamamagitan ng Firefox o Google Chrome

1. Una, sa Windows Explorer, i-access ang tukoy na folder ng Windows at kopyahin ang path ng folder.
2. Pagkatapos, ilunsad ang Firefox o Google Chrome.
3. Susunod, i-paste ang path na nakopya ng folder sa address bar ng Internet Browser.
4. Pagkatapos nito, pindutin ang "Enter" key.
5. Nang sabay-sabay, ang lahat ng mga file sa folder na ito ng Windows ay nakalista sa browser.
6. Pagkatapos, pindutin ang "Ctrl + A" upang mapili ang lahat ng mga nilalaman at "" Ctrl + C "" upang makopya ang mga ito.
7. Panghuli, i-paste ang mga ito sa isang worksheet ng Excel.

Paraan 2: Maglista ng Mga File sa isang Windows Folder sa pamamagitan ng "Pangalan ng Manager"

1. Sa una, lumikha ng isang bagong worksheet ng Excel.
2. Pagkatapos, piliin ang Cell A1.
3. Susunod, pumunta sa tab na "Mga Formula" at i-click ang button na "Pangalan ng Manager".
4. Sa popup dialog box, i-click ang pindutan na "Bago".
5. Kasunod, sa susunod na kahon ng dayalogo, i-input ang "Mga File" sa patlang na "Pangalan".
6. At palitan ang "= Sheet1! $ A $ 1" sa "= FILES (Sheet1! $ A $ 1)" sa patlang na "Tumutukoy sa:".
7. Pagkatapos, i-click ang "OK" at isara ang dialog box ng "Pangalan ng Manager".
8. Mamaya, kopyahin ang path ng Windows folder sa Cell A1 at idagdag ang "\* ”Sa dulo ng daanan.
9. Susunod, piliin ang Cell A3 at i-input ang pagpapaandar na "= INDEX (Files, ROW () - 2)".
10. Nang sabay-sabay, ang isang file sa folder ng Windows na ito ay nakalista, tulad ng sumusunod na imahe.
11. Sa wakas, kopyahin lamang ang pagpapaandar na ito sa maraming mga hilera upang ilista ang iba pang mga file hanggang sa makita mo ang "#REF!" kamalian Ang ibig sabihin ng error ay nakalista ang lahat ng mga file.

Pamamaraan 3: Nagre-recursive ng Listahan ng Mga File sa isang Windows Folder sa pamamagitan ng Excel VBA

1. Bilang panimula, gumawa ng bagong Excel file.
2. Susunod, i-access ang editor ng Excel VBA na may sanggunian sa “Paano Patakbuhin ang VBA Code sa Iyong Excel".
3. Pagkatapos, kopyahin ang sumusunod na code sa proyekto na "ThisWorkbook".

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. Ngayon, mag-click sa unang subroutine at pindutin ang "F5" key.
5. Sa popup dialog box, mag-navigate sa at pumili ng isang folder ng Windows kung saan mo nais na listahan ng mga file at i-click ang "OK".
6. Sa paglaon, kapag natapos ang macro, bumalik sa worksheet ng Excel. Ang lahat ng mga file sa folder ng Windows at mga subfolder nito ay nakalista, tulad ng ipinakita sa sumusunod na screenshot.

Nag-crash ang Excel mula sa Oras hanggang Oras

Tulad ng ibang software, maaaring mag-crash ang Excel paminsan-minsan, na maaaring direktang makasira sa kasalukuyang nakabukas na Excel file. Sa ganitong mga kaso, karamihan sa mga gumagamit ay umaasa na awtomatikong mare-recover ng Excel ang file sa pag-restart. Gayunpaman, kadalasan, ang katotohanan ay hindi tulad ng iyong inaasahan. Kung gayon, mahalagang gumamit ng isang Pag-aayos ng Excel tool, tulad ng DataNumen Excel Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa