Jak ukládat, exportovat více / všechny listy do samostatných souborů CSV nebo textových souborů v aplikaci Excel?
Při použití aplikace Excel můžete ručně uložit list jako csv nebo textový soubor pomocí funkce Uložit jako. Jak však můžete převést více nebo všechny listy v sešitu na samostatné soubory csv nebo textové soubory? V tomto článku vám ukážeme způsoby, jak uložit nebo převést více nebo všechny listy na oddělené csv nebo textové soubory.
Uložte, exportujte nebo převeďte všechny listy do formátu CSV nebo textového souboru s kódem VBA
Uložte, exportujte nebo převeďte více / všechny listy do formátu CSV nebo textového souboru pomocí programu Kutools pro Excel
Uložte, exportujte nebo převeďte všechny listy do formátu CSV nebo textového souboru s kódem VBA
S níže uvedenými kódy VBA můžete uložit všechny listy v sešitu do samostatných souborů CSV nebo textových souborů. Postupujte prosím následovně.
Exportujte nebo převeďte všechny listy do souborů CSV
1. lis Další + F11 současně otevřete Aplikace Microsoft Visual Basic okno.
2. V Aplikace Microsoft Visual Basic okno, klepněte na tlačítko Vložit > Modul. Potom zkopírujte a vložte následující kód do Modul okno.
Kód VBA: Exportujte všechny listy do samostatných souborů CSV
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
3. zmáčkni F5 klíč ke spuštění kódu. Uvidíte, že všechny exportované soubory CSV jsou umístěny na Dokumenty složku. Viz screenshot:
Exportujte nebo převeďte všechny listy do textových souborů
Následující kód vám pomůže exportovat nebo převést všechny listy v sešitu do samostatných textových souborů.
Kód VBA: Exportujte všechny listy do samostatných textových souborů
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
Exportované textové soubory jsou také umístěny na Dokumenty složku. Viz screenshot:
Uložte, exportujte nebo převeďte více / všechny listy do formátu CSV nebo textového souboru pomocí programu Kutools pro Excel
Ymůžete rychle exportovat nebo převést více nebo všechny listy na jednotlivé soubory csv, textové soubory nebo soubory xls v aplikaci Excel pomocí Rozdělit sešit užitečnost Kutools pro Excel.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
1. cvaknutí Kutools Plus > Cvičebnice > Rozdělit sešit. Viz snímek obrazovky:
2. V Rozdělit sešit dialogové okno:
- 1). Pokud chcete převést všechny listy do formátu CSV nebo textových souborů, ponechte všechny názvy listů zaškrtnuté v souboru Název listu krabice; Pokud chcete pouze převést více listů, neustále je kontrolujte a zrušte zaškrtnutí u dalších listů, které nechcete převádět.
- 2). V možnosti zkontrolujte část Uložit jako typ pole a poté vyberte Text Unicode (*. Txt) or CSV (Macintosh) (*. Csv) z rozevíracího seznamu.
- 3). Klikněte na ikonu Rozdělit .
3. V Procházet složku V dialogovém okně zadejte složku pro uložení exportovaných souborů a poté klikněte na ikonu OK .
Nyní jsou všechny listy nebo určené listy převedeny na oddělené soubory CSV nebo textové soubory a vyhledejte složku, jak jste zadali výše.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Uložte, exportujte nebo převeďte více / všechny listy do formátu CSV nebo textového souboru pomocí programu 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!