Vai al contenuto principale

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 > Modulie incolla la seguente macro nel file Moduli 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 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 provare gratuitamente Kutools per Excel ora!

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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 ogni giorno centinaia di clic del mouse!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great code. Worked like a charm.
Can you tweak this code to not include first raw?
This comment was minimized by the moderator on the site
Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
This comment was minimized by the moderator on the site
Great, you made my day with the code to export multiple columns into individual text files! Many thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations