Como converter em lote vários arquivos CSV para arquivos XLS(X) no Excel?

Converter um arquivo CSV para o formato XLS ou XLSX é muito fácil usando o recurso Salvar Como. No entanto, converter múltiplos arquivos CSV para XLS ou XLSX de uma pasta pode ser demorado se feito manualmente, salvando um por um. Aqui eu apresento um código de macro para converter rapidamente todos os arquivos CSV de uma pasta para o formato XLS(x).

Converter em lote arquivos CSV para arquivos XLS(X) com código de macro

Converter em lote arquivos CSV para arquivos XLS(X) com código de macro

Para converter múltiplos arquivos CSV de uma pasta para arquivos XLS(X), você pode seguir os passos abaixo:

1. Abra uma nova Pasta de Trabalho e pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications e clique em Inserir > Módulo. Veja a captura de tela:

Observação: Certifique-se de que todos os arquivos CSV que deseja converter estejam fechados.

2. Em seguida, cole o seguinte código de macro no script do Módulo e pressione a tecla F5 para executar o código.

VBA: Converter CSV para XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Na caixa de diálogo que aparece, selecione a pasta específica contendo os arquivos CSV que deseja converter. Veja a captura de tela:

4. Clique OK, todos os arquivos CSV na pasta selecionada foram convertidos para arquivos XLS nela.

Dica: Se você quiser converter arquivos CSV para arquivos XLSX, use o seguinte código VBA.

VBA: Converter arquivos CSV para XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

Artigos Relacionados:

• Como converter um arquivo csv para xls ou importar/abrir csv no Excel?
• Como converter um documento do Word em uma planilha do Excel?