Como importar vários nomes de arquivo para células no Excel?
Suponha que você tenha uma pasta com centenas de arquivos e, agora, deseja importar esses nomes de arquivo para as células de uma planilha. Copiar e colar um por um gastará muito tempo. Neste artigo, falarei sobre alguns truques rápidos para ajudá-lo a importar vários nomes de arquivo de uma pasta para uma planilha.
Importe vários nomes de arquivo para células de planilha com código VBA
Importe vários nomes de arquivos para células da planilha com o Kutools para Excel
Importe vários nomes de arquivo para células de planilha com código VBA
O seguinte código VBA pode ajudá-lo a importar os nomes de arquivo, extensões de arquivo e nome de pasta para as células da planilha. Siga as seguintes etapas:
1. Inicie uma nova planilha para a qual deseja importar os nomes dos arquivos.
2. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: Importar vários nomes de arquivo para as células da planilha
Sub GetFileList()
'updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
4. Então aperte F5 para executar este código e na janela de navegação exibida, escolha a pasta para a qual deseja importar o formulário de nomes de arquivo, consulte a captura de tela:
5. E, em seguida, clique em OK botão, e você obterá o seguinte resultado:
Note： Se houver subpastas dentro de sua pasta específica, os nomes dos arquivos nas subpastas não serão importados.
Importe vários nomes de arquivos para células da planilha com o Kutools para Excel
Se você precisar importar os nomes dos arquivos na pasta e nas subpastas, não se preocupe, com Kutools for Excel'S Lista de nomes de arquivo utilitário, você pode importar facilmente todos os nomes de arquivo na pasta específica, incluindo as subpastas.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Clique Kutools Plus> Importar e Exportar > Lista de nomes de arquivo, veja a captura de tela:
2. No Lista de nomes de arquivo caixa de diálogo, faça as seguintes operações:
(1.) Clique 
botão para selecionar a pasta com os arquivos que deseja importar;
(2.) Verifique Incluir arquivos em subdiretórios para importar os nomes dos arquivos das subpastas;
(3.) Especifique o tipo de arquivo que deseja importar no Tipo de arquivo seção;
(4.) Selecione uma unidade de tamanho de arquivo que deseja exibir a partir do Unidade de tamanho de arquivo seção;
(5.) Se você deseja criar um hiperlink para os nomes de arquivos e pastas, marque Crie hiperlinks opção.
3. Depois de terminar as configurações, por favor clique OK botão, e os nomes dos arquivos na pasta e nas subpastas são importados para uma nova planilha, conforme mostrado a seguir:
Tips: Se você deseja apenas importar um nome de arquivo de tipo especificado de uma pasta específica, você pode marcar Especificar opção no Lista de nomes de arquivo diálogo e digite a extensão do arquivo nele, então ele importará apenas os nomes de arquivo de tipo especificado de ambas as pastas e subpastas.
Clique para saber mais sobre este recurso Lista de nomes de arquivos ...
Baixe e teste grátis Kutools para Excel agora!
Demonstração: importe vários nomes de arquivos para células da planilha com o Kutools para Excel
Artigos relacionados:
Como listar todos os arquivos em uma pasta e subpastas em uma planilha?
Como listar todos os nomes de arquivos em uma pasta e criar hiperlinks para eles no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
