Многим пользователям необходимо быстро составить список всех файлов в папке Windows и всех ее подпапках на листе Excel. Поэтому в этой статье мы представим вам 3 быстрых способа реализовать это.
Если вы хотите рекурсивно перечислить все файлы в папке Windows на листе Excel, вам наверняка не понравится копировать имена файлов в Excel вручную. Несомненно, это слишком утомительно и требует много времени. Следовательно, здесь мы научим вас 3 гораздо более умным и удобным подходам.
Способ 1: список файлов в папке Windows через Firefox или Google Chrome
- Прежде всего, в проводнике Windows откройте определенную папку Windows и скопируйте путь к папке.
- Затем запустите Firefox или Google Chrome.
- Затем вставьте скопированный путь к папке в адресную строку интернет-браузера.
- После этого нажмите клавишу «Ввод».
- Сразу все файлы в этой папке Windows будут перечислены в браузере.
- Затем нажмите «Ctrl + A», чтобы выделить все содержимое, и «Ctrl + C», чтобы скопировать его.
- Наконец, вставьте их на лист Excel.
Способ 2: список файлов в папке Windows через «Диспетчер имен»
- Сначала создайте новый лист Excel.
- Затем выберите ячейку A1.
- Затем перейдите на вкладку «Формулы» и нажмите кнопку «Диспетчер имен».
- Во всплывающем диалоговом окне нажмите кнопку «Создать».
- Затем в следующем диалоговом окне введите «Файлы» в поле «Имя».
- И измените «=Лист1!$A$1» на «=ФАЙЛЫ(Лист1!$A$1)» в поле «Относится к:».
- После этого нажмите «ОК» и закройте диалоговое окно «Диспетчер имен».
- Позже скопируйте путь к папке Windows в ячейку A1 и добавьте «\*» в конце пути.
- Затем выберите ячейку A3 и введите функцию «=INDEX(Files,ROW()-2)».
- Сразу же будет указан файл в этой папке Windows, как показано на следующем изображении.
- Наконец, просто скопируйте эту функцию на несколько строк вниз, чтобы вывести список других файлов, пока не увидите надпись «#REF!» ошибка. Ошибка означает, что все файлы были перечислены.
Способ 3: рекурсивный список файлов в папке Windows через Excel VBA
- Для насtarт, создайте новый файл Excel.
- Затем откройте редактор Excel VBA со ссылкой на «Как запустить код VBA в вашем Excel».
- Затем скопируйте следующий код в проект «ThisWorkbook».
Sub BatchListAllFiles_FolderSubfolders() Dim strWindowsFolder As String 'Выберите исходную папку Windows с помощью Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = Application.DefaultFilePath & "\" .Title = "Пожалуйста, выберите папку для списка файлов из" .InitialFileName = "E: \" .Show If .SelectedItems.Count > 0 Then strWindowsFolder = .SelectedItems(1) & "\" End If End With ActiveSheet .Cells(1, 1) = "Name" .Cells(1, 1).Font. Bold = True .Cells(1, 2) = "Путь" .Cells(1, 2).Font.Bold = True .Cells(1, 3) = "Размер (байт)" .Cells(1, 3).Font .Bold = True .Cells(1, 4) = "Тип" .Cells(1, 4).Font.Bold = True .Cells(1, 5) = "Создано" .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) Для каждого objFile в objFolder.Files с 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 'Рекурсивно обрабатывать все папки и подпапки If objFolder.SubFolders.Count > 0 Then For Each objSubFolder In objFolder.SubFolders 'Пропустить системные и скрытые папки If ((objSubFolder. Атрибуты И 2) = 0) И ((objSubFolder.Attributes И 4) = 0) Тогда LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Теперь щелкните первую подпрограмму и нажмите клавишу «F5».
- Во всплывающем диалоговом окне перейдите и выберите папку Windows, из которой вы хотите получить список файлов, и нажмите «ОК».
- В конце концов, когда макрос завершится, вернитесь на рабочий лист Excel. Все файлы в папке Windows и ее подпапках перечислены, как показано на следующем снимке экрана.
Excel время от времени падает
Как и другое программное обеспечение, Excel может время от времени давать сбой, что может напрямую уничтожить открытый в данный момент файл Excel. В таких случаях большинство пользователей будут надеяться, что Excel сможет автоматически восстановить файл в разрешении.tarт. Однако чаще реальность оказывается не такой, как вы ожидаете. Тогда будет необходимо прибегнуть к Ремонт Excel инструмент, как DataNumen Excel Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий