Como converter em lote vários arquivos CSV em arquivos XLS (X) no Excel?
Converter um arquivo CSV em arquivo XlS ou XLSX é muito fácil aplicando o recurso Salvar como. No entanto, converter vários arquivos CSV em arquivos XLS ou XLSX de uma pasta é demorado, pois é preciso salvar manualmente um por um. Aqui, apresento um código de macro para converter em lote rapidamente todos os arquivos CSV em arquivos XLS (x) de uma pasta.
Converta em lote arquivos CSV em arquivos XlS (X) com código de macro
Converta em lote arquivos CSV em arquivos XlS (X) com código de macro
Para converter vários arquivos CSV de uma pasta em arquivos XLS (X), você pode seguir as etapas abaixo:
1. Habilite uma nova pasta de trabalho, pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela e clique inserção > Módulo. Veja a imagem:
Note: Certifique-se de que todos os arquivos CSV que você deseja converter estejam fechados.
2. Em seguida, cole o código da macro abaixo no Módulo script e pressione F5 chave para executar o código.
VBA: converter CSV em 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 especificada contendo os arquivos CSV que você deseja converter. Veja a imagem:
4. Clique OK, todos os arquivos CSV na pasta selecionada foram convertidos em arquivos XLS nela.
Dica: Se você deseja converter arquivos CSV em arquivos XLSX, use o código VBA abaixo.
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
converter ou exportar rapidamente um intervalo de uma folha para separar arquivos XLS / Word / PDF ou outros formatos de uma vez
|
Normalmente, o Excel não oferece a opção de exportar ou salvar rapidamente um intervalo como um arquivo CSV ou Excel. Se você deseja salvar um intervalo de dados como um CSV ou pasta de trabalho no Excel, pode ser necessário usar uma macro VBA para fazer isso ou copiar o intervalo para a área de transferência e colá-lo em uma nova pasta de trabalho e salvar a pasta de trabalho como CSV ou Livro de exercícios. Kutools for Excel aumenta o Excel com Exportar intervalo para arquivo utilitário para usuários do Excel que desejam processar rapidamente as seguintes operações: Clique para um teste gratuito completo de 30 dias! |
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Artigos relativos:
- Como converter um arquivo csv para um arquivo xls ou importar / abrir csv no Excel?
- Como converter documento do Word em planilha do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!