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:
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in