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

Converter arquivos do Excel para o formato CSV pode ser feito usando a função "Salvar Como", mas processar manualmente vários arquivos um por um é demorado. Se você precisa converter em lote vários arquivos do Excel em arquivos CSV separados, este guia oferece dois métodos eficientes:

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

Converter planilhas de uma pasta de trabalho em arquivos CSV separados com Kutools para Excel

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

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

1. Abra o Excel e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > 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 tecla, selecione a pasta que contém os arquivos do Excel que deseja converter para arquivos CSV na primeira caixa de diálogo que aparecer.

5. Clique OK, depois, na segunda caixa de diálogo que aparecer, selecione a pasta para colocar os arquivos CSV.

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

Converter planilhas de uma pasta de trabalho em arquivos CSV separados com Kutools para Excel

Como sabemos, só podemos converter toda a pasta de trabalho 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 utilitário Separar Pasta de Trabalho do Kutools para Excel pode ajudar.

1. Abra a pasta de trabalho que deseja converter suas planilhas em arquivos CSV separados, clique em Kutools Plus > Pasta de Trabalho > Separar Pasta de Trabalho.

2. Na Separar Pasta de Trabalho caixa de diálogo, marque o nome da planilha que deseja separar (todas as planilhas são marcadas por padrão), marque Salvar Como tipo, escolha CSV (Macintosh) (*.csv) da lista suspensa.

3. Clique Separar para abrir uma 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