Como combinar ou importar vários ficheiros CSV em folhas de cálculo separadas?
Se pretender importar vários ficheiros CSV de uma pasta como folhas de cálculo separadas num único livro, como pode realizar esta tarefa no Excel?
Importe vários ficheiros CSV para folhas de cálculo separadas com código VBA
Importe vários ficheiros CSV para folhas de cálculo separadas com Kutools para Excel
Divida um livro em vários ficheiros CSV/PDF/TXT/Arquivos do Excel separados
Importe vários ficheiros CSV para folhas de cálculo separadas com código VBA
Para importar rapidamente vários ficheiros CSV para um livro, o código VBA seguinte pode ajudá-lo. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 no Excel para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Importar vários Arquivo de Texto para folhas de cálculo separadas:
Sub CombineCsvFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Será aberta uma janela; navegue até à pasta pretendida e selecione os ficheiros CSV que deseja importar para o Excel. Veja a imagem:
4. Depois, clique no botão Abrir e os ficheiros CSV selecionados serão importados como folhas de cálculo separadas num novo livro.
5. Por fim, pode guardar a nova pasta de trabalho conforme necessário.
Importe vários ficheiros CSV para folhas de cálculo separadas com Kutools para Excel
Se tiver o Kutools para Excel, com a sua poderosa ferramenta Combinar, poderá rapidamente combinar ou importar vários ficheiros CSV numa única folha de cálculo ou em várias folhas separadas, conforme necessário.
Após instalar o Kutools para Excel, por favor siga estes passos:
1. Clique em KUTOOLS PLUS > Combinar. Veja a imagem:
2. Na caixa de diálogo Consolidar Planilhas, selecione Copiar Planilhas de Várias Pastas de Trabalho para uma Pasta de Trabalho. Veja a imagem:
3. No Passo 2 do assistente, clique em Adicionar > Ficheiro para escolher os ficheiros CSV que pretende combinar. Veja a imagem:
4. Na janela Abrir que surge, selecione (*.csv) na lista pendente e, em seguida, especifique os ficheiros CSV que pretende fundir.
5. Em seguida, clique no botão Abrir e os seus ficheiros CSV selecionados serão importados para a caixa de diálogo. Veja a imagem:
6. No Passo 3, realize as seguintes operações:
(1.) Marque a opção Na primeira linha de cada planilha (como comentários)na secção Adicionar Informações da Planilha, e todas as informações dos ficheiros CSV serão inseridas nas folhas combinadas como comentários;
(2.) Pode renomear os ficheiros CSV conforme desejar;
(3.) Pode ignorar ficheiros CSV em branco sempre que encontrar um ficheiro CSV vazio.
7. Em seguida, clique no botão Concluir. Após concluir a combinação, poderá especificar um nome e uma localização para o seu novo livro combinado. Veja a imagem:
8. Em seguida, clique no botão Guardar. Na caixa de aviso que surge, pode abrir o ficheiro gerado e clicar em Sim ou fechá-la clicando em Não. Veja a imagem:
9. Depois, poderá guardar este cenário ou não, conforme desejar. Veja a imagem:
10. Por fim, os seus ficheiros CSV selecionados terão sido importados para um novo livro com folhas de cálculo separadas. Veja a imagem:
Transfira e experimente gratuitamente o Kutools para Excel agora!
Divida um livro em vários ficheiros CSV/PDF/TXT/Arquivos do Excel separados
Em determinados casos, poderá querer dividir um livro em ficheiros CSV separados. A funcionalidade Separar Livro do Kutools para Excel permite-lhe realizar esta tarefa de forma rápida e fácil.
Após instalar o Kutools para Excel, por favor siga estes passos:
1. Clique em KUTOOLS PLUS > Livro > Separar Livro. Veja a imagem:
2.Na caixa de diálogo Separar Livro:
(1.) Marque as folhas de cálculo que pretende dividir;
(2.) E marque a opção Especificar formatode gravação, e depois escolha o Tipo de Arquivo em que pretende guardar;
(3.) Em seguida, clique no botão Dividir e especifique uma pasta para guardar os ficheiros separados.
3. Depois, clique em OK para iniciar a divisão. O livro será dividido nos ficheiros CSV separados de que necessita.
Transfira e experimente gratuitamente o Kutools para Excel agora!
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