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

В Excel экспорт всего рабочего листа в текстовый файл выполняется легко с помощью функции «Сохранить как». Однако, если вам нужно сохранить каждый столбец как отдельный текстовый файл, процесс требует нескольких дополнительных шагов. Это руководство покажет вам, как эффективно экспортировать каждый столбец по отдельности с использованием кода VBA или, альтернативно, как сохранить несколько рабочих листов как отдельные текстовые файлы, PDF или CSV с помощью Kutools для Excel.

Экспорт каждого столбца в отдельные текстовые файлы с помощью кода VBA

Экспорт нескольких рабочих листов в отдельные текстовые / PDF / CSV файлы с помощью Kutools для Excel

Экспорт каждого столбца в отдельные текстовые файлы с помощью кода VBA

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Щелкните Вставить > Модуль и вставьте следующую макрос в окно Модуля.

Код VBA: Экспорт каждого столбца в отдельные текстовые файлы:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

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

4. Затем нажмите кнопку ОК, и данные каждого столбца на активном рабочем листе будут экспортированы в текстовый файл по отдельности, см. скриншот:

Экспорт нескольких рабочих листов в отдельные текстовые / PDF / CSV файлы с помощью Kutools для Excel

Если вам нужно экспортировать несколько рабочих листов в отдельные текстовые, PDF или CSV файлы, функция Разделить книгу в Kutools для Excel может помочь.

После установки Kutools для Excel выполните следующие шаги:

1. Щелкните Kutools Plus > Книга > Разделить книгу, см. скриншот:

2. В диалоговом окне Разделить книгу отметьте рабочие листы, которые вы хотите сохранить как txt, pdf, csv файлы, затем отметьте опцию Указать формат сохранения, выберите тип файла, который вы хотите сохранить, и нажмите кнопку Разделить. В появившемся диалоговом окне Обзор выберите папку для размещения экспортированных файлов, см. скриншот:

3. Затем нажмите кнопку ОК, и выбранные рабочие листы будут экспортированы в отдельные файлы нужного формата, см. скриншот: