Como exportar cada coluna do Excel para ficheiros de texto individuais?
No Excel, exportar uma folha de cálculo inteira para um ficheiro de texto é simples com a função Guardar Como. Contudo, se precisar de guardar cada coluna como um ficheiro de texto separado, o processo exige alguns passos adicionais. Este guia mostra-lhe como exportar eficientemente cada coluna individualmente utilizando código VBA ou, alternativamente, como guardar várias folhas de cálculo como ficheiros individuais em formato de texto, PDF ou CSV com a ajuda do Kutools para Excel.
Exportar cada coluna para ficheiros Arquivo de Texto individuais com código VBA
Exportar cada coluna para ficheiros Arquivo de Texto individuais com código VBA
O seguinte código VBA permite-lhe guardar os dados de cada coluna como um ficheiro de texto individual no Excel. Siga estes passos:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Código VBA: Exportar cada coluna para ficheiros Arquivo de Texto individuais:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Após colar o código, prima a tecla F5 para executar este código. Aparecerá uma caixa de diálogo Explorador; selecione uma pasta para guardar os seus ficheiros Arquivo de Texto exportados, conforme ilustrado:
4. Em seguida, clique no botão OK e os dados de cada coluna da folha de cálculo ativa serão exportados para ficheiros de texto individuais, conforme ilustrado:
Exportar várias folhas de cálculo para ficheiros de texto / pdf / csv individuais com Kutools para Excel
Se precisar de exportar várias folhas de cálculo para ficheiros individuais em formato de texto, PDF ou CSV, a funcionalidade Kutools para Excel’s Separar Livro pode ajudá-lo.
Após instalar o Kutools para Excel,siga os passos seguintes:
1. Clique em KUTOOLS PLUS > Livro de Trabalho > Separar Livro, conforme ilustrado:
2. Na caixa de diálogo Separar Livro, assinale as folhas de cálculo que pretende guardar como ficheiros TXT, PDF ou CSV, marque a opção Especificar Formato de Salvamento, selecione o formato de tipo de ficheiro pretendido e clique no botão Dividir. Na caixa de diálogo Procurar Pasta que surge, escolha uma pasta para guardar os ficheiros exportados, conforme ilustrado:
3. Em seguida, clique no botão OK e os seus ficheiros de Planilhas Selecionadas serão exportados para o tipo de ficheiro pretendido, conforme ilustrado:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha 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