Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Экспорт нескольких рабочих листов в отдельные файлы text / pdf / csv с помощью Kutools for Excel


Экспорт нескольких рабочих листов в отдельные файлы text / pdf / csv:

Чтобы разделить каждый рабочий лист на отдельные текстовые, рабочие, файлы Pdf или Csv, Kutools for Excel's Сплит-книга может помочь вам решить эту задачу как можно проще.

doc экспортировать столбцы в txts 6

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Экспортировать несколько столбцов в отдельные текстовые файлы с кодом 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 для запуска этого кода и браузер появится диалоговое окно, затем выберите папку для размещения экспортированных текстовых файлов, см. снимок экрана:

doc экспортировать столбцы в txts 1

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

doc экспортировать столбцы в txts 2


Экспорт нескольких рабочих листов в отдельные файлы text / pdf / csv с помощью Kutools for Excel

Если вам нужно экспортировать несколько рабочих листов в отдельные текстовые, pdf или csv-файлы, Kutools for ExcelАвтора Сплит-книга функция может сделать вам одолжение.

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

1. Щелчок Kutools Plus > Workbook > Сплит-книга, см. снимок экрана:

doc экспортировать столбцы в txts 3

2. В Сплит-книга диалоговое окно, проверьте рабочие листы, которые вы хотите сохранить как файлы txt, pdf, csv, а затем проверьте Сохранить как , затем выберите тип файла, который вы хотите сохранить, а затем нажмите Трещина в отображаемом Просмотр папки диалоговое окно, выберите папку для размещения экспортированных файлов, см. снимок экрана:

doc экспортировать столбцы в txts 4

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

doc экспортировать столбцы в txts 5


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nicolas · 1 months ago
    Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
  • To post as a guest, your comment is unpublished.
    Gianluca · 8 months ago
    Great, you made my day with the code to export multiple columns into individual text files! Many thanks!