Ir para o conteúdo principal

Como salvar ou exportar cada folha como arquivo CSV / PDF no Excel?

Por exemplo, você tem uma pasta de trabalho grande com várias planilhas e deseja salvar ou exportar cada planilha como um arquivo .csv ou PDF individual. Como fazer isso de maneira fácil e rápida? Neste artigo, apresentarei vários métodos para resolvê-lo.


Salve ou exporte cada folha como arquivo CSV / PDF com o recurso Salvar como

Como você sabe, o Microsoft Excel pode salvar a planilha atual como um arquivo individual .csv ou PDF. Portanto, você pode salvar ou exportar cada folha como arquivo .csv ou arquivo PDF, uma por uma manualmente.

1. Alterne para a planilha que você salvará ou exportará como um arquivo .csv individual e clique em Envie o (ou Botão de escritório)> Salvar como.

2. Na caixa de diálogo de abertura, especifique a pasta de destino em que você salvará o arquivo .csv e clique no botão Salvar como tipo caixa e selecione CSV (delimitado por vírgulas) (* .csv) or PDF (* .pdf) na lista suspensa e clique no Salvar botão.

3. Haverá duas caixas de diálogo de aviso surgindo sucessivamente. Por favor clique OK > Sim.

Nota: Se você salvar a planilha ativa como um arquivo PDF, essas caixas de diálogo não aparecerão. Vá para a próxima etapa.

4. Repita as etapas 1-3 acima para salvar outras planilhas como arquivos .csv individuais, uma por uma.


Salve em lote ou exporte cada folha como um arquivo CSV com VBA

Se houver várias planilhas que você deseja salvar ou exportar como arquivos .csv, o primeiro método será muito demorado e tedioso. Este VBA pode simplificar o trabalho e tornar mais fácil salvar ou exportar cada planilha como arquivo .csv.

1. Pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Application.

2. Clique inserção > Móduloe cole o seguinte código VBA na janela do novo módulo.

VBA: Salve cada planilha como um arquivo CSV individual

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Clique na Execute ou pressione F5 chave para executar este VBA.

4. Na caixa de diálogo Procurar, especifique a pasta de destino na qual você salvará todos os arquivos .csv e clique no botão OK botão.

Em seguida, você verá que cada planilha é salva / exportada como um arquivo .csv individual na pasta de destino especificada.


Salve em lote ou exporte cada planilha como arquivo CSV/PDF com o Kutools para Excel

Alguns usuários do Excel podem recusar o código VBA por alguns motivos. Não se preocupe! O terceiro método também pode salvar em lote ou exportar cada folha como arquivo .csv ou arquivo PDF facilmente pelo Dividir a pasta de trabalho utilitário do Kutools para Excel.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

1. Clique na Empreendimento > livro > Dividir a pasta de trabalho.

doc cada folha para csv 2

2. Na caixa de diálogo de abertura de Dividir Pasta de Trabalho,

doc cada folha para csv 8

(1) Continue selecionando todas as folhas. Se não, você pode marcar a caixa de seleção antes Nome da planilha para selecionar todas as folhas;

(2) Verifique o Especifique o formato de salvamento opção;

(3) Clique na caixa abaixo Especifique o formato de salvamento opção e selecione CSV (Macintosh) (*. Csv) or PDF (* .pdf) a partir da lista drop-down.

(4) Clique no Split botão.

 

Note: Se houver planilhas ocultas e em branco existentes em sua pasta de trabalho, verificando o Pular planilhas ocultas caixa e o Pular planilha em branco A caixa irá ignorar todas as folhas em branco ou ocultas durante a exportação.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

3. Na caixa de diálogo Procurar Pasta, especifique a pasta de destino na qual você salvará todos os arquivos .csv ou PDFs e clique no botão OK botão.

Agora você verá que cada planilha foi exportada e salva como um arquivo .csv individual na pasta especificada.


Demonstração: salve ou exporte cada planilha como arquivo CSV / PDF no Excel


Kutools for Excel: Mais de 300 ferramentas úteis ao seu alcance! Comece hoje mesmo seu teste gratuito de 30 dias sem limitações de recursos. Baixe agora!

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations