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:
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:
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.
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:
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:
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:
Fai clic per scaricare e provare gratuitamente Kutools per Excel ora!
I migliori strumenti per la produttività in ufficio
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...
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!