Como importar vários ficheiros de texto para várias folhas?
Suponha que existam vários Arquivo de Texto numa pasta do seu computador e que agora pretenda importar esses Arquivo de Texto para um Pasta de trabalho do Excel, colocando cada Arquivo de Texto em folhas de cálculo separadas. Copiar e colar cada Arquivo de Texto para uma folha, um a um, consome muito tempo; aqui, discutirei alguns truques para resolver este problema.
Importe vários Arquivo de Texto para folhas de cálculo separadas com código VBA
Importe vários Arquivo de Texto para folhas de cálculo separadas com código VBA
O código VBA seguinte permite-lhe importar cada ficheiro de texto para folhas separadas num novo livro, tudo de uma só vez. Siga os passos abaixo:
1. Mantenha premidas 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 Módulo.
Código VBA: Importar vários Arquivo de Texto para folhas de cálculo 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, prima a tecla F5 para executar este código. Na janela que surge, especifique a pasta que contém os ficheiros de texto, navegue até à pasta e selecione os ficheiros de texto que pretende importar para as folhas de cálculo, conforme ilustrado:
4. Em seguida, clique no botão Abrir; todos os ficheiros de texto selecionados serão importados para um novo livro, com cada ficheiro colocado individualmente numa folha de cálculo.
5. Por fim, guarde o novo livro de trabalho conforme necessário.
Divida um livro de trabalho em vários ficheiros separados de texto / pdf / csv / xlsx com Kutools para Excel
Por vezes, poderá necessitar de realizar operações inversas à tarefa descrita acima, ou seja, dividir um livro de trabalho em Arquivo de Texto separados.A utilidadedo Kutools para ExcelSeparar Livro
Após instalar o Kutools para Excel, por favor, proceda da seguinte forma:
1. Ative o livro de trabalho que pretende dividir em vários ficheiros de texto.
2. Clique em Enterprise > Livro de Trabalho > Separar Livro, conforme ilustrado:
3. Na caixa de diálogo Separar Livro:
(1.) Selecione as folhas de cálculo que deseja dividir.
(2.) Marque a opção Especificar formato de gravação e, em seguida, escolha o tipo de ficheiro no qual pretende guardar os seus ficheiros. Por exemplo, pode selecionar os formatos txt, csv, pdf, xlsx ou xls, conforme as suas necessidades.
(3.) Em seguida, clique no botão Dividir e, na caixa de diálogo seguinte, especifique uma pasta para guardar os ficheiros separados.
 |  |  |
4. Depois, clique no botão OK; as suas planilhas selecionadas serão divididas e guardadas na pasta pretendida no formato desejado.
Kutools para Excel – Inclui mais de 300 ferramentas essenciais para o Excel. Torne as suas tarefas no Excel mais rápidas, fáceis e eficientes.Descarregue já!
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