Preskoči na glavno vsebino

Kako izvoziti Excelove podatke (izbor ali liste) v besedilne datoteke v Excelu?

Če morate delovni zvezek dostaviti v obliki besedilne datoteke, ga morate pretvoriti v besedilne datoteke. Ta članek vam bo predstavil dva načina za preprost izvoz Excelovih podatkov v besedilne datoteke.

Izvozite en sam list v besedilno datoteko v Excelu

Podatki programa Excel se privzeto shranijo kot delovni zvezki v obliki . Xlsx. Vendar pa lahko delovni list obstoječega delovnega zvezka izvozimo kot besedilne datoteke z datoteko Shrani kot funkcija. Naredite naslednje:

1. Premaknite se na delovni list, ki ga želite izvoziti v besedilno datoteko, in kliknite file (ali Gumb »Pisarna«)> Shrani kot.

2. V uvodu Shrani kot v pogovornem oknu izberite ciljno mapo, v katero boste shranili izvoženo besedilno datoteko, datoteko poimenujte v Ime datoteke in nato izberite Besedilo Unicode (* .txt) iz datoteke Shrani kot vrsto spustni seznam. Oglejte si posnetek zaslona:
izvoz v besedilno datoteko s funkcijo Shrani kot

3. Nato se bosta pojavili dve opozorilni pogovorni okni, v katerih boste pozvali, da izvozite samo aktivni delovni list kot besedilno datoteko in izpustite vse nezdružljive funkcije z besedilno datoteko. Kliknite OK gumb in Da gumb zaporedoma.

Nato se podatki na aktivnem delovnem listu izvozijo kot nova besedilna datoteka.

Opombe: Shrani kot ukaz lahko izvozi podatke aktivnega delovnega lista samo kot besedilno datoteko. Če želite izvoziti vse podatke celotnega delovnega zvezka, morate vsak delovni list shraniti kot besedilno datoteko posebej.


Izvozi izbor (ali en stolpec) v besedilno datoteko z VBA

Naslednja koda VBA vam lahko pomaga tudi pri izvozu podatkov o izbranem obsegu (na primer en stolpec) v besedilno datoteko, naredite tako:

1. Drži dol ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: izvozi izbor ali celoten delovni list v besedilno datoteko

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. Nato pritisnite F5 tipko za zagon te kode. Nato v pojavnem pogovornem oknu izberite obseg podatkov, ki ga želite izvoziti, in kliknite OK gumb, glej posnetek zaslona:
Izberite en stolpec, ki ga želite izvoziti kot besedilno datoteko

4. Zdaj v drugem pogovornem oknu Shrani kot določite ime te besedilne datoteke in mapo, v katero želite shraniti to datoteko, in kliknite Shrani gumb.


Izvozi izbor (ali en stolpec) v besedilno datoteko s programom Kutools za Excel

O Shrani kot ukaz lahko izvozi vse podatke na aktivnem delovnem listu kot besedilo. Kaj pa, če vse podatke določenih neaktivnih delovnih listov ali del podatkov na delovnem listu izvozite kot besedilno datoteko? Kutools za Excel's Izvozi obseg v datoteko pripomoček nam lahko pomaga pri izvozu in shranjevanju podatkov v izboru kot besedilno datoteko.  

Kutools za Excel - Vsebuje več kot 300 osnovnih orodij za Excel. Uživajte v 30-dnevnem BREZPLAČNEM preizkusu s polnimi funkcijami brez kreditne kartice! Prenesi zdaj!

1. Izberite zvonjenje, ki ga boste izvozili v besedilno datoteko (v našem primeru izberemo stolpec A), in kliknite Kutools Plus > Uvozno-izvoznih > Izvozi obseg v datoteko, glej posnetek zaslona:
Dodatek za Excel: izvozi izbor v besedilno datoteko

2. v Izvozi obseg v datoteko pogovorno okno, naredite, kot je prikazano na spodnji sliki zaslona:
Dodatek za Excel: izvozi izbor v besedilno datoteko
(1) Preverite Besedilo Unicode možnost v format datoteke odsek;
(2) Označite možnost Shrani dejanske vrednosti ali Shrani vrednosti, kot je prikazano na zaslonu, kot potrebujete v razdelku Možnosti besedila;
(3) Določite ciljno mapo, v katero boste shranili izvoženo besedilno datoteko;
(4) Kliknite Ok gumb.

3. Poimenujte izvoženo besedilno datoteko v novem odpiralnem pogovornem oknu in kliknite Ok gumb.
poimenujte izvoženo besedilno datoteko

Nato je bil izbor (izbrani stolpec A) izvožen kot besedilna datoteka in shranjen v določeno mapo.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now


Izvozi več listov v ločene besedilne datoteke v Excelu

Včasih boste morda morali izvoziti več delovnih listov v več besedilnih datotek v Excelu. Funkcija Shrani kot je morda nekoliko dolgočasna! Ne skrbi! Kutools za Excel Razdeljeni delovni zvezek pripomoček uporabnikom Excela omogoča enostavno rešitev za izvoz več delovnih listov v več ločenih besedilnih datotek z več kliki. 

Kutools za Excel - Vsebuje več kot 300 osnovnih orodij za Excel. Uživajte v 30-dnevnem BREZPLAČNEM preizkusu s polnimi funkcijami brez kreditne kartice! Prenesi zdaj!

1. klik Kutools Plus > Delovni zvezekRazdeljeni delovni zvezek. Oglejte si posnetek zaslona:
Dodatek za Excel: izvoz več listov v besedilne datoteke

2. V začetnem pogovornem oknu Split Workbook naredite naslednje:
Dodatek za Excel: izvoz več listov v besedilne datoteke
(1) Preverite delovne liste, ki jih boste izvozili v ločene besedilne datoteke v Ime delovnega zvezka odsek;
(2) Preverite Določite obliko shranjevanja in nato izberite Besedilo Unicode (* .txt) od spodaj spustnega seznama si oglejte levi posnetek zaslona:
(3) Kliknite Split gumb.

3. In nato v pojavnem pogovornem oknu Brskaj za mapo izberite ciljno mapo, v katero boste shranili izvožene besedilne datoteke, in kliknite OK gumb.

Do zdaj je bil vsak določen delovni list izvožen kot ločena besedilna datoteka in shranjen v določeno mapo.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

Vsak list enostavno shranite kot ločeno datoteko PDF / text / csv ali delovni zvezek v Excelu

Običajno lahko aktivni delovni list shranimo kot ločeno datoteko .pdf, .txt ali .csv s funkcijo Shrani kot. Toda Kutools za Excel Razdeljeni delovni zvezek pripomoček vam lahko pomaga enostavno shraniti vsak delovni zvezek kot ločeno datoteko PDF / TEXT / CSV ali delovni zvezek v Excelu.


deljeni zvezek za deljenje oglasov pdf 1

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now


Predstavitev: izvozite Excelove podatke (izbor ali liste) v besedilne datoteke v Excelu


Kutools za Excel: Več kot 300 priročnih orodij na dosegu roke! Začnite 30-dnevno brezplačno preskusno obdobje brez omejitev funkcij še danes. Download Now!

Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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