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

По умолчанию данные Excel сохраняются в виде книг в формате .xlsx. Однако вы можете экспортировать лист из существующей книги как текстовый файл с помощью функции «Сохранить как». Выполните следующие действия:

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

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

3. Затем появятся два предупреждающих диалоговых окна: первое предложит экспортировать только активный лист в текстовый формат, а второе — удалить все функции, несовместимые с этим форматом. Последовательно нажмите кнопки ОК и Да.

Таким образом, данные с активного листа экспортируются в новый текстовый файл.

Примечание: команда «Сохранить как» позволяет экспортировать данные только активного листа в текстовый формат. Чтобы экспортировать все данные из всей книги, каждый лист необходимо сохранять в текстовом формате отдельно.

Следующий код VBA также поможет экспортировать выделенные данные — например, один столбец — в текстовый файл. Выполните следующие действия:

1.Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

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, чтобы запустить этот код. В появившемся диалоговом окне выберите диапазон данных, который требуется экспортировать, и нажмите кнопку ОК. См. снимок экрана:

4. В другом диалоговом окне «Сохранить как» укажите имя для этого текстового файла и выберите папку, в которую его нужно сохранить, затем нажмите кнопку Сохранить.

Команда «Сохранить как» позволяет экспортировать все данные активного листа в текстовом формате. Но что делать, если нужно экспортировать все данные из указанных неактивных листов или только часть данных с листа в текстовый файл? Утилита «Экспорт диапазона в файл» легко справится с этой задачей — просто выделите нужные данные и сохраните их в текстовом формате.  

1.Выделите диапазон, который нужно экспортировать в текстовый файл (в нашем примере — столбец A), и нажмите KUTOOLS PLUS > Импорт/экспорт > Экспорт диапазона в файл. См. снимок экрана:

2. В диалоговом окне Экспорт диапазона в файл выполните действия, показанные на снимке экрана ниже:

(1) установите флажок напротив параметра Текст в формате Unicode в разделе Тип файла;
(2) установите флажок напротив нужного параметра — «Сохранить фактические значения» или «Сохранить значения, отображаемые на экране» — в разделе «Параметры текста»;
(3) укажите папку назначения для сохранения экспортируемого текстового файла;
(4) нажмите кнопку ОК.

3. Укажите имя экспортируемого текстового файла в новом диалоговом окне и нажмите кнопку ОК.

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

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

1. Нажмите KUTOOLS PLUS > Книга > Разделить книгу. См. снимок экрана:

2. В открывшемся диалоговом окне Разделить книгу выполните следующие действия:

(1) отметьте листы, которые требуется экспортировать в отдельные текстовые файлы, в разделе Имя книги;
(2) установите флажок напротив параметра «Указать формат сохранения» и выберите формат Текст Unicode (*.txt) из раскрывающегося списка ниже (см. левый снимок экрана);
(3) нажмите кнопку Разделить.

3. В появившемся диалоговом окне «Обзор папок» выберите папку назначения для сохранения экспортируемых текстовых файлов и нажмите кнопку ОК.

Теперь каждый указанный лист экспортирован в отдельный текстовый файл и сохранён в заданной папке.

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

Сохранение или экспорт нескольких/всех листов в отдельные файлы csv или Текстовый файл в Excel

Сохранение или экспорт каждого листа в формат CSV/Файлы PDF в Excel

Экспорт/сохранение каждой строки в формат Текстовый файл в Excel