Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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.

Observação: 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 Corrida 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 - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, 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.

 

Importante: 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 - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, 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 inclui mais de 300 ferramentas úteis para Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

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.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prashant9810 · 1 years ago
    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
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Pav · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      Sriraj · 2 years ago
      ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False