3 быстрых метода для рекурсивного списка всех файлов в папке Windows на листе Excel

Многим пользователям необходимо быстро составить список всех файлов в папке Windows и всех ее подпапках на листе Excel. Поэтому в этой статье мы представим вам 3 быстрых способа реализовать это.

Если вы хотите рекурсивно перечислить все файлы в папке Windows на листе Excel, вам наверняка не понравится копировать имена файлов в Excel вручную. Несомненно, это слишком утомительно и требует много времени. Следовательно, здесь мы научим вас 3 гораздо более умным и удобным подходам.

Способ 1: список файлов в папке Windows через Firefox или Google Chrome

1. Прежде всего, в проводнике Windows откройте определенную папку Windows и скопируйте путь к папке.
2. Затем запустите Firefox или Google Chrome.
3. Затем вставьте скопированный путь к папке в адресную строку интернет-браузера.
4. После этого нажмите клавишу «Ввод».
5. Сразу все файлы в этой папке Windows будут перечислены в браузере.
6. Затем нажмите «Ctrl + A», чтобы выделить все содержимое, и «Ctrl + C», чтобы скопировать его.
7. Наконец, вставьте их на лист Excel.

Способ 2: список файлов в папке Windows через «Диспетчер имен»

1. Сначала создайте новый лист Excel.
2. Затем выберите ячейку A1.
3. Затем перейдите на вкладку «Формулы» и нажмите кнопку «Диспетчер имен».
4. Во всплывающем диалоговом окне нажмите кнопку «Создать».
5. Затем в следующем диалоговом окне введите «Файлы» в поле «Имя».
6. И измените «=Лист1!$A$1» на «=ФАЙЛЫ(Лист1!$A$1)» в поле «Относится к:».
7. После этого нажмите «ОК» и закройте диалоговое окно «Диспетчер имен».
8. Позже скопируйте путь к папке Windows в ячейку A1 и добавьте «\*» в конце пути.
9. Затем выберите ячейку A3 и введите функцию «=INDEX(Files,ROW()-2)».
10. Сразу же будет указан файл в этой папке Windows, как показано на следующем изображении.
11. Наконец, просто скопируйте эту функцию на несколько строк вниз, чтобы вывести список других файлов, пока не увидите надпись «#REF!» ошибка. Ошибка означает, что все файлы были перечислены.

Способ 3: рекурсивный список файлов в папке Windows через Excel VBA

1. For a start, create a new Excel file.
2. Затем откройте редактор Excel VBA со ссылкой на «Как запустить код VBA в вашем Excel».
3. Затем скопируйте следующий код в проект «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. Теперь щелкните первую подпрограмму и нажмите клавишу «F5».
5. Во всплывающем диалоговом окне перейдите и выберите папку Windows, из которой вы хотите получить список файлов, и нажмите «ОК».
6. В конце концов, когда макрос завершится, вернитесь на рабочий лист Excel. Все файлы в папке Windows и ее подпапках перечислены, как показано на следующем снимке экрана.

Excel время от времени падает

Like other software, Excel can crash now and then, which can directly destroy the currently opened Excel file. In such cases, a majority of users will hope that Excel can auto recover the file on restart. However, more often than, the reality is not as what you expect. Then, it would be essential to resort to an Ремонт Excel инструмент, как DataNumen Excel Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com