Přejít k hlavnímu obsahu

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 pracovních listů do jednotlivých textových / pdf / csv souborů pomocí Kutools pro Excel


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:

sloupce pro export dokumentů do formátu txts 1

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:

sloupce pro export dokumentů do formátu txts 2


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.

Poznámka:Použít toto Rozdělit sešitNejprve byste si měli stáhnout soubor Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, proveďte následující kroky:

1, klikněte Kutools Plus > Cvičebnice > Rozdělit sešit, viz screenshot:

sloupce pro export dokumentů do formátu txts 3

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:

sloupce pro export dokumentů do formátu txts 4

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:

sloupce pro export dokumentů do formátu txts 5

Klikněte a stáhněte si zdarma zkušební verzi Kutools pro Excel!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

karta kte 201905


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!
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