Note: The other languages of the website are Google-translated. Back to English

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 - Zahrnuje více než

300
užitečné nástroje pro Excel. Plná zkušební verze zdarma
30
-den, není potřeba kreditní karta! Zkušební verze zdarma hned teď!

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 - Zahrnuje více než

300
užitečné nástroje pro Excel. Plná zkušební verze zdarma
30
-den, není potřeba kreditní karta! 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 - Zahrnuje více než

300
užitečné nástroje pro Excel. Plná zkušební verze zdarma
30
-den, není potřeba kreditní karta! Zkušební verze zdarma hned teď!
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 - Zahrnuje více než

300
užitečné nástroje pro Excel. Plná zkušební verze zdarma
30
-den, není potřeba kreditní karta! 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 - Zahrnuje více než

300
užitečné nástroje pro Excel. Plná zkušební verze zdarma
30
-den, není potřeba kreditní karta! Get It Now


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


Kutools pro Excel obsahuje více než 300 šikovných nástrojů pro Excel, které si můžete zdarma vyzkoušet bez omezení za 30 dní. Stáhněte si a vyzkoušejte zdarma hned!

Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (19)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
opravdu je to velmi užitečné, děkuji :D
Tento komentář byl moderátorem webu minimalizován
potřebujete vložit data z excelu do poznámkového bloku a poté data oddělit čárkou. jak to mám udělat
Tento komentář byl moderátorem webu minimalizován
musíte vybrat "uložit jako soubor .csv" (hodnoty oddělené čárkami)
Tento komentář byl moderátorem webu minimalizován
Mám problém po uložení mého .xls do .txt, velikost souboru se zvětšuje, z 500 kb na 1,523 XNUMX kb, jak to opravit? dík
Tento komentář byl moderátorem webu minimalizován
Ahoj! Buňky, které chci exportovat jako textový soubor, odkazují na jiné buňky a obsahují kódy if. To znamená, že když exportuji, nedostanu číselné hodnoty, ale "N/A". Víte, jak to mohu opravit? Děkuji.
Tento komentář byl moderátorem webu minimalizován
Ví někdo, jak to udělat pro Excel 2016 MAC? ty
Tento komentář byl moderátorem webu minimalizován
Jedna z nejlepších stránek, kde nacházím své dotazy.
Tento komentář byl moderátorem webu minimalizován
Můj dotaz je, jak je uvedeno níže: Každý den musím generovat zprávu. Data, která získám na posledním řádku (pouze jeden řádek, ale více než jeden sloupec), chci exportovat do jiného listu Excel, což je souhrnný list Excel uložený samostatně na mé ploše. Např.: Report Day1 - export posledního řádku do souhrnného excelového listu řádek1 Den2 report - export posledního řádku do souhrnného excelového listu row2 Report Day3 - export posledního řádku do souhrnného excelového listu řádek3 a tak dále. Export by měl být proveden kliknutím na tlačítko., což znamená, že když kliknu na tlačítko exportovat, data na listu, který jsem dnes vypočítal, by měla jít a uložit do souhrnného excelového listu row1, další den by měla jít nová sestava excelového listu vypočítaná a uložit na souhrnný excelový list řádek2 a tak dále. Bude to možné... Pokud ano, prosím, pomozte mi s tím někdo... Předem děkuji...:-)
Tento komentář byl moderátorem webu minimalizován
1/2 (protože váš software omezuje délku komentáře) Jsem seriózní kodér a chci vás informovat, že zde uvedený kód VBA je nevyřízený. Je to čisté a ani jeden řádek není příliš mnoho, ani jeden příliš málo. Je to příkladné kódování pro demonstraci procesu. Zmíním také, že když jsem rozsáhle zkoumal řešení pro export výběru, vy a pouze jedna další osoba jste navrhli přesunout rozsah do dočasného nového sešitu. Všechny ostatní odpovědi byly bolestně manuální, procházely se buňkou po buňce. Dokonce i Chipův kód je mnohem delší a běží pomaleji (ale záměrně, protože je mnohem flexibilnější - specifikovatelné oddělovače atd.) Jen pro vaše pobavení jsem provedl několik velmi drobných úprav, ale jinak jsem téměř zrušil kód slovo od slova, protože v podstatě spadl přímo do velmi složité a specializované aplikace. Některé z těchto vylepšení jsou něco, o čem jsem si jistý, že v praxi děláte, ale přidávají řádky kódu (např. kontrola chyb), takže jejich zobrazení na této webové stránce by zatemnilo váš displej, takže základní prvky zpracování by byly pro čtenáře těžkopádné následovat. Každopádně: (viz část 2)
Tento komentář byl moderátorem webu minimalizován
2/2 - vbYesNoCancel msgboxes a Booleans k označení, zda exportovat vše, výběr nebo uživatelem specifikovaný rozsah - statický řetězec pro adresu předchozího rozsahu - pokud len(ta statická)1, nastavím WorkRng=activesheet.UsedRange (Můžete nekopírujte více oblastí jednou kopií, i když s trochou práce byste mohli oblasti projít a zkopírovat je po částech.) - Idiotický Microsoft neukládá prázdné řádky na začátku a na konci uloženého rozsahu a neukládá vypnout prázdné sloupce zcela vlevo a vpravo od uloženého rozsahu. Když zjistím, že (UsedRange není řádek 1, sloupec 1 nebo xlLastCell není úplně vpravo dole), zeptám se uživatele, zda chce zapojit A1 nebo pravou dolní buňku. - Pak jsem se rozhodl preventivně vyřešit problém vlevo nahoře vložením řádku a nastavením A1 na text jako "Následující je pro rozsah" - Zavřu pomocí activeworkbook.close SaveChanges:=False - Dlouhý zvyk, protože jsem naštvaný zastánce úklidu (a svět je smutné místo díky nezodpovědným programátorům, kteří se té odpovědnosti vyhýbají, když na tom záleží), nastavil jsem WorkRng = Nic na cestě ven :)
Tento komentář byl moderátorem webu minimalizován
3/2 Můžete si také všimnout, že po přidání sešitu nemusíte zadávat předponu wb, protože se stává aktivní. Zadání wb může nebo nemusí být efektivnější, ale může být u některých příkazů vynecháno. Vlastně jsem úplně zrušil proměnnou wb; Prostě jdu Workbooks.Add a v případě potřeby používám ActiveWorkbook. (Protože potlačujete ScreenUpdating, pro některé by nebylo zřejmé, že wb je aktivní. Tip pro začátečníky (a vyšší): Vždy, vždy vyvíjím s ScreenUpdating a DisplayAlerts jako True, a až skončím s vývojem, zvažuji jejich vypnutí pro nějakou pasáž kódu.)
Tento komentář byl moderátorem webu minimalizován
Děkujeme za úžasný kus kódu VBA pro export dat do textového souboru. Použil jsem váš kód s některými svými. Data, se kterými se zabývám, jsou extrémně specifická pro délku řádku a po spuštění makra obsahuje textový soubor nějaké dvojité uvozovky " na náhodných místech, které se nikdy předtím v mých datech nevyskytovaly. Pokusil jsem se přidat řádek kódu k odstranění tento znak v různých fázích, ale zdá se, že nefunguje. Jsem si vědom toho, že to mohu ručně odstranit, ale chtěl bych to vyřešit v kódu VBA.

