Como importar vários arquivos de texto para várias planilhas?

Suponha que existam vários arquivos de texto em uma pasta do seu computador e agora você deseja importar esses arquivos de texto para uma pasta de trabalho do Excel, colocando cada arquivo de texto em planilhas separadas. Copiar e colar cada arquivo de texto em uma planilha um por um consome muito tempo; aqui, vou discutir alguns truques para resolver esse problema.

Importar vários arquivos de texto para planilhas separadas com código VBA

Dividir uma pasta de trabalho em vários arquivos separados de texto/pdf/csv/xlsx com Kutools para Excel

Importar múltiplos arquivos de texto para planilhas separadas com código VBA

O seguinte código VBA pode ajudá-lo a importar cada arquivo de texto para planilhas separadas dentro de uma nova pasta de trabalho de uma só vez; por favor, siga os passos abaixo:

1. Pressione as teclas ALT + F11 no Excel para abrir a janela 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 múltiplos arquivos de texto para planilhas separadas:

Sub CombineTextFiles()
'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 (*.txt), *.txt", , "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
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    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. Após colar o código acima, pressione a tecla F5 para executar este código e, na janela que aparecer, especifique a pasta que contém os arquivos de texto, vá até a pasta para selecionar os arquivos de texto que deseja importar para as planilhas, veja a captura de tela:

4. Em seguida, clique no botão Abrir; todos os arquivos de texto selecionados serão importados para uma nova pasta de trabalho e cada arquivo será colocado em uma planilha individualmente.

5. Por fim, você pode salvar a nova pasta de trabalho conforme necessário.

Dividir uma pasta de trabalho em vários arquivos separados de texto/pdf/csv/xlsx com Kutools para Excel

Às vezes, você pode precisar realizar operações opostas à tarefa acima, ou seja, dividir uma pasta de trabalho em arquivos de texto separados. O utilitário Dividir Pasta de Trabalho do Kutools para Excel pode ajudá-lo a resolver essa tarefa rapidamente e facilmente.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Ative a pasta de trabalho que deseja dividir em vários arquivos de texto.

2. Clique em Empresa > Pasta de Trabalho > Dividir Pasta de Trabalho, veja a captura de tela:

3. Na caixa de diálogo Dividir Pasta de Trabalho:

(1.) Marque as planilhas que deseja dividir.

(2.) Marque Especificar formato de salvamento, depois escolha o formato de arquivo que deseja salvar; por exemplo, você pode escolher o formato de arquivo txt, csv, pdf, xlsx ou xls conforme necessário.

(3.) Em seguida, clique no botão Dividir, na próxima caixa de prompt, especifique uma pasta para exportar os arquivos separados.

4. Depois, clique no botão OK e suas planilhas selecionadas serão divididas e salvas na pasta desejada no formato que você precisa.