Как сохранить каждый лист как отдельный текстовый файл из книги?
Если вы хотите сохранить рабочий лист как текстовый файл, вы можете использовать функцию «Сохранить как» в Excel для сохранения рабочего листа в виде текстового файла. Но если вы хотите сохранить каждый лист книги как отдельный текстовый файл, шаги с использованием «Сохранить как» могут раздражать. Здесь я представляю несколько интересных приемов, которые помогут вам быстро решить эту скучную задачу в Excel.
Сохранение текущего листа как текстового файла с помощью VBA
Сохранение каждого листа книги как отдельного текстового файла с помощью Kutools для Excel 
Экспорт выделенного фрагмента листа как текстового файла с помощью Kutools для Excel
Сохранение текущего листа как текстового файла с помощью VBA
Если вы не хотите использовать функцию «Сохранить как» для сохранения листа как текстового файла, вы можете воспользоваться кодом VBA.
1. Активируйте лист, который вы хотите сохранить как текстовый файл.
2. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
3. В открывшемся окне нажмите Вставить > Модуль, затем вставьте следующий код VBA в Модуль.
Sub SaveSheetToTxt()
'Updateby20150910
Dim xRet As Long
Dim xFileName As Variant
On Error GoTo ErrHandler:
xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
If xFileName = False Then Exit Sub
If Dir(xFileName) <> "" Then
xRet = MsgBox("File '" & xFileName & "' exists. Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
If xRet <> vbYes Then
Exit Sub
Else
Kill xFileName
End If
End If
ActiveSheet.Copy
ActiveWorkbook.SaveAs xFileName, xlUnicodeText
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close False
End If
My_Exit:
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
End Sub4. Нажмите кнопку Выполнить, чтобы выполнить код, а затем в диалоговом окне Kutools для Excel выберите папку для размещения текстового файла и укажите имя для текстового файла. См. скриншот:
5. Нажмите Сохранить. Теперь активный лист сохранен как текстовый файл.
Совет: С помощью VBA вы можете сохранить только один лист как текстовый файл за раз.
Сохранение каждого листа книги как отдельного текстового файла с помощью Kutools для Excel
Если у вас есть большая книга с сотнями листов, которые нужно сохранить в отдельные текстовые файлы, метод VBA также может занять много времени. В этом случае вы можете попробовать использовать функцию Разделить книгу из Kutools для Excel для выполнения этой задачи, что принесет вам неожиданный сюрприз.
1. Откройте книгу, листы которой вы хотите сохранить как независимые текстовые файлы, затем нажмите Kutools Plus > Книга > Разделить книгу. См. скриншот:
2. В диалоговом окне Разделить книгу выберите листы, которые вы хотите разделить и сохранить как текстовые файлы; по умолчанию все листы выбраны, затем отметьте Указать формат сохранения и выберите Текст в формате Unicode (*.txt) из выпадающего списка ниже. См. скриншот:
3. Нажмите Разделить, затем выберите папку для размещения текстовых файлов из диалогового окна Обзор папки. См. скриншот:
4. Нажмите ОК. Теперь каждый лист книги сохранен как отдельный текстовый файл в выбранной папке.
С помощью функции Разделить книгу из Kutools для Excel вы можете разделить книгу и сохранить их как отдельные файлы xls, xlsx, PDF или CSV. Щелкните здесь, чтобы узнать больше об этой утилите.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Экспорт выделенного фрагмента листа как текстового файла с помощью Kutools для Excel
С помощью Kutools для Excel вы также можете экспортировать выделенный фрагмент листа как текстовый файл, используя его Экспорт диапазона в файл.
Kutools для Excel - Наполнен более чем 300 необходимыми инструментами для Excel. Воспользуйтесь постоянно бесплатными функциями ИИ! Скачайте прямо сейчас!
1. Выберите диапазон или диапазоны, которые вы хотите сохранить как текстовый файл, и нажмите Kutools Plus > Импорт/Экспорт > Экспорт диапазона в файл. См. скриншот:
2. Затем в появившемся диалоговом окне отметьте опцию Текст в формате Unicode в разделе Формат файла, затем перейдите в раздел Параметры текста и выберите нужную опцию, после чего укажите место сохранения.
3. Нажмите ОК. Теперь назовите экспортируемый текстовый файл в появившемся диалоговом окне Экспорт диапазона в файл и нажмите кнопку ОК.
На данный момент выделенный фрагмент был экспортирован как отдельный текстовый файл.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек