Como converter em lote vários arquivos do Excel em arquivos CSV no Excel?
No Excel, podemos converter a pasta de trabalho em arquivo CSV com a função Salvar como, mas você poderia saber como converter em lote vários arquivos do Excel em arquivos CSV separados? Neste artigo, apresento um código VBA para converter em lote todos os arquivos do Excel em uma pasta para arquivos CSV no Excel.
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 incorporada que resolva esse trabalho rapidamente, exceto 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. Mas, às vezes, você deseja converter a única folha em arquivo CSV, neste caso, o Dividir a pasta de trabalho utilidade de Kutools for Excel pode ajudá-lo.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools para Excel, faça o seguinte:(Baixe gratuitamente o Kutools para Excel agora!)
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, agora a pasta de trabalho foi dividida em arquivos CSV separados.
Dividir a pasta de trabalho
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!