Как пакетно преобразовать несколько файлов 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 для приложений.
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. Нажмите кнопку ОК, после чего во втором появившемся диалоговом окне укажите папку для сохранения CSV-файлов.
6. Нажмите кнопку ОК, и файлы Excel из указанной папки будут преобразованы в CSV-файлы и сохранены в другой папке.
Преобразование листов книги в отдельные CSV-файлы с помощью Kutools для Excel
Как известно, с помощью стандартной функции «Сохранить как» в Excel можно сохранить всю книгу только в виде одного CSV-файла. Однако иногда возникает необходимость преобразовать отдельные листы в отдельные CSV-файлы. В таких случаях на помощь придёт утилита Разделить книгу из набора Kutools для Excel.
1. Откройте книгу, листы которой вы хотите сохранить как отдельные CSV-файлы, и последовательно выберите: KUTOOLS PLUS > Книга > Разделить книгу.
2. В диалоговом окне Разделить книгу отметьте имена листов, которые необходимо разделить (по умолчанию отмечены все листы), установите флажок Тип сохранения и выберите CSV (*.csv) из раскрывающегося списка.
3. Нажмите кнопку Разделить, чтобы открылось диалоговое окно Выбор папки, и укажите или создайте папку для размещения CSV-файлов.
4. Нажмите кнопку ОК, и книга будет разделена на отдельные 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек