Перейти к основному содержанию

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

Если вам необходимо предоставить книгу в формате текстового файла, вам необходимо преобразовать книгу в текстовые файлы. И эта статья познакомит вас с двумя методами простого экспорта данных Excel в текстовые файлы.

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

По умолчанию данные Excel будут сохранены в виде книг в формате . XLSX. Однако мы можем экспортировать рабочий лист существующей книги в виде текстовых файлов с Сохранить как характерная черта. Пожалуйста, сделайте следующее:

1. Перейдите на рабочий лист, который вы будете экспортировать в текстовый файл, и нажмите Файл (или Кнопка офиса)> Сохранить как.

2. В открытии Сохранить как диалоговом окне выберите папку назначения, в которую вы сохраните экспортируемый текстовый файл, назовите файл в Имя файла поле, а затем выберите Текст Юникода (* .txt) из Сохранить как раскрывающийся список. Смотрите скриншот:
экспорт в текстовый файл с функцией «Сохранить как»

3. Затем появятся два предупреждающих диалоговых окна с просьбой экспортировать только активный рабочий лист в виде текстового файла и исключить любые несовместимые функции с текстовым файлом. Нажмите OK кнопки и Да кнопку последовательно.

Затем данные на активном листе экспортируются как новый текстовый файл.

Внимание: Сохранить как команда может экспортировать данные только активного рабочего листа в виде текстового файла. Если вы хотите экспортировать все данные всей книги, вам необходимо сохранить каждый рабочий лист в виде текстового файла отдельно.


Экспорт выделенного фрагмента (или одного столбца) в текстовый файл с помощью 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. А теперь в другом диалоговом окне «Сохранить как» укажите имя для этого текстового файла и папку, в которую нужно поместить этот файл, и нажмите кнопку Сохранить .


Экспорт выделения (или одного столбца) в текстовый файл с помощью Kutools for Excel

Ассоциация Сохранить как Команда может экспортировать все данные на активном листе в виде текста. Что делать, если экспортировать все данные указанных неактивных листов или часть данных на листе в виде текстового файла? Kutools для Excel's Диапазон экспорта в файл Утилита может помочь нам легко экспортировать и сохранять выбранные данные в виде текстового файла.  

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

1. Выберите ранг, который вы экспортируете в текстовый файл (в нашем случае мы выбираем столбец A), и нажмите Кутулс Плюс > Импорт / Экспорт > Диапазон экспорта в файл, см. снимок экрана:
Надстройка Excel: экспорт выделенного фрагмента в текстовый файл

2. В Диапазон экспорта в файл В диалоговом окне выполните следующие действия:
Надстройка Excel: экспорт выделенного фрагмента в текстовый файл
(1) Проверьте Текст Юникода вариант в Формат файла раздел;
(2) Установите флажок «Сохранить фактические значения» или «Сохранить значения, как показано на экране», как вам нужно, в разделе «Параметры текста»;
(3) Укажите папку назначения, в которую вы сохраните экспортированный текстовый файл;
(4) Нажмите кнопку Ok .

3. Назовите экспортируемый текстовый файл в новом диалоговом окне открытия и щелкните значок Ok .
назовите экспортируемый текстовый файл

Затем выделенный фрагмент (выбранный столбец A) был экспортирован в виде текстового файла и сохранен в указанной папке.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


Экспорт нескольких листов в отдельные текстовые файлы в Excel

Иногда вам может потребоваться экспортировать несколько листов в несколько текстовых файлов в Excel. Функция «Сохранить как» может быть немного утомительной! Не волнуйтесь! Kutools для Excel Разделить книгу Утилита предоставляет пользователям Excel простой обходной путь для экспорта нескольких листов во множество отдельных текстовых файлов несколькими щелчками мыши. 

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

1. Нажмите Кутулс Плюс > WorkbookРазделить книгу. Смотрите скриншот:
Надстройка Excel: экспорт нескольких листов в текстовые файлы

2. В открывшемся диалоговом окне «Разделить книгу» выполните следующие действия:
Надстройка Excel: экспорт нескольких листов в текстовые файлы
(1) Проверьте рабочие листы, которые вы будете экспортировать в отдельные текстовые файлы в Название книги раздел;
(2) Проверьте Укажите формат сохранения , а затем выберите Текст в Юникоде (* .txt) из раскрывающегося списка снизу, см. снимок экрана слева:
(3) Щелкните значок Split .

3. Затем во всплывающем диалоговом окне «Обзор папок» выберите папку, в которую вы сохраните экспортированные текстовые файлы, и щелкните значок OK .

На данный момент каждый указанный рабочий лист был экспортирован как отдельный текстовый файл и сохранен в указанной папке.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

Простое массовое сохранение каждого листа в виде отдельного файла PDF / text / csv или книги в Excel

Обычно мы можем сохранить активный рабочий лист как отдельный файл .pdf, .txt или .csv с помощью функции «Сохранить как». Но Kutools для Excel Разделить книгу Утилита может помочь вам легко сохранить каждую книгу как отдельный файл PDF / TEXT / CSV или книгу в Excel.


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

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


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


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 30-дневную бесплатную пробную версию без ограничений сегодня. Скачать

Статьи по теме:

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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