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
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
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
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 <> ""
Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)
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
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.
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
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
Hello, is there a quick change to the code that would allow me to change from a CSV UTF-8 (Comma delimited) to just CSV (Comma delimited)? I tried the first method and was hopeful but it seems like it won't change them since they are already in some form of CSV. Maybe there is an easier process but I can't find anything. I have to convert maybe 150 files that were saved in this format and I don't want to open every file and Save As if I can avoid it. Any help is appreciated!
Thank you for sharing. I'm trying to save out multiple xls files which contain a unique value, producing a prompt asking yes or no before saving. The prompt reads..
"Some features in your workbook might be lost if you save it as a CSV (Comma delimited). Do you want to keep using that format?"
Would someone know where to add the code to answer yes to this prompt?
If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.
How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:
Works great, thanks for the code!
My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