Sub Macro3 ()
Dim wb Jako sešit
Ztlumit uložit Soubor jako řetězec
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").Pole automatického filtru:=1, Criteria1:= _
"=NSZAP*", Operátor:=xlAnd
Rozsah("A1").Vyberte
ActiveCell.Offset(200, 0).Range("A1").Vybrat
Rozsah (výběr, výběr.vlastní (xlDown))
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Rozsah("A1").Vyberte
Selection.AutoFilter
Rozsah (výběr, výběr.vlastní (xlDown))
Nastavte WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Pracovní listy(1).Vložit
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Nepravda
saveFile = Application.GetSaveAsFilename(fileFilter:="Textové soubory (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Nepravda
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Nepravda
wb.Zavřít
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj Harishi,
Chcete-li odstranit zadaný znak hromadně, můžete znak nahradit ničím.
Ctrl + H otevřete dialogové okno Najít a nahradit, zadejte zadaný znak do pole Najít a do pole Nahradit zadejte poznámku.
Tento komentář byl moderátorem webu minimalizován
AHOJ
DĚKUJI ZA VÁŠ KÓD VBA
NĚKDY NA URČITÉM TEXTU JE V EXPORTU .TXT "TEXT".
DĚKUJI ZA PROČ
Tento komentář byl moderátorem webu minimalizován
ahoj lidi, použil jsem tento kód:
Sub ExportRangetoFile()
'Aktualizace 20130913
Dim wb Jako sešit
Ztlumit uložit Soubor jako řetězec
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutoolsfor Excel"
Nastavte 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.Pracovní listy(1).Vložit
saveFile = Application.GetSaveAsFilename(fileFilter:="Textové soubory (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Zavřít
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

a fungují, ale potřebuji uložit sloupec s buňkami, které obsahují funkci "concatenate", a když hraji kód vba a uložím soubor .TXT, je to #REF pouze to, co se objeví. jak to mohu opravit? protože potřebuji data, která se objeví na těchto buňkách?
Tento komentář byl moderátorem webu minimalizován
Podařilo se to někomu zjistit? Mám stejný problém.
Tento komentář byl moderátorem webu minimalizován
Ahoj, tento kód je pro mě velmi užitečný. Takže moc děkuji.
Chci se zeptat, že: Když používám tento kód, na konec obsahu txt se automaticky připojí nový řádek.
Můžete mi pomoci, jak tomu zabránit pomocí vba?
Tento komentář byl moderátorem webu minimalizován
Ahoj, to je super, díky moc.
Jak bych změnil kód pro Export výběru (nebo jeden sloupec) do textového souboru s VBA, aby se automaticky vyplnil název souboru obsahem buňky B2?
Tento komentář byl moderátorem webu minimalizován
Jak bych upravil kód pro Export výběru (nebo jeden sloupec) do textového souboru s VBA, aby se název souboru automaticky vyplnil obsahem buňky B2?
Díky
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL