Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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

Supondo que existam vários arquivos de texto em uma pasta do seu computador, agora você deseja importar esses arquivos de texto para uma pasta de trabalho do Excel e coloque cada arquivo de texto em planilhas separadas. Copiar e colar cada arquivo de texto para a planilha, um por um, vai perder muito tempo, aqui, posso falar sobre alguns truques para você resolver esse problema.

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

Divida uma pasta de trabalho para múltiplos arquivos de texto / pdf / csv / xlsx separados com o Kutools for Excel


Combine / importe várias planilhas em uma planilha ou pasta de trabalho:
No seu trabalho diário, combinar várias planilhas ou cadernos de trabalho em uma única planilha ou pasta de trabalho pode ser um trabalho enorme e de cabeça. Mas, se você tiver Kutools for Excel, com sua poderosa utilidade - Combinar, você pode combinar rapidamente várias planilhas, pastas de trabalho em uma planilha ou pasta de trabalho.
doc combina várias planilhas

arrow blue right bubble Importar vários arquivos de texto para separar planilhas com código VBA


O código VBA a seguir pode ajudá-lo a importar cada arquivo de texto em folhas separadas dentro de uma nova pasta de trabalho ao mesmo tempo, faça o seguinte:

1. Mantenha pressionado o ALT + F11 chaves no Excel para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Importe vários arquivos de texto para separar planilhas:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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. Depois de colar o código acima, pressione F5 chave para executar este código e, na janela exibida, especifique a pasta que contém os arquivos de texto, vá para a pasta para selecionar os arquivos de texto que deseja importar para as planilhas, veja a captura de tela:

doc importa vários arquivos de texto 1

4. Então clique Aberto , todos os arquivos de texto selecionados foram importados para uma nova pasta de trabalho e cada arquivo localizado em uma planilha individualmente.

5. Por fim, você pode salvar o novo livro conforme você precisar.


arrow blue right bubble Divida uma pasta de trabalho para múltiplos arquivos de texto / pdf / csv / xlsx separados com o Kutools for Excel

Às vezes, talvez seja necessário fazer algumas operações opostas da tarefa acima, ou seja, você precisa dividir uma pasta de trabalho para separar arquivos de texto. Kutools for Excel'S Livro de trabalho dividido O utilitário pode ajudá-lo a resolver este trabalho de forma rápida e fácil.

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

Depois de instalar Kutools for Excel, faça o seguinte :( Download grátis do Kutools para Excel agora! )

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

2. Clique Empreendimento > livro > Livro de trabalho dividido, veja a captura de tela:

Recursos de separação do suplemento do add-ins do Excel

3. No Livro de trabalho dividido caixa de diálogo:

(1.) Verifique as planilhas que deseja dividir.

(2.) Cheque Especifique o formato de salvar, então escolha o formato do arquivo que deseja salvar, por exemplo, você pode escolher txt, csv, pdf, XLSX or xls formato de arquivo como você precisa.

(3.) Em seguida, clique em Split botão, na caixa de solicitação a seguir, especifique uma pasta para exibir os arquivos separados.

Excel add-ins dividir pasta de trabalho caixa de diálogo  2 Excel add-ins selecione o local

4. Então clique OK e suas folhas de trabalho selecionadas serão divididas e salve na pasta desejada com o formato conforme você precisa.

Excel separa arquivos separados

Download grátis do Kutools para Excel agora!


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?