Ugrás a tartalomra

Hogyan exportálhatunk Excel-adatokat (kijelöléseket vagy lapokat) az Excel szövegfájljaiba?

Ha a munkafüzetet szövegfájl formátumban kell kézbesítenie, akkor a munkafüzetet szövegfájlokká kell konvertálnia. Ez a cikk két módszert mutat be az Excel-adatok szöveges fájlokba történő egyszerű exportálására.

Exportáljon egyetlen lapot az Excel fájlfájljába

Alapértelmezés szerint az Excel adatokat munkafüzetekként menti a következő formátumban: . Xlsx. A meglévő munkafüzet munkalapját azonban exportálhatjuk szöveges fájlként a Mentés másként funkció. Kérjük, tegye a következőket:

1. Váltás a munkalapra, amelyet exportálni fog a szövegfájlba, majd kattintson a gombra filé (Vagy Iroda gomb)> Mentés másként.

2. A megnyitón Mentés másként párbeszédpanelen válassza ki a célmappát, ahová az exportált szövegfájlt menteni szeretné, nevezze el a fájlt a Fájlnév négyzetet, majd jelölje be a Unicode szöveg (* .txt) a Mentés típus legördülő lista. Lásd a képernyőképet:
exportálás szöveges fájlba a Mentés másként funkcióval

3. Ezután két figyelmeztető párbeszédpanel jelenik meg, amelyben arra kéri, hogy csak aktív munkalapot exportáljon szövegfájlként, és hagyjon ki minden összeférhetetlen funkciót a szövegfájlokkal. Kattintson a gombra OK gombot, és Igen gombot egymás után.

Ezután az aktív munkalapon lévő adatokat új szövegfájlként exportálja.

Megjegyzések: a Mentés másként parancs csak az aktív munkalap adatait képes exportálni szöveges fájlként. Ha a teljes munkafüzet összes adatát exportálni kívánja, minden munkalapot külön-külön szövegfájlként kell mentenie.


Exportálja a kijelölést (vagy egy oszlopot) a VBA-val ellátott szövegfájlba

A következő VBA-kód szintén segíthet a kiválasztott tartományadatok (például egy oszlop) exportálásában a szövegfájlba, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA: a kijelölt fájl vagy a teljes munkalap exportálása szöveges fájlba

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához. Ezután válassza ki az exportálni kívánt adattartományt a felbukkanó párbeszédpanelen, majd kattintson a gombra OK gomb, lásd a képernyőképet:
Jelöljön ki egy oszlopot, amelyet szövegfájlként exportál

4. Most pedig egy másik Mentés másként párbeszédpanelen adja meg a szövegfájl nevét és egy mappát, ahová a fájlt be szeretné helyezni, majd kattintson a Megtakarítás gombot.


Exportálja a kijelölést (vagy egy oszlopot) szövegfájlba a Kutools for Excel segítségével

Az Mentés másként parancs az aktív munkalapon lévő összes adatot szövegként exportálhatja. Mi a teendő, ha a megadott inaktív munkalapok összes adatát vagy a munkalapon lévő adatok egy részét szövegfájlként exportálja? Kutools az Excelhez's Tartomány exportálása fájlba segédprogram segíthet nekünk az adatok exportálásában és mentésében a kiválasztott szövegfájlként.  

Kutools az Excel számára - Tele van több mint 300 alapvető Excel-eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Letöltés most!

1. Válassza ki a szövegfájlba exportálni kívánt tartományt (esetünkben az A oszlopot választjuk), majd kattintson Kutools Plus > Import Export > Tartomány exportálása fájlba, lásd a képernyőképet:
Excel kiegészítő: kiválasztás exportálása szöveges fájlba

2. Ban,-ben Tartomány exportálása fájlba párbeszédpanel, tegye az alább látható képernyőképet:
Excel kiegészítő: kiválasztás exportálása szöveges fájlba
(1) Ellenőrizze a Unicode szöveg lehetőség a Fájlformátum szakasz;
(2) Jelölje be a Tényleges értékek mentése vagy az Értékek mentése a képernyőn látható opciót, ha szükséges a Szövegopciók részben;
(3) Adja meg a célmappát, ahová az exportált szövegfájlt menteni kívánja;
(4) Kattintson a gombra Ok gombot.

3. Nevezze el az exportált szövegfájlt az új megnyitás párbeszédpanelen, és kattintson a gombra Ok gombot.
nevezze el az exportált szövegfájlt

Ezután a kijelölést (a kiválasztott A oszlopot) szövegfájlként exportálták és a megadott mappába mentették.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most


Több lap exportálása az Excel szöveges fájljainak elkülönítéséhez

Néha előfordulhat, hogy több munkalapot kell exportálnia több szöveges fájlba az Excelben. A Mentés másként funkció kissé unalmas lehet! Ne aggódj! Kutools az Excelhez Felosztott munkafüzet segédprogram segítségével az Excel felhasználók könnyedén megkerülhetik több munkalap több különálló szövegfájlba történő exportálását több kattintással. 

Kutools az Excel számára - Tele van több mint 300 alapvető Excel-eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Letöltés most!

1. kettyenés Kutools Plus > MunkafüzetFelosztott munkafüzet. Lásd a képernyőképet:
Excel kiegészítő: több lap exportálása szöveges fájlokba

2. A megnyíló Munkafüzet párbeszédpanelen tegye a következőket:
Excel kiegészítő: több lap exportálása szöveges fájlokba
(1) Ellenőrizze a munkalapokat, amelyeket külön szövegfájlokba exportál az Munkafüzet neve szakasz;
(2) Ellenőrizze a Adja meg a mentési formátumot lehetőséget, majd válassza ki a Unicode szöveg (* .txt) lenti legördülő listából lásd a bal oldali képernyőképet:
(3) Kattintson a gombra Hasított gombot.

3. Ezután a felbukkanó Tallózás mappában párbeszédpanelen válassza ki a célmappát, ahová az exportált szövegfájlokat menteni kívánja, majd kattintson a OK gombot.

Eddig minden megadott munkalap külön szövegfájlként került exportálásra, és elmentésre került a megadott mappába.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

Könnyedén mentheti minden egyes lapot külön PDF / text / csv fájlként vagy munkafüzetként az Excel programban

Általában az aktív munkalapot külön .pdf, .txt vagy .csv fájlként menthetjük a Mentés másként funkcióval. De Kutools for Excel Felosztott munkafüzet segédprogram segítségével könnyedén elmentheti az egyes munkafüzeteket különálló PDF / TEXT / CSV fájlként vagy munkafüzetként az Excel programban.


hirdetés megosztott munkafüzet pdf 1

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most


Bemutató: Excel-adatok (választék vagy lapok) exportálása az Excel szövegfájljaiba


Kutools az Excel számára: Több mint 300 praktikus eszköz a keze ügyében! Kezdje el a 30 napos ingyenes próbaidőszakot funkciók korlátozása nélkül. Töltse le most!

Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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