Přejít k hlavnímu obsahu

Jak exportovat data aplikace Excel (výběr nebo listy) do textových souborů v aplikaci Excel?

Pokud se od vás vyžaduje, abyste doručili sešit ve formátu textového souboru, musíte sešit převést na textové soubory. A tento článek vám představí dvě metody snadného exportu dat aplikace Excel do textových souborů.

Exportujte jeden list do textového souboru v aplikaci Excel

Ve výchozím nastavení budou data aplikace Excel ukládána jako sešity ve formátu . XLSX. Můžeme však exportovat list existujícího sešitu jako textové soubory pomocí Uložit jako Vlastnosti. Postupujte prosím následovně:

1. Posuňte se na list, který exportujete do textového souboru, a klikněte Soubor (nebo Tlačítko Office)> Uložit jako.

2. V otvoru Uložit jako V dialogovém okně vyberte cílovou složku, do které uložíte exportovaný textový soubor, pojmenujte soubor v souboru Název souboru pole a poté vyberte Unicode text (* .txt) z Uložit jako typ rozbalovací seznam. Viz snímek obrazovky:
export do textového souboru s funkcí Uložit jako

3. Poté vyskočí dvě varovná dialogová okna s žádostí o export pouze aktivního listu jako textového souboru a vynechání všech nekompatibilních funkcí s textovým souborem. Klepněte na OK Tlačítko a Ano tlačítko postupně.

Poté se data v aktivním listu exportují jako nový textový soubor.

Poznámka: Uložit jako příkaz je schopen exportovat data aktivního listu pouze jako textový soubor. Chcete-li exportovat všechna data celého sešitu, musíte každý list uložit jako textový soubor samostatně.


Exportujte výběr (nebo jeden sloupec) do textového souboru pomocí VBA

Následující kód VBA vám také pomůže exportovat vybraná data rozsahu (například jeden sloupec) do textového souboru, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2. klikněte Vložit > Modula vložte následující kód do okna modulu.

VBA: export výběru nebo celého listu do textového souboru

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu. V rozbalovacím dialogovém okně vyberte rozsah dat, který chcete exportovat, a klikněte na OK tlačítko, viz screenshot:
Vyberte jeden sloupec, který chcete exportovat jako textový soubor

4. A nyní v jiném dialogovém okně Uložit jako zadejte název tohoto textového souboru a složku, do které chcete tento soubor umístit, a klikněte na Uložit .


Exportujte výběr (nebo jeden sloupec) do textového souboru pomocí programu Kutools pro Excel

Projekt Uložit jako příkaz může exportovat všechna data v aktivním listu jako text. Co když exportujete všechna data specifikovaných neaktivních listů nebo část dat v listu jako textový soubor? Kutools pro Excel's Rozsah exportu do souboru nástroj nám pomůže snadno exportovat a uložit data ve výběru jako textový soubor ..  

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

1. Vyberte rozsah, který exportujete do textového souboru (v našem případě vybereme sloupec A), a klikněte Kutools Plus > Import Export > Rozsah exportu do souboru, viz screenshot:
Doplněk aplikace Excel: exportovat výběr do textového souboru

2. v Rozsah exportu do souboru v dialogovém okně proveďte následující snímek obrazovky:
Doplněk aplikace Excel: exportovat výběr do textového souboru
(1) Zkontrolujte Unicode text možnost v formát souborů sekce;
(2) Zaškrtněte možnost Uložit aktuální hodnoty nebo Uložit hodnoty podle zobrazení na obrazovce, jak potřebujete v části Možnosti textu;
(3) Určete cílovou složku, do které uložíte exportovaný textový soubor;
(4) Klikněte na ikonu Ok .

3. V novém úvodním dialogovém okně pojmenujte exportovaný textový soubor a klikněte na Ok .
pojmenujte exportovaný textový soubor

A poté byl výběr (vybraný sloupec A) exportován jako textový soubor a uložen do určené složky.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now


Exportujte více listů do samostatných textových souborů v aplikaci Excel

Někdy možná budete muset exportovat více listů do více textových souborů v aplikaci Excel. Funkce Uložit jako může být trochu zdlouhavá! Neboj se! Kutools pro Excel Rozdělit sešit nástroj poskytuje uživatelům aplikace Excel snadné řešení pro export několika pracovních listů do mnoha samostatných textových souborů několika kliknutími. 

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

1. cvaknutí Kutools Plus > CvičebniceRozdělit sešit. Viz snímek obrazovky:
Doplněk aplikace Excel: export více listů do textových souborů

2. V úvodním dialogovém okně Rozdělit sešit postupujte takto:
Doplněk aplikace Excel: export více listů do textových souborů
(1) Zkontrolujte listy, které exportujete do samostatných textových souborů v Název sešitu sekce;
(2) Zkontrolujte Určete formát uložení a vyberte možnost Text Unicode (* .txt) z rozevíracího seznamu níže, viz snímek obrazovky vlevo:
(3) Klikněte na Rozdělit .

3. A poté v rozbalovacím dialogovém okně Procházet složku vyberte cílovou složku, do které uložíte exportované textové soubory, a klikněte na OK .

Zatím byl každý zadaný list exportován jako samostatný textový soubor a uložen do určené složky.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

Snadno hromadně uložte každý list jako samostatný soubor PDF / text / CSV nebo sešit v aplikaci Excel

Normálně můžeme aktivní list uložit jako samostatný soubor .pdf, .txt nebo .csv pomocí funkce Uložit jako. Ale Kutools pro Excel Rozdělit sešit Nástroj vám pomůže snadno uložit každý sešit jako samostatný soubor PDF / TEXT / CSV nebo sešit v aplikaci Excel.


sešit s rozdělením reklam pdf 1

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now


Ukázka: Exportujte data Excel (výběr nebo listy) do textových souborů v aplikaci Excel


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Související články:

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
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...

Popis


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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations