Como importar rapidamente vários arquivos csv / text / xml no Excel?
No Excel, você pode ter vinculado a salvar uma pasta de trabalho como arquivo csv, arquivo de texto ou arquivo xml, mas você já tentou importar vários arquivos csv / text / xml de uma pasta para uma pasta de trabalho ou planilha? Neste artigo, apresento alguns métodos para importá-los em lote rapidamente.
Importe vários arquivos de texto de uma pasta para cada planilha de uma pasta de trabalho com o VBA
Importe vários arquivos csv de uma pasta para uma única folha com VBA
Importe vários arquivos xml de uma pasta para uma única folha com VBA
Importe ou combine vários arquivos xml/csv em uma planilha ou pasta de trabalho com o Kutools para Excel 
Exporte cada planilha como csv/text/pdf para uma pasta com o Kutools para Excel
Importe vários arquivos de texto de uma pasta para cada planilha de uma pasta de trabalho com o VBA
Para importar arquivos de texto de uma pasta para uma pasta de trabalho, você pode usar o VBA abaixo para lidar com isso rapidamente.
1. Habilite uma pasta de trabalho em branco e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o VBA no Módulo janela.
VBA: importar todos os arquivos de texto de uma pasta para uma pasta de trabalho
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. Pressione F5 chave ou Execute para executar o VBA e selecione uma pasta da qual deseja importar os arquivos de texto na caixa de diálogo pop-up. Veja a imagem:
4. E clique OK, e cada arquivo de texto na pasta selecionada foi importado para uma planilha da pasta de trabalho ativa. Veja a imagem:
Combine facilmente várias folhas / pasta de trabalho em uma única folha ou pasta de trabalho
|
| Combinar múltiplas planilhas ou pastas de trabalho em uma folha ou pasta de trabalho pode ser complicado no Excel, mas com o Combinar função no Kutools para Excel, você pode combinar e mesclar dezenas de planilhas / pastas de trabalho em uma planilha ou pasta de trabalho, além disso, você pode consolidar as planilhas em uma apenas com vários cliques. Clique para um teste gratuito completo de 30 dias! |
 |
| Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Importe vários arquivos csv de uma pasta para uma única folha com VBA
Para importar todos os arquivos csv de uma pasta em uma única planilha, você pode usar o código VBA abaixo.
1. Ative uma planilha em branco e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole abaixo do VBA no novo Módulo janela.
VBA: importar arquivos csv de uma pasta para uma planilha
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. Pressione F5 tecla ou clique Execute para executar o VBA e uma caixa de diálogo é exibida para selecionar uma pasta da qual você deseja importar todos os arquivos csv. Veja a imagem:
4. Clique OK, e uma caixa de diálogo aparece para lembrá-lo se limpar o conteúdo da planilha ativa antes de importar, aqui eu clico Sim. Veja a imagem:
Depois de clicar Sim, todos os arquivos csv na pasta selecionada são importados para a planilha atual e colocam os dados da Coluna A à direita. Veja a imagem:
Dica: Se você deseja colocar arquivos csv horizontalmente em uma planilha, você pode usar o VBA abaixo.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Importe vários arquivos xml de uma pasta para uma única folha com VBA
Se você deseja importar todos os arquivos XML de uma pasta para uma única planilha, pode usar o código VBA abaixo.
1. Selecione uma folha em branco onde deseja colocar os dados importados e pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, cole o código VBA no Módulo janela.
VBA: Importar arquivos XML de uma pasta para uma planilha.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. Clique Execute botão ou F5 para executar o VBA e selecionar uma pasta na caixa de diálogo popping, veja a captura de tela:
4. Clique OK, e todos os arquivos XML na pasta selecionada são importados para a planilha ativa.
Importe ou combine vários arquivos xml/csv em uma planilha ou pasta de trabalho com o Kutools para Excel
Se você não está familiarizado com o VBA, preocupe-se, aqui apresento uma ferramenta útil - Kutools for Excel para voce. Com seu poderoso Combinar utilitário, você pode combinar rapidamente vários arquivos xml ou arquivos csv em uma pasta de trabalho ou uma planilha do Excel.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalar Kutools para Excel, faça o seguinte:（Baixe gratuitamente o Kutools para Excel agora!)
1. Active o Excel e clique em Kutools Plus > Combinar. Veja a captura de tela:
2. E no passo 1 de combinar caixa de diálogo, escolha uma opção de separação conforme necessário. Veja a imagem:
3. Clique Próximo para ir para passo 2 do Combine, clique em Adicionar para adicionar arquivos de várias pastas ou arquivos de uma pasta para livro lista, e também você pode especificar as folhas que deseja combinar Planilha lista da seção certa. Veja a imagem:
4. Clique Próximo para a última etapa de Combinar, e você pode especificar as opções de combinação.
5. Clique Acabamento, uma caixa de diálogo aparecerá para lembrá-lo de selecionar um local para salvar o novo resultado combinado. Veja a imagem:
6. Clique Salvar. Todas as folhas de adição foram combinadas em uma nova folha única.
Dica: Com o Combinar, você também pode combinar vários Arquivos CSV formar várias pastas ou uma pasta em uma planilha ou pasta de trabalho.
Combine vários arquivos XML / CVS em uma planilha / pasta de trabalho
Exporte cada planilha como csv/text/pdf para uma pasta com o Kutools para Excel
Se você deseja exportar cada folha como arquivo csv / texto / pdf para uma pasta, Kutools for Excel'S Dividir a pasta de trabalho utilitário pode fazer um favor para você.
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Habilite a pasta de trabalho que deseja exportar suas planilhas e clique em Kutools Plus > livro > Dividir a pasta de trabalho. Veja a imagem:
2. No Dividir a pasta de trabalho caixa de diálogo, você pode verificar os nomes das folhas que você precisa exportar, por padrão, todas as folhas são verificadas e verifique Especifique o formato de salvamento e selecione o formato de arquivo que deseja salvar na lista suspensa abaixo. Veja a imagem:
3. Clique Split e selecione uma pasta para salvar os arquivos divididos no Navegar pela pasta caixa de diálogo, veja a captura de tela:
4. Clique OK, agora todas as folhas marcadas são exportadas como novo formato de arquivo na pasta selecionada.
Exportar cada folha como um único arquivo XML / CSV / TXT / PDF
Artigos relativos:
- Como converter hiperlink em texto simples no Excel?
- Como converter o número decimal em número binário / octal / hexadecimal ou vice-versa no Excel?
- Como inserir a taxa de câmbio ativa 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!
