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

Если вы хотите сохранить рабочий лист как текстовый файл, вы можете использовать функцию «Сохранить как» в 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 Sub

4. Нажмите кнопку Выполнить, чтобы выполнить код, а затем в диалоговом окне 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

С помощью Kutools для Excel вы также можете экспортировать выделенный фрагмент листа как текстовый файл, используя его Экспорт диапазона в файл.

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

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

3. Нажмите ОК. Теперь назовите экспортируемый текстовый файл в появившемся диалоговом окне Экспорт диапазона в файл и нажмите кнопку ОК.

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