Jak exportovat více sloupců do jednotlivých textových souborů v aplikaci Excel?
Normálně můžete list rychle a snadno exportovat do souboru txt v aplikaci Excel pomocí funkce Uložit jako. Pokusili jste se ale někdy uložit data každého sloupce do textového souboru jednotlivě z listu aplikace Excel? V tomto článku budu hovořit o tom, jak vyřešit tuto práci co nejrychleji.
Exportujte více sloupců do jednotlivých textových souborů pomocí kódu VBA
Exportujte více sloupců do jednotlivých textových souborů pomocí kódu VBA
Následující kód VBA vám pomůže uložit data každého sloupce do textového souboru jednotlivě v aplikaci Excel, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující makro do souboru Modul Okno.
Kód VBA: Export více sloupců do jednotlivých textových souborů:
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. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a prohlížeč vyskočí dialogové okno, poté vyberte složku, do které chcete exportovat textové soubory, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko a data každého sloupce v aktivním listu byla exportována do textového souboru jednotlivě, viz screenshot:
Exportujte více pracovních listů do jednotlivých textových / pdf / csv souborů pomocí Kutools pro Excel
Pokud potřebujete exportovat více pracovních listů do jednotlivých textových, pdf nebo csv souborů, Kutools pro ExcelJe Rozdělit sešit funkce vám může udělat laskavost.
Po instalaci Kutools pro Excel, proveďte následující kroky:
1, klikněte Kutools Plus > Cvičebnice > Rozdělit sešit, viz screenshot:
2. V Rozdělit sešit V dialogovém okně zkontrolujte listy, které chcete uložit jako soubory txt, pdf, csv, a poté zkontrolujte Uložit jako typ vyberte typ souboru, který chcete uložit jako, a klepněte na Rozdělit na zobrazeném tlačítku Procházet složku v dialogovém okně vyberte složku, do které chcete exportované soubory umístit, viz screenshot:
3. Pak klikněte na tlačítko OK Tlačítko a vaše vybrané listy byly exportovány do konkrétního konkrétního formátu souboru, jak potřebujete, viz screenshot:
Klikněte a stáhněte si zdarma zkušební verzi Kutools pro Excel!
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!