Как экспортировать несколько столбцов в отдельные текстовые файлы в Excel?
Обычно вы можете быстро и легко экспортировать рабочий лист в текстовый файл в Excel с помощью функции «Сохранить как». Но пробовали ли вы когда-нибудь сохранять данные каждого столбца в текстовый файл отдельно с листа Excel? В этой статье я расскажу о том, как решить эту задачу как можно быстрее.
Экспорт нескольких столбцов в отдельные текстовые файлы с кодом VBA
Экспорт нескольких листов в отдельные файлы text / pdf / csv с помощью Kutools for 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. Затем нажмите OK кнопку, и данные каждого столбца на активном листе были экспортированы в текстовый файл индивидуально, см. снимок экрана:
Экспорт нескольких листов в отдельные файлы text / pdf / csv с помощью Kutools for Excel
Если вам нужно экспортировать несколько листов в отдельные текстовые, PDF- или CSV-файлы, Kutools for ExcelАвтора Разделить книгу функция может оказать вам услугу.
После установки Kutools для Excel, выполните следующие действия:
1. Нажмите Кутулс Плюс > Workbook > Разделить книгу, см. снимок экрана:
2. В Разделить книгу диалоговом окне, отметьте рабочие листы, которые вы хотите сохранить как файлы txt, pdf, csv, а затем отметьте Сохранить как вариант, затем выберите тип файла, который вы хотите сохранить как, а затем нажмите Split кнопку в отображаемом Просмотр папки диалоговом окне выберите папку для размещения экспортируемых файлов, см. снимок экрана:
3. Затем нажмите OK кнопку, и выбранные вами листы были экспортированы в индивидуальный конкретный формат файла, как вам нужно, см. снимок экрана:
Нажмите, чтобы загрузить и бесплатную пробную версию Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!