Как пакетно конвертировать несколько файлов Excel в файлы CSV в Excel?
Преобразование файлов Excel в формат CSV можно выполнить с помощью функции "Сохранить как", но обработка нескольких файлов вручную по одному занимает много времени. Если вам нужно пакетно преобразовать несколько файлов Excel в отдельные файлы CSV, это руководство предлагает два эффективных метода:
Пакетное преобразование файлов Excel из папки в файлы CSV с помощью VBA
Преобразование листов книги в отдельные файлы CSV с помощью Kutools для Excel
Пакетное преобразование файлов Excel из папки в файлы CSV с помощью VBA
В Excel нет встроенной функции для быстрого выполнения этой задачи, кроме использования VBA.
1. Запустите Excel и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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 для Excel
Как известно, мы можем преобразовать всю книгу только в один файл CSV в Excel с помощью функции Сохранить как. Иногда вам может понадобиться преобразовать отдельные листы в файлы CSV. В таких случаях утилита Разделить книгу Kutools для Excel может помочь.
1. Откройте книгу, которую вы хотите преобразовать в отдельные файлы CSV, нажмите Kutools Plus > Книга > Разделить книгу.
2. В Разделить книгу диалоговом окне отметьте название листа, который вы хотите разделить (по умолчанию все листы отмечены), отметьте Сохранить как тип, выберите CSV (Macintosh) (*.csv) из выпадающего списка.
3. Нажмите Разделить чтобы вызвать диалоговое окно Обзор папок выберите или создайте папку для размещения файлов CSV.
4. Нажмите OK, и книга будет разделена на отдельные файлы CSV.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Демонстрация: Разделение книги с помощью Kutools для EXCEL
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек