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: