Как сохранить каждый лист в виде отдельного текстового файла из книги?

Если вы хотите сохранить лист в виде текстового файла, вы можете использовать функцию Excel Save As, чтобы сохранить лист в виде текстового файла. Но если вы хотите сохранить каждый лист книги в виде отдельного текстового файла, шаги Save As могут вас раздражать. Здесь я познакомлю вас с несколькими интересными приемами, которые помогут вам быстро решить эту скучную задачу в Excel.

Сохранить текущий лист как текстовый файл с помощью VBA

Сохраните каждый лист книги как отдельный текстовый файл с помощью Kutools for Excel

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

Сохранить текущий лист как текстовый файл с помощью VBA

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

1. Активируйте лист, который хотите сохранить как текстовый файл.

2. Нажмите Alt + F11 ключи для отображения Microsoft Visual Basic для приложений окно.

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 Sub

4. Нажмите Run кнопку для выполнения кода, а затем в Kutools for Excel выберите папку, в которую будет помещен текстовый файл, и укажите имя текстового файла. Смотрите скриншот:

5. Нажмите Сохранено. Теперь активный лист сохраняется как текстовый файл.

Наконечник: С помощью VBA вы можете сохранить только один лист как текстовый файл за раз.

Сохраните каждый лист книги как отдельный текстовый файл с помощью Kutools for Excel

Если у вас есть большая книга с сотнями листов, которые необходимо сохранить в отдельные текстовые файлы, метод VBA также является напрасной тратой времени. В этом случае вы можете попробовать использовать Kutools for ExcelАвтора Разделить книгу справиться с этой работой, которая преподнесет вам неожиданный сюрприз.

1. Включите книгу, листы которой вы хотите сохранить как независимые текстовые файлы, а затем щелкните Кутулс Плюс > Workbook > Разделить книгу. Смотрите скриншот:

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

3. Нажмите Split, а затем выберите папку для размещения текстовых файлов из Просмотр папки диалог. Смотрите скриншот:

4. Нажмите OK. Теперь каждый лист книги сохраняется как отдельный текстовый файл в выбранной папке.

В Разделить книгу of Kutools for Excel, вы можете разделить книгу и сохранить их как отдельные файлы xls, файлы xlsx, файлы PDF или файлы CSV, нажмите здесь, чтобы узнать больше об этой утилите.

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

В Kutools for Excel, вы также можете экспортировать выбранный лист в виде текстового файла, используя его Диапазон экспорта в файл.

1. Выберите диапазон или диапазоны, которые вы хотите сохранить как текстовый файл, и нажмите Кутулс Плюс > Импорт/Экспорт > Диапазон экспорта в файл. Смотрите скриншот:

2. Затем в появившемся диалоговом окне отметьте Текст Юникода вариант под Формат файла раздел, затем перейдите к Параметры текста раздел, чтобы выбрать нужный вариант, а затем выберите место для сохранения.

3. Нажмите Ok. Теперь назовите экспортируемый текстовый файл во всплывающем окне. Диапазон экспорта в файл диалоговое окно и щелкните OK .

Пока выбор был экспортирован в отдельный текстовый файл.