Gå til hovedindhold

Hvordan eksporteres Excel-data (markering eller ark) til tekstfiler i Excel?

Hvis du skal levere en projektmappe i formatet tekstfil, skal du konvertere projektmappen til tekstfiler. Og denne artikel introducerer dig to metoder til nemt at eksportere Excel-data til tekstfiler.

Eksporter et enkelt ark til tekstfilen i Excel

Som standard gemmes Excel-data som projektmapper i formatet . Xlsx. Vi kan dog eksportere et regneark over eksisterende projektmappe som tekstfiler med Gem som funktion. Gør følgende:

1. Skift til regnearket, som du eksporterer til tekstfil, og klik på filet (eller Kontorknap)> Gem som.

2. I åbningen Gem som i dialogboksen, vælg den destinationsmappe, du vil gemme den eksporterede tekstfil i, navngiv filen i Filnavn og vælg derefter Unicode-tekst (* .txt) fra Filtype rulleliste. Se skærmbillede:
eksporter til tekstfil med Gem som-funktionen

3. Derefter vises det to advarselsdialogbokse, der beder dig om kun at eksportere aktivt regneark som tekstfil og udelade eventuelle inkompatible funktioner med tekstfil. Klik på OK -knappen og Ja knappen successivt.

Derefter eksporteres dataene i det aktive regneark som en ny tekstfil.

Bemærk: det Gem som kommandoen er kun i stand til at eksportere data fra det aktive regneark som en tekstfil. Hvis du vil eksportere alle data i hele projektmappen, skal du gemme hvert regneark som en tekstfil individuelt.


Eksporter markering (eller en kolonne) til tekstfil med VBA

Følgende VBA-kode kan også hjælpe dig med at eksportere de valgte områdedata (for eksempel en kolonne) til tekstfilen, gør venligst som denne:

1. Hold nede i ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA: eksporter valg eller hele regneark til tekstfil

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. Tryk derefter på F5 nøgle til at køre denne kode. Og vælg derefter det dataområde, du vil eksportere, i pop op-dialogboksen, og klik på OK knap, se skærmbillede:
Vælg en kolonne, der skal eksporteres som tekstfil

4. Og nu, i en anden dialogboksen Gem som, skal du angive et navn til denne tekstfil og en mappe, du vil placere denne fil i, og klikke på Gem .


Eksporter markering (eller en kolonne) til tekstfil med Kutools til Excel

Gem som kommando kan eksportere alle data i det aktive regneark som tekst. Hvad hvis du eksporterer alle data fra specificerede inaktive regneark eller en del af dataene i et regneark som en tekstfil? Kutools til Excel's Eksporter rækkevidde til fil hjælpeprogram kan hjælpe os med at eksportere og gemme dataene i markeringen som en tekstfil let ..  

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

1. Vælg det ringede, du vil eksportere til en tekstfil (i vores tilfælde vælger vi kolonne A), og klik på Kutools Plus > Import Eksport > Eksporter rækkevidde til fil, se skærmbillede:
Excel-tilføjelse: eksporter valg til tekstfil

2. I boksen Eksporter rækkevidde til fil dialogboks, gør som vist nedenstående skærmbillede:
Excel-tilføjelse: eksporter valg til tekstfil
(1) Kontroller Unicode-tekst valgmulighed i filformat afsnit;
(2) Kontroller indstillingen Gem de aktuelle værdier eller Gem værdier som vist på skærmen, som du har brug for i afsnittet Tekstindstillinger;
(3) Angiv den destinationsmappe, du vil gemme den eksporterede tekstfil til;
(4) Klik på Ok .

3. Navngiv den eksporterede tekstfil i den nye åbningsdialogboks, og klik på Ok .
navngiv den eksporterede tekstfil

Og så er markeringen (valgt kolonne A) eksporteret som en tekstfil og gemt i den angivne mappe.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu


Eksporter flere ark for at adskille tekstfiler i Excel

Nogle gange kan det være nødvendigt at eksportere flere regneark til flere tekstfiler i Excel. Gem som-funktionen kan være lidt kedelig! Vær ikke urolig! Kutools til Excel Opdelt arbejdsbog hjælpeprogram giver Excel-brugere en nem løsning til at eksportere flere regneark til mange separate tekstfiler med flere klik. 

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

1. klik Kutools Plus > WorkbookOpdelt arbejdsbog. Se skærmbillede:
Excel-tilføjelse: eksporter flere ark til tekstfiler

2. Gør som følger i åbningsdialogboksen Split projektmappe:
Excel-tilføjelse: eksporter flere ark til tekstfiler
(1) Kontroller de regneark, du eksporterer til separate tekstfiler i Navn på projektmappe afsnit;
(2) Kontroller Angiv gemme format valgmulighed, og vælg derefter Unicode-tekst (* .txt) nedenunder rulleliste, se skærmbillede til venstre:
(3) Klik på Dele .

3. I dialogboksen Gennemse efter mappe, der vises, skal du vælge den destinationsmappe, du vil gemme eksporterede tekstfiler til, og klikke på OK .

Indtil videre er hvert specificeret regneark eksporteret som en separat tekstfil og gemt i den angivne mappe.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

Massemag nemt hvert ark som en separat PDF / tekst / csv-fil eller projektmappe i Excel

Normalt kan vi gemme aktivt regneark som en separat .pdf-fil, .txt-fil eller .csv-fil med funktionen Gem som. Men Kutools til Excel Opdelt arbejdsbog hjælpeprogram kan hjælpe dig med nemt at gemme hver projektmappe som separat PDF / TEXT / CSV-fil eller projektmappe i Excel.


annonce split projektmappe pdf 1

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu


Demo: eksporter Excel-data (markering eller ark) til tekstfiler i Excel


Kutools til Excel: Over 300 praktiske værktøjer lige ved hånden! Start din 30-dages gratis prøveperiode uden funktionsbegrænsninger i dag. Hent nu!

Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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