Прескочи на основното съдържание

Как да експортирате данни от Excel (селекция или листове) в текстови файлове в Excel?

Автор: Кели Последна промяна: 2020-05-08

Ако се изисква да доставите работна книга във формат на текстов файл, трябва да конвертирате работната книга в текстови файлове. И тази статия ще ви представи два метода за лесно експортиране на данни от Excel в текстови файлове.

Експортирайте един единствен лист в текстов файл в Excel

По подразбиране данните на Excel ще бъдат записани като работни книги във формат на . Xlsx. Въпреки това можем да експортираме работен лист от съществуваща работна книга като текстови файлове с Save As особеност. Моля, направете следното:

1. Преминете към работния лист, който ще експортирате в текстов файл, и щракнете досие (или Офис бутон)> Save As.

2. В откриването Save As изберете целевата папка, в която ще запишете експортирания текстов файл, наименувайте файла в Име на файл и след това изберете Уникод текст (*.txt) от Запиши като тип падащ списък. Вижте екранна снимка:
експортирайте в текстов файл с функцията Запиши като

3. След това ще изскочи два предупредителни диалогови прозореца с молба да експортирате само активен работен лист като текстов файл и да оставите всички несъвместими функции с текстовия файл. Кликнете OK бутона и Да бутон последователно.

След това данните в активния работен лист се експортират като нов текстов файл.

Забележка: На Save As командата може само да експортира данни от активния работен лист като текстов файл. Ако искате да експортирате всички данни от цялата работна книга, трябва да запишете всеки работен лист като текстов файл поотделно.


Експортирайте селекцията (или една колона) в текстов файл с VBA

Следният VBA код също може да ви помогне да експортирате избраните данни от диапазона (например една колона) в текстовия файл, моля, направете следното:

1. Задръжте надолу ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.

2. Кликнете Поставете > Модулии поставете следния код в прозореца на модула.

VBA: експортиране на селекция или цял работен лист в текстов файл

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. След това натиснете F5 ключ за изпълнение на този код. След това изберете диапазона от данни, който искате да експортирате, в изскачащия диалогов прозорец и щракнете върху OK бутон, вижте екранната снимка:
Изберете една колона, която да експортирате като текстов файл

4. И сега в друг диалогов прозорец Запазване като, моля, посочете име за този текстов файл и папка, в която да поставите този файл, и щракнете върху Save бутон.


Експортирайте селекцията (или една колона) в текстов файл с Kutools за Excel

- Save As командата може да експортира всички данни в активния работен лист като текст. Какво става, ако експортирате всички данни от определени неактивни работни листове или част от данните в работен лист като текстов файл? Kutools за Excel's Експортиране на диапазон във файл помощната програма може да ни помогне лесно да експортираме и запазим данните в селекцията като текстов файл..  

Kutools за Excel - Снабден с над 300 основни инструмента за Excel. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Изтегли сега!

1. Изберете ранга, който ще експортирате в текстов файл (в нашия случай избираме колона A), и щракнете Kutools плюс > Внос / Износ > Експортиране на диапазон във файл, вижте екранна снимка:
Добавка на Excel: експортиране на селекцията в текстов файл

2. в Експортиране на диапазон във файл диалогов прозорец, направете както е показано на екранната снимка по-долу:
Добавка на Excel: експортиране на селекцията в текстов файл
(1) Проверете Уникод текст опция в формат на файла раздел;
(2) Проверете Запазване на действителните стойности опция или Запазване на стойностите, както е показано на екрана опция, както ви е необходимо в Опции за текст раздел;
(3) Посочете целевата папка, в която ще запишете експортирания текстов файл;
(4) Щракнете върху Ok бутон.

3. Наименувайте експортирания текстов файл в новия отварящ се диалогов прозорец и щракнете върху Ok бутон.
име на експортирания текстов файл

След това селекцията (избрана колона A) е експортирана като текстов файл и е записана в указаната папка.

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега


Експортирайте няколко листа в отделни текстови файлове в Excel

Понякога може да се наложи да експортирате няколко работни листа в множество текстови файлове в Excel. Функцията Запиши като може да е малко досадна! Не се безпокой! Kutools за Excel Разделена работна книга помощната програма предоставя на потребителите на Excel лесно решение за експортиране на множество работни листове в много отделни текстови файлове с няколко кликвания. 

Kutools за Excel - Снабден с над 300 основни инструмента за Excel. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Изтегли сега!

1. кликване Kutools плюс > WorkbookРазделена работна книга. Вижте екранна снимка:
Добавка на Excel: експортирайте няколко листа в текстови файлове

2. В отварящия се диалогов прозорец Разделяне на работна книга, моля, направете следното:
Добавка на Excel: експортирайте няколко листа в текстови файлове
(1) Проверете работните листове, които ще експортирате в отделни текстови файлове в Име на работната книга раздел;
(2) Проверете Посочете формат за запазване и след това изберете Unicode текст (*.txt) от падащия списък по-долу, вижте лявата екранна снимка:
(3) Щракнете върху разцепен бутон.

3. След това в изскачащия диалогов прозорец Преглед на папка изберете целевата папка, в която ще запишете експортираните текстови файлове, и щракнете върху OK бутон.

Досега всеки посочен работен лист е бил експортиран като отделен текстов файл и записан в посочената папка.

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега

Лесно масово запазвайте всеки лист като отделен PDF/текст/csv файл или работна книга в Excel

Обикновено можем да запазим активен работен лист като отделен .pdf файл, .txt файл или .csv файл с функцията Запиши като. Но Kutools за Excel Разделена работна книга помощната програма може да ви помогне лесно да запазите всяка работна книга като отделен PDF/TEXT/CSV файл или работна книга в Excel.


работна книга за рекламно разделяне pdf 1

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега


Демонстрация: експортирайте данни от Excel (селекция или листове) в текстови файлове в Excel


Kutools за Excel: Над 300 удобни инструмента на една ръка разстояние! Започнете своя 30-дневен безплатен пробен период без ограничения на функциите днес. Свали сега!

Свързани членове:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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