Muitos usuários precisam listar rapidamente todos os arquivos em uma pasta do Windows e todas as suas subpastas em uma planilha do Excel. Portanto, neste artigo, apresentaremos 3 maneiras rápidas de realizá-lo.
Se você deseja listar recursivamente todos os arquivos em uma pasta do Windows em uma planilha do Excel, certamente não gostará de copiar manualmente os nomes dos arquivos para o Excel. Sem dúvida, é muito tedioso e demorado. Portanto, aqui ensinaremos 3 abordagens muito mais inteligentes e convenientes
Método 1: Listar arquivos em uma pasta do Windows via Firefox ou Google Chrome
- Primeiro, no Windows Explorer, acesse a pasta específica do Windows e copie o caminho da pasta.
- Em seguida, inicie o Firefox ou o Google Chrome.
- Em seguida, cole o caminho da pasta copiada na barra de endereços do navegador da Internet.
- Depois disso, pressione a tecla “Enter”.
- Ao mesmo tempo, todos os arquivos nesta pasta do Windows serão listados no navegador.
- Em seguida, pressione “Ctrl + A” para selecionar todos os conteúdos e “”Ctrl + C”” para copiá-los.
- Por fim, cole-os em uma planilha do Excel.
Método 2: Listar arquivos em uma pasta do Windows por meio do “Gerenciador de nomes”
- Em primeiro lugar, crie uma nova planilha do Excel.
- Em seguida, selecione a célula A1.
- Em seguida, vá para a guia "Fórmulas" e clique no botão "Gerenciador de nomes".
- Na caixa de diálogo pop-up, clique no botão "Novo".
- Posteriormente, na próxima caixa de diálogo, insira “Arquivos” no campo “Nome”.
- E altere “=Sheet1!$A$1” para “=FILES(Sheet1!$A$1)” no campo “Refers to:”.
- Depois, clique em “OK” e feche a caixa de diálogo “Gerenciador de nomes”.
- Posteriormente, copie o caminho da pasta do Windows na célula A1 e adicione “\*” no final do caminho.
- Em seguida, selecione a célula A3 e digite a função “=INDEX(Files,ROW()-2)”.
- De uma só vez, um arquivo nesta pasta do Windows será listado, conforme a imagem a seguir.
- Por fim, basta copiar esta função várias linhas para listar os outros arquivos até ver o “#REF!” erro. O erro significa que todos os arquivos foram listados.
Método 3: Listar arquivos recursivamente em uma pasta do Windows via Excel VBA
- Para comotart, crie um novo arquivo do Excel.
- Em seguida, acesse o editor Excel VBA com referência a “Como executar o código VBA no seu Excel".
- Em seguida, copie o seguinte código para o projeto “ThisWorkbook”.
Sub BatchListAllFiles_FolderSubfolders() Dim strWindowsFolder As String 'Selecione a pasta de origem do Windows With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Selecione uma pasta para listar os arquivos de" .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) = "Path" .Cells(1, 2).Font.Bold = True .Cells(1, 3) = "Size(Bytes)" .Cells(1, 3).Font .Bold = True .Cells(1, 4) = "Tipo" .Cells(1, 4).Font.Bold = True .Cells(1, 5) = "Criado" .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) para cada objFile em 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 'Processar todas as pastas e subpastas recursivamente Se objFolder.SubFolders.Count > 0 Then For Each objSubFolder In objFolder.SubFolders 'Ignorar o sistema e as pastas ocultas If ((objSubFolder. Atributos E 2) = 0) E ((objSubFolder.Attributes E 4) = 0) Then LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Agora, clique na primeira sub-rotina e pressione a tecla “F5”.
- Na caixa de diálogo pop-up, navegue e selecione uma pasta do Windows da qual deseja listar os arquivos e clique em "OK".
- Eventualmente, quando a macro terminar, retorne à planilha do Excel. Todos os arquivos na pasta do Windows e suas subpastas foram listados, conforme mostrado na captura de tela a seguir.
Excel trava de vez em quando
Como outros softwares, o Excel pode travar de vez em quando, o que pode destruir diretamente o arquivo do Excel aberto no momento. Nesses casos, a maioria dos usuários espera que o Excel possa recuperar automaticamente o arquivo em restart. No entanto, na maioria das vezes, a realidade não é como você espera. Então, seria essencial recorrer a uma Reparação do Excel ferramenta, como DataNumen Excel Repair.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com
Deixe um comentário