Come esportare ogni colonna in Excel in file di testo individuali?

In Excel, esportare un intero foglio di lavoro in un file di testo è semplice con la funzione Salva con nome. Tuttavia, se è necessario salvare ogni colonna come file di testo separato, il processo richiede alcuni passaggi aggiuntivi. Questa guida ti mostrerà come esportare in modo efficiente ogni colonna singolarmente utilizzando il codice VBA, oppure come salvare più fogli di lavoro come file di testo, PDF o CSV individuali con l'aiuto di Kutools per Excel.

Esporta ogni colonna in file di testo individuali con il codice VBA

Esporta più fogli di lavoro in file di testo / pdf / csv individuali con Kutools per Excel

Esporta ogni colonna in file di testo individuali con il codice VBA

Il seguente codice VBA può aiutarti a salvare i dati di ogni colonna come file di testo individuale in Excel. Segui questi passaggi:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla la seguente macro nella finestra del Modulo.

Codice VBA: Esporta ogni colonna in file di testo individuali:

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. Dopo aver incollato il codice, premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo Sfoglia, quindi scegli una cartella in cui mettere i tuoi file di testo esportati, vedi screenshot:

4. Quindi clicca sul pulsante OK, e ogni colonna di dati nel foglio di lavoro attivo è stata esportata in un file di testo individualmente, vedi screenshot:

Esporta più fogli di lavoro in file di testo / pdf / csv individuali con Kutools per Excel

Se hai bisogno di esportare più fogli di lavoro in file di testo, pdf o csv individuali, la funzione Dividi documento di Kutools per Excel può esserti d'aiuto.

Dopo aver installato Kutools per Excel, procedi con i seguenti passaggi:

1. Clicca su Kutools Plus > Cartella di lavoro > Dividi documento, vedi screenshot:

2. Nella finestra di dialogo Dividi documento, seleziona i fogli di lavoro che desideri salvare come file txt, pdf, csv, quindi seleziona l'opzione Specifica formato di salvataggio, poi scegli il tipo di file che vuoi salvare, e infine clicca sul pulsante Dividi. Nella finestra di dialogo Sfoglia cartella visualizzata, scegli una cartella in cui mettere i file esportati, vedi screenshot:

3. Quindi clicca sul pulsante OK, e i fogli di lavoro selezionati sono stati esportati nel formato di file specifico individuale di cui avevi bisogno, vedi screenshot: