Como exportar cada coluna no Excel para arquivos de texto individuais?
No Excel, exportar uma planilha inteira para um arquivo de texto é simples com a função Salvar Como. No entanto, se você precisar salvar cada coluna como um arquivo de texto separado, o processo requer algumas etapas adicionais. Este guia mostrará como exportar eficientemente cada coluna individualmente usando código VBA ou, alternativamente, como salvar várias planilhas como arquivos de texto, PDF ou CSV individuais com a ajuda do Kutools para Excel.
Exporte cada coluna para arquivos de texto individuais com código VBA
Exporte várias planilhas para arquivos de texto / pdf / csv individuais com Kutools para Excel
Exporte cada coluna para arquivos de texto individuais com código VBA
O seguinte código VBA pode ajudá-lo a salvar os dados de cada coluna como um arquivo de texto individual no Excel. Por favor, siga estas etapas:
1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.
Código VBA: Exporte cada coluna para arquivos 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, pressione a tecla F5 para executar este código, e uma caixa de diálogo Procurar será exibida, então escolha uma pasta para colocar seus arquivos de texto exportados, veja a captura de tela:
4. Em seguida, clique no botão OK, e os dados de cada coluna na planilha ativa foram exportados para arquivos de texto individualmente, veja a captura de tela:
Exporte várias planilhas para arquivos de texto / pdf / csv individuais com Kutools para Excel
Se você precisa exportar várias planilhas para arquivos de texto, pdf ou csv individuais, o recurso Separar Livro do Kutools para Excel pode ajudá-lo.
Após instalar o Kutools para Excel, por favor, faça o seguinte:
1. Clique em Kutools Plus > Pasta de Trabalho > Separar Livro, veja a captura de tela:
2. Na caixa de diálogo Separar Livro, marque as planilhas que deseja salvar como arquivos txt, pdf, csv, e depois marque a opção Especificar Formato de Salvamento, selecione o tipo de arquivo que deseja salvar e clique no botão Separar. Na caixa de diálogo Procurar Pasta exibida, escolha uma pasta para colocar os arquivos exportados, veja a captura de tela:
3. Em seguida, clique no botão OK, e suas planilhas selecionadas foram exportadas para o formato de arquivo específico individual conforme necessário, veja a captura de tela:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins