Как выполнить пакетное преобразование нескольких файлов Excel в файлы CSV в Excel?
В Excel мы можем преобразовать книгу в файл CSV с помощью функции «Сохранить как», но знаете ли вы, как пакетно преобразовать несколько файлов Excel в отдельные файлы CSV? В этой статье я представляю код VBA для пакетного преобразования всех файлов Excel в папке в файлы CSV в Excel.
Пакетное преобразование файлов Excel папки в файлы CSV с помощью VBA
Преобразование листов книги в отдельные файлы CSV с помощью Kutools for Excel
Пакетное преобразование файлов Excel папки в файлы CSV с помощью VBA
В Excel нет встроенной функции, позволяющей быстро решить эту задачу, кроме VBA.
1. Включите Excel и нажмите Alt + F11 ключи открыты Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули для создания нового модуля.
3. Скопируйте приведенный ниже код и вставьте его в новое окно модуля.
VBA: пакетное преобразование файлов Excel в CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Нажмите F5 нажмите, выберите папку, содержащую файлы Excel, которые вы хотите преобразовать в файлы CSV, в первом всплывающем диалоговом окне.
5. Нажмите OK, затем во втором диалоговом окне выберите папку для размещения файлов CSV.
6. Нажмите OK, теперь файлы Excel в папке преобразованы в файлы CSV и сохранены в другой папке.
Преобразование листов книги в отдельные файлы CSV с помощью Kutools for Excel
Как мы знаем, мы можем преобразовать всю книгу в один файл CSV в Excel только с помощью функции «Сохранить как». Но в некоторых случаях вам нужно преобразовать отдельный лист в файл CSV, в данном случае Разделить книгу полезности Kutools for Excel могу помочь тебе.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Включите книгу, листы которой вы хотите преобразовать в отдельные файлы CSV, нажмите Кутулс Плюс > Workbook > Разделить книгу.
2. в Разделить книгу диалоговое окно, проверьте имя листа, который вы хотите разделить (по умолчанию отмечены все листы), установите флажок Сохранить как тип, выберите CSV (Macintosh) (* .CSV) из раскрывающегося списка.
3. Нажмите Split выскочить Просмотр папки диалоговом окне выберите или создайте папку для размещения файлов CSV.
4. Нажмите OK, теперь книга разделена на отдельные файлы CSV.
Разделить книгу
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
