Salt la conținutul principal

Cum se exportă date Excel (selecție sau foi) în fișiere text în Excel?

Dacă vi se cere să livrați un registru de lucru în format de fișier text, trebuie să convertiți registrul de lucru în fișiere text. Și acest articol vă va prezenta două metode pentru a exporta cu ușurință datele Excel în fișiere text.

Exportați o singură foaie în fișier text în Excel

În mod implicit, datele Excel vor fi salvate ca registre de lucru în formatul .xlsx. Cu toate acestea, putem exporta o foaie de lucru a registrului de lucru existent ca fișiere text cu Salvare ca caracteristică. Vă rugăm să faceți următoarele:

1. Treceți la foaia de lucru pe care o veți exporta în fișier text și faceți clic pe Fișier (Sau Butonul Office)> Salvare ca.

2. În deschidere Salvare ca caseta de dialog, selectați folderul de destinație în care veți salva fișierul text exportat, denumiți fișierul în Nume de fișier , apoi selectați caseta Text Unicode (* .txt) din Salvați ca tip lista verticală. Vedeți captura de ecran:
exportați în fișier text cu funcția Salvare ca

3. Apoi, va apărea două casete de dialog de avertizare care vă solicită să exportați doar foaia de lucru activă ca fișier text și să lăsați afară orice caracteristici incompatibile cu fișierul text. Clic OK buton și Da buton succesiv.

Apoi, datele din foaia de lucru activă sunt exportate ca un fișier text nou.

notițe: Salvare ca comanda este capabilă să exporte date din foaia de lucru activă ca fișier text. Dacă doriți să exportați toate datele din întregul registru de lucru, trebuie să salvați fiecare foaie de lucru ca fișier text individual.


Exportați selecția (sau o coloană) în fișier text cu VBA

Următorul cod VBA vă poate ajuta, de asemenea, să exportați datele intervalului selectat (de exemplu, o coloană) în fișierul text, vă rugăm să procedați astfel:

1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: exportați selecția sau întreaga foaie de lucru în fișier text

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. Apoi apăsați F5 tasta pentru a rula acest cod. Și apoi selectați intervalul de date pe care doriți să îl exportați în caseta de dialog pop-up și faceți clic pe OK buton, vezi captura de ecran:
Selectați o coloană de exportat ca fișier text

4. Și acum într-o altă casetă de dialog Salvare ca, vă rugăm să specificați un nume pentru acest fișier text și un folder în care să introduceți acest fișier și faceți clic pe Economisiți butonul.


Exportați selecția (sau o coloană) în fișier text cu Kutools pentru Excel

Salvare ca comanda poate exporta toate datele din foaia de lucru activă ca text. Ce se întâmplă dacă exportați toate datele fișelor de lucru inactive specificate sau o parte a datelor într-o foaie de lucru ca fișier text? Kutools pentru Excel's Exportați gama în fișier utilitarul ne poate ajuta să exportăm și să salvăm datele în selecție ca fișier text cu ușurință ..  

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

1. Selectați sunetul pe care îl veți exporta într-un fișier text (în cazul nostru, selectăm Coloana A) și faceți clic Kutools Plus > Import Export > Exportați gama în fișier, vezi captura de ecran:
Addin Excel: exportați selecția în fișier text

2. În Exportați gama în fișier caseta de dialog, faceți cum se arată în imaginea de mai jos:
Addin Excel: exportați selecția în fișier text
(1) Verificați Text Unicode opțiune în formatul de fișier secțiune;
(2) Bifați opțiunea Salvați valorile reale sau Salvați valorile așa cum se arată pe ecran, după cum aveți nevoie în secțiunea Opțiuni text;
(3) Specificați folderul de destinație în care veți salva fișierul text exportat;
(4) Faceți clic pe Ok butonul.

3. Denumiți fișierul text exportat în noua casetă de dialog de deschidere și faceți clic pe Ok butonul.
denumiți fișierul text exportat

Și apoi selecția (coloana A selectată) a fost exportată ca fișier text și salvată în folderul specificat.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum


Exportați mai multe foi pentru a separa fișiere text în Excel

Uneori poate fi necesar să exportați mai multe foi de lucru în mai multe fișiere text în Excel. Funcția Salvare ca poate fi puțin plictisitoare! Nu iti face griji! Kutools pentru Excel Carnet de lucru divizat utilitarul oferă utilizatorilor Excel o soluție ușoară pentru a exporta mai multe foi de lucru în mai multe fișiere text separate cu mai multe clicuri. 

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

1. clic Kutools Plus > WorkbookCarnet de lucru divizat. Vedeți captura de ecran:
Addin Excel: exportați mai multe foi în fișiere text

2. În caseta de dialog Split Workbook de deschidere, procedați după cum urmează:
Addin Excel: exportați mai multe foi în fișiere text
(1) Verificați foile de lucru pe care le veți exporta în fișiere text separate în Numele registrului de lucru secțiune;
(2) Verificați Specificați formatul de salvare , apoi selectați opțiunea Text Unicode (* .txt) din lista verticală de mai jos, vezi captura de ecran din stânga:
(3) Faceți clic pe Despică butonul.

3. Și apoi, în fereastra de dialog Căutare după folder, selectați folderul de destinație în care veți salva fișierele text exportate și faceți clic pe OK butonul.

Până în prezent fiecare foaie de lucru specificată a fost exportată ca fișier text separat și salvată în folderul specificat.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

Salvați cu ușurință fiecare foaie ca fișier PDF / text / csv separat sau registru de lucru în Excel

În mod normal, putem salva foaia de lucru activă ca fișier .pdf separat, fișier .txt sau fișier .csv cu caracteristica Salvare ca. Dar Kutools pentru Excel Carnet de lucru divizat utilitarul vă poate ajuta să salvați cu ușurință fiecare registru de lucru ca fișier separat PDF / TEXT / CSV sau registru de lucru în Excel.


registru de lucru divizat pdf 1

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum


Demo: exportați date Excel (selecție sau foi) în fișiere text în Excel


Kutools pentru Excel: Peste 300 de instrumente la îndemână la îndemână! Începeți astăzi perioada de încercare gratuită de 30 de zile, fără limitări ale funcțiilor. Descarcă acum!

Articole pe aceeaşi temă:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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