Como converter em lote vários arquivos do Excel em arquivos CSV no Excel?

A conversão de arquivos Excel para o formato CSV pode ser feita usando a função "Salvar como", mas processar manualmente vários arquivos um por um consome tempo. Se você precisa converter em lote vários arquivos Excel em arquivos CSV separados, este guia oferece dois métodos eficientes:

Conversão em lote de arquivos Excel de uma pasta em arquivos CSV com VBA

Converta planilhas de pasta de trabalho em arquivos CSV separados com o Kutools para Excel

Conversão em lote de arquivos Excel de uma pasta em arquivos CSV com VBA

No Excel, não há nenhuma função interna para executar essa tarefa rapidamente, exceto usando o VBA.

1. Ative o Excel e pressione Alt + F11 chaves abertas Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo para criar um novo módulo.

3. Copie o código abaixo e cole-o na nova janela do módulo.

VBA: conversão em lote de arquivos do Excel para 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. Pressione F5 , selecione a pasta que contém os arquivos Excel que deseja converter em arquivos CSV na primeira caixa de diálogo pop-up.

5. Clique OKe, na segunda caixa de diálogo pop-up, selecione a pasta para colocar os arquivos CSV.

6. Clique OK, agora os arquivos do Excel na pasta foram convertidos em arquivos CSV e salvos em outra pasta.

Converta planilhas de pasta de trabalho em arquivos CSV separados com o Kutools para Excel

Como sabemos, só podemos converter a pasta de trabalho inteira em um arquivo CSV no Excel com sua função Salvar como. Às vezes, você pode precisar converter planilhas individuais em arquivos CSV. Nesses casos, o Dividir a pasta de trabalho utilidade de Kutools for Excel podem ajudar.

1. Ative a pasta de trabalho para a qual deseja converter suas planilhas como arquivos CSV separados, clique em Kutools Plus > livro > Dividir a pasta de trabalho.

2. No Dividir a pasta de trabalho caixa de diálogo, marque o nome da folha que deseja dividir (todas as folhas são marcadas por padrão), marque Salvar como digite, escolha CSV (Macintosh) (* .CSV) na lista suspensa.

3. Clique Split para tirar um Procurar pasta caixa de diálogo, escolha ou crie uma pasta para colocar os arquivos CSV.

4. Clique OK, e a pasta de trabalho será dividida em arquivos CSV separados.

Demonstração: Dividir pasta de trabalho usando Kutools para EXCEL