Note: The other languages of the website are Google-translated. Back to English
English English

Come esportare più colonne in singoli file di testo in Excel?

Normalmente, puoi esportare un foglio di lavoro in un file txt in Excel in modo rapido e semplice utilizzando la funzione Salva con nome. Ma hai mai provato a salvare i dati di ogni colonna in un file di testo individualmente da un foglio di lavoro di Excel? In questo articolo parlerò di come risolvere questo lavoro il più velocemente possibile.

Esporta più colonne in singoli file di testo con codice VBA

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


Esporta più colonne in singoli file di testo con codice VBA

Il seguente codice VBA può aiutarti a salvare i dati di ciascuna colonna in un file di testo individualmente in Excel, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: esporta più colonne in singoli file di testo:

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, premere F5 chiave per eseguire questo codice e un file del browser viene visualizzata la finestra di dialogo, quindi scegli una cartella in cui inserire i file di testo esportati, vedi screenshot:

doc export colonne in txts 1

4. Quindi fare clic OK pulsante e ogni dato di colonna nel foglio di lavoro attivo è stato esportato in un file di testo individualmente, vedi screenshot:

doc export colonne in txts 2


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

Se è necessario esportare più fogli di lavoro in singoli file di testo, pdf o csv, il file Kutools for Excel'S Cartella di lavoro divisa caratteristica può farti un favore.

Note::Per applicare questo Cartella di lavoro divisa, in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools per Excel, si prega di fare con i seguenti passaggi:

1. Clic Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:

doc export colonne in txts 3

2. Nel Cartella di lavoro divisa finestra di dialogo, seleziona i fogli di lavoro che desideri salvare come file txt, pdf, csv, quindi seleziona Salva come tipo opzione, quindi selezionare il tipo di file con cui si desidera salvare e quindi fare clic su Diviso pulsante, nel display Sfoglia per cartella finestra di dialogo, scegli una cartella in cui inserire i file esportati, vedi screenshot:

doc export colonne in txts 4

3. Quindi fare clic OK pulsante, ei fogli di lavoro selezionati sono stati esportati nel formato di file specifico individuale di cui hai bisogno, vedi screenshot:

doc export colonne in txts 5

Fai clic per scaricare e prova gratuita Kutools per Excel ora!


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (3)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ottimo, mi hai rallegrato la giornata con il codice per esportare più colonne in singoli file di testo! Grazie molto!
Questo commento è stato fatto dal moderatore sul sito
Ciao. Grazie in anticipo per il codice VBA. Mi chiedevo se invece di salvare ogni file .txt come codifica ANSI, fosse possibile farlo come UTF-8. È possibile? Saluti.
Questo commento è stato fatto dal moderatore sul sito
Ottimo codice. Ha funzionato come un incantesimo.
Puoi modificare questo codice per non includere il primo raw?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite