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 colocar cada arquivo de texto em planilhas separadas. Copiar e colar cada arquivo de texto na planilha um por um vai perder muito tempo, aqui posso falar de alguns truques para você resolver esse problema.
Importe vários arquivos de texto para planilhas separadas com código VBA
Importe vários arquivos de texto para planilhas separadas com código VBA
O código VBA a seguir pode ajudá-lo a importar cada arquivo de texto em planilhas separadas dentro de uma nova pasta de trabalho de uma só vez. Faça o seguinte:
1. Segure 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 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. Depois de colar o código acima, pressione F5 para executar este código e, na janela aberta, 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 imagem:
4. Então clique Abra botão, todos os arquivos de texto selecionados foram importados para uma nova pasta de trabalho e cada arquivo localizado em uma folha de trabalho individualmente.
5. Por fim, você pode salvar a nova pasta de trabalho conforme necessário.
Divida uma pasta de trabalho em vários arquivos de texto/pdf/csv/xlsx separados com o Kutools para Excel
Às vezes, você pode precisar fazer algumas operações opostas à tarefa acima, ou seja, você precisa dividir uma pasta de trabalho em arquivos de texto separados. Kutools for Excel'S Dividir a pasta de trabalho O utilitário pode ajudá-lo a resolver esse trabalho de forma rápida e fácil.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora! )
1. Ative a pasta de trabalho que deseja dividir em vários arquivos de texto.
2. Clique Empreendimento > livro > Dividir a pasta de trabalho, veja a captura de tela:
3. No Dividir a pasta de trabalho caixa de diálogo:
(1.) Verifique as planilhas que deseja dividir.
(2.) Verifique Especifique o formato de salvamento, em seguida, escolha o formato de arquivo que deseja salvar, por exemplo, você pode escolher txt, csv, pdf, XLSX or xls formato de arquivo que você precisa.
(3.) Em seguida, clique Split botão, na seguinte caixa de prompt especifique uma pasta para a saída dos arquivos separados.
4. Então clique OK botão, e as planilhas selecionadas serão divididas e salvas na pasta desejada com o formato que você precisa.
Baixe grátis o Kutools para Excel agora!
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!