Como importar vários ficheiros de texto de uma pasta para uma única folha de cálculo?
Imagine um cenário em que precisa consolidar dados para relatórios ou análise e recebe as informações sob a forma de vários arquivos de texto, todos armazenados numa pasta única. Copiar e colar manualmente o conteúdo de cada arquivo de texto para uma única folha de cálculo pode ser extremamente moroso e propenso a erros — especialmente se o número de ficheiros for elevado ou se estes forem atualizados regularmente. Felizmente, existem formas eficientes de importar e fundir automaticamente esses arquivos de texto numa única folha do Excel. Este artigo apresenta métodos práticos para realizar esta tarefa, garantindo precisão e poupando um esforço manual considerável. Estes métodos são ideais para diversas situações reais, como consolidar resultados de inquéritos, importar dados de registo ou combinar exportações fragmentadas de texto provenientes de várias fontes num único conjunto de dados coeso e utilizável.
Abaixo encontrará várias abordagens para importar rapidamente vários ficheiros de texto de uma pasta para o Excel. Cada método inclui orientações passo a passo, dicas práticas e observações que o ajudam a evitar erros comuns.
Importar vários Arquivo de Texto de uma pasta para uma única folha com VBA
Importar Arquivo de Texto para a célula ativa com Kutools para Excel 
Importar vários Arquivo de Texto de uma pasta para uma única folha com VBA
Uma forma eficaz de importar todos os ficheiros de texto de uma pasta específica para o Excel é utilizar uma macro VBA. Esta solução revela-se especialmente útil se realizar frequentemente esta operação ou precisar de automatizar tarefas repetitivas sem depender de extras. Permite-lhe processar rapidamente um grande volume de ficheiros, reduzindo ao mínimo a intervenção manual. Contudo, a utilização de VBA exige que as macros estejam ativadas — uma definição que poderá estar restringida em determinados ambientes — e pressupõe conhecimentos básicos no editor do Visual Basic for Applications.
Antes de começar, recomendamos que faça uma cópia de segurança da sua livraria, pois as operações com macros não podem ser facilmente desfeitas. Certifique-se também de que os seus ficheiros de texto apresentam um formato consistente, já que estruturas imprevisíveis poderão exigir limpeza manual após a importação.
1. Abra a livraria onde pretende importar os ficheiros de texto e prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. No editor do VBA, clique em Inserir > Módulo e, de seguida, copie e cole o seguinte código VBA na janela do módulo:
VBA: Importar vários Arquivo de Texto de uma pasta para uma única folha
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. Prima F5 com o cursor dentro do código para o executar. Irá surgir uma caixa de diálogo a solicitar que selecione a pasta que contém os seus ficheiros de texto de destino. Veja a imagem:
4. Clique em OK. A macro irá importar cada ficheiro de texto como uma nova folha na sua pasta de trabalho atual. Nota: se os ficheiros forem grandes ou numerosos, este processo poderá demorar algum tempo. Verifique o resultado:
Dica: Se os seus ficheiros de texto incluírem cabeçalhos ou delimitadores específicos, poderá precisar de ajustar o código VBA para se adaptar à estrutura dos seus dados. Em caso de erros, confirme se o caminho e o tipo de ficheiro estão corretos e se nenhum ficheiro de texto está aberto noutro local do seu sistema. Caso existam ficheiros com nomes idênticos, poderão surgir conflitos na atribuição de nomes às folhas.
Importar Arquivo de Texto para a célula ativa com Kutools para Excel
Quando precisa apenas de inserir o conteúdo de um único ficheiro de texto numa localização específica da sua folha de cálculo, o Kutools para Excel oferece uma solução intuitiva através da sua funcionalidade Inserir Ficheiro na Célula. Esta opção é particularmente útil para fundir excertos de dados selecionados ou importar notas de referência diretamente para células ou intervalos definidos. Ao contrário das soluções VBA, o Kutools não exige programação e disponibiliza uma interface amigável para importar ficheiros de texto para qualquer célula de destino.
Após instalar gratuitamenteKutools para Excel, siga estes passos:
1. Clique para selecionar a célula onde pretende importar o conteúdo do Arquivo de Texto e, em seguida, vá a KUTOOLS PLUS > Importar/Exportar > Inserir Arquivo na Célula. Veja a imagem:
2. Surge uma caixa de diálogo. Clique em Procurar para abrir a caixa de seleção de ficheiros. No menu suspenso Tipo de Arquivo, selecione Arquivo de Texto e localize o arquivo de texto que pretende inserir. Veja a imagem:
3. Clique em Abrir, seguido de OK. O conteúdo do ficheiro de texto escolhido será inserido na célula selecionada. Veja a imagem:
Notas: O conteúdo de texto é importado para a célula selecionada, preservando, tanto quanto possível, a formatação original. Para obter os melhores resultados, certifique-se de que a célula de destino disponha de espaço suficiente para apresentar ou expandir os dados importados. Em caso de importações múltiplas simultâneas, utilize esta funcionalidade repetidamente ou combine-a com as ferramentas em lote do Kutools.
Resumo: Para importações simples ou pontuais de ficheiros individuais, o Kutools oferece opções intuitivas diretamente na folha de cálculo, enquanto o VBA é a escolha ideal para utilizadores que precisam de personalização avançada ou processamento em lote sem recorrer a extras.
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