Como importar vários nomes de ficheiros diretamente para células no Excel?
Suponha que tem uma pasta com centenas de ficheiros e que agora pretende importar esses nomes de ficheiros para células de uma folha de cálculo. Copiar e colar um a um demoraria muito tempo. Neste artigo, abordarei alguns truques rápidos para o ajudar a importar múltiplos nomes de ficheiros de uma pasta para uma folha de cálculo.
Importar vários nomes de ficheiros para células da folha de cálculo com código VBA
Importar vários nomes de ficheiros para células da folha de cálculo com Kutools para Excel
Importar vários nomes de ficheiros para células da folha de cálculo com código VBA
O código VBA seguinte permite-lhe importar os nomes dos ficheiros, as respetivas extensões e o nome da pasta diretamente para as células da folha de cálculo. Siga os passos indicados em seguida:
1. Abra uma nova folha de cálculo onde pretenda importar os nomes dos ficheiros.
2. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Importar vários nomes de ficheiros para células da folha de cálculo
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. Em seguida, prima a tecla F5 para executar este código. Na janela de navegação que surge, selecione a pasta da qual pretende importar os nomes dos ficheiros; veja a imagem:
5. Depois, clique no botão OK e obterá o seguinte resultado:
Nota: Se existirem subpastas dentro da pasta especificada, os nomes dos ficheiros nessas subpastas não serão importados.
Importar vários nomes de ficheiros para células da folha de cálculo com Kutools para Excel
Se precisar de importar os nomes dos ficheiros da pasta e das respetivas subpastas, não se preocupe! Com a Kutools para Excel’s utilidade Lista de Nomes de Arquivos, pode importar facilmente todos os nomes de ficheiros da pasta especificada — incluindo as subpastas.
Após instalar Kutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Importar/Exportar > Lista de Nomes de Arquivos; veja a imagem:
2. Na caixa de diálogo Lista de Nomes de Arquivos, realize as seguintes operações:
(1.) Clique no botão 
para selecionar a pasta com os ficheiros que pretende importar;
(2.) Marque a opção Incluir arquivos em subdiretóriospara importar os nomes dos ficheiros das subpastas;
(3.) Especifique os Tipo de arquivo que pretende importar na secção Tipo de arquivo;
(4.) Selecione um Unidade de tamanho de arquivo que pretenda apresentar na secção Unidade de tamanho de arquivo;
(5.) Se pretender criar hiperligações para os nomes dos ficheiros e pastas, marque a opção Criar Hiperlink.
3. Após concluir as definições, clique no botão OK e os nomes dos ficheiros da pasta e das subpastas serão importados para uma nova planilha, conforme mostrado na imagem seguinte:
Sugestões: Se pretender importar apenas nomes de ficheiros de um determinado tipo a partir de uma pasta específica, marque a opção Especificar na caixa de diálogo Lista de Nomes de Arquivos, introduza a extensão do ficheiro pretendida e, assim, serão importados exclusivamente os nomes dos ficheiros desse tipo — tanto da pasta como das respetivas subpastas.
Transfira e experimente gratuitamente o Kutools para Excel agora!
Artigos relacionados:
Como listar todos os ficheiros de uma pasta e das respetivas subpastas numa folha de cálculo?
Como listar todos os nomes de ficheiros de uma pasta e criar hiperligações para eles no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos