Как пакетно конвертировать несколько файлов 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 Sub

4. Нажмите 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