Как экспортировать каждый столбец в Excel в отдельные текстовые файлы?
В Excel экспорт всего рабочего листа в текстовый файл выполняется легко с помощью функции «Сохранить как». Однако, если вам нужно сохранить каждый столбец как отдельный текстовый файл, процесс требует нескольких дополнительных шагов. Это руководство покажет вам, как эффективно экспортировать каждый столбец по отдельности с использованием кода VBA или, альтернативно, как сохранить несколько рабочих листов как отдельные текстовые файлы, PDF или CSV с помощью Kutools для Excel.
Экспорт каждого столбца в отдельные текстовые файлы с помощью кода VBA
Экспорт каждого столбца в отдельные текстовые файлы с помощью кода 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. Затем нажмите кнопку ОК, и выбранные рабочие листы будут экспортированы в отдельные файлы нужного формата, см. скриншот:
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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек