Como converter vários livros ou folhas em ficheiros PDF de uma só vez no Excel?
Converter ficheiros do Excel para PDF é uma tarefa comum quando pretende partilhar dados sem permitir alterações. Embora a funcionalidade «Guardar Como» do Excel lhe permita converter um único livro para PDF, este método pode tornar-se moroso ao lidar com múltiplos ficheiros. Este guia explora várias abordagens — incluindo código VBA e o Kutools para Excel — para converter rapidamente vários livros ou folhas em ficheiros PDF de uma só vez.
- Converter vários livros para Arquivos PDF utilizando a função Guardar Como, um a um
- Converter vários livros para Arquivos PDF com código VBA, todos de uma só vez
- Converter vários livros para Arquivos PDF com uma funcionalidade avançada
- Converter várias folhas de um livro em Arquivos PDF separados com código VBA
- Converter várias folhas de um livro em Arquivos PDF separados com uma funcionalidade prática
Converter vários livros para Arquivos PDF com a função Guardar Como, um a um
Normalmente, a funcionalidade Guardar Como no Excel permite-lhe guardar todo o livro como um ficheiro PDF. Siga estes passos:
1. Abra o livro que pretende converter para o formato PDF.
2. Clique em Ficheiro > Guardar Como e, na caixa de diálogo Guardar Como, especifique uma pasta para guardar o ficheiro gerado. Em seguida, selecione PDF na lista pendente Especificar Formato de Salvamento e clique no botão Opções, conforme ilustrado:
3. Em seguida, na caixa de diálogo Opções que surge, assinale Livro inteiro, conforme ilustrado:
4. Depois, clique em OK > Guardar e todo o livro será guardado como ficheiro PDF.
Converter vários livros para Arquivos PDF com código VBA de uma só vez
Se tiver centenas de ficheiros do Excel para converter, o método anterior tornar-se-á incómodo. Apresentamos aqui um código VBA que permite converter vários livros em ficheiros PDF de uma só vez. Siga os passos abaixo:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Converter vários livros para Arquivos PDF de uma só vez
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar este código. Será apresentada uma janela com os livros que pretende converter, conforme ilustrado:
4. Clique em OK. Surgirá outra janela para indicar o caminho. Por favor, selecione uma pasta onde pretende guardar os novos ficheiros PDF, conforme ilustrado:
5. Clique em OK. Após concluir a conversão, aceda à pasta especificada para visualizar o resultado convertido, conforme ilustrado:
 |  |  |
Converter vários livros para Arquivos PDF com uma funcionalidade avançada
Se tiver o Kutools para Excel, com a sua funcionalidade Converter em lote, poderá converter rapidamente vários livros em ficheiros PDF de uma só vez.
1. Clique em KUTOOLS PLUS > Livro > Converter em lote, conforme ilustrado:
2. Irá surgir uma caixa de aviso a lembrá-lo de fechar os livros que pretende converter.
3. Clique em OK. Depois, na caixa de diálogo Conversor de Formatos de Ficheiro, especifique as seguintes opções:
- Na lista pendente Tipo de Conversão, selecione Converter do Excel para PDF;
- Clique no botão Adicionar para selecionar os ficheiros do Excel que pretende converter. Pode escolher livros do seu computador ou do OneDrive, conforme necessário.
4. Após inserir os livros que pretende converter, ainda na caixa de diálogo Converter em lote, clique no botão 
para escolher um caminho do arquivo onde guardar os ficheiros convertidos e especifique algumas operações necessárias na parte inferior da caixa de diálogo, conforme ilustrado:
- Para incluir livros nas subpastas, assinale a Incluir subpastas ao adicionar pastascaixa;
- Se pretender eliminar os ficheiros originais após a conversão, assinale a Excluir arquivos de origem após a conversãocaixa;
- Se pretender Manter a data de modificação dos arquivos originais, assinale a caixa Manter Data de Modificação dos ficheiros originais;
- A estrutura de diretórios do ficheiro pode ser mantida ao assinalar a Preservar a estrutura de diretórios dos arquivos durante a conversãocaixa;
5. Depois, clique em OK para iniciar a conversão. Assim que todos os ficheiros do Excel especificados forem convertidos em PDF, aceda à pasta designada para visualizar os resultados. Veja as imagens abaixo:
| | |
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Converter várias folhas de um livro em Arquivos PDF separados com código VBA
Em alguns casos, poderá querer converter cada folha do livro em ficheiros PDF separados. Se o seu livro contiver muitas folhas, o código VBA abaixo pode ajudá-lo a guardar simultaneamente cada folha como um ficheiro PDF individual.
1. Abra um livro que pretenda converter e, em seguida, mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Converter várias folhas de cálculo de um livro em ficheiros Arquivos PDF separados
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar este código; irá surgir uma janela — selecione um caminho de ficheiro para guardar os ficheiros PDF convertidos. Veja a captura de ecrã:
4. Clique no botão OK e todas as folhas do Livro de Trabalho Atual serão convertidas em ficheiros PDF separados:
Converter várias folhas de cálculo de um livro em Arquivos PDF separados com uma funcionalidade prática
Kutools para Excel oferece também uma funcionalidade útil – Separar Livro. Com esta funcionalidade, pode guardar várias folhas do livro em ficheiros Excel separados, ficheiros TXT, CSV ou PDF, conforme necessário.
1. Abra o livro onde pretende guardar cada folha como um ficheiro PDF separado e, em seguida, clique em Kutools Plus > Livro > Separar Livro. Veja a captura de ecrã:
2. Na caixa de diálogo Separar Livro, marque as folhas que pretende guardar e, em seguida, selecione PDF (*.pdf) na lista pendente Especificar Formato de Salvamento e clique no botão Dividir. Na janela Selecionar Pasta, indique uma pasta para guardar os ficheiros convertidos. Veja a captura de ecrã:
 | |  |
3. De seguida, todas as planilhas selecionadas no livro de trabalho atual foram guardadas individualmente em ficheiros PDF. Veja a captura de ecrã:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Mais artigos relacionados:
- Converter vários ficheiros Xls em ficheiros Xlsx no Excel
- Para converter um antigo ficheiro .xls do Excel num novo ficheiro .xlsx, pode utilizar a funcionalidade Guardar Como no Excel — mas, se precisar de converter vários ficheiros .xls, como executar esta tarefa de forma rápida e fácil?
- Guardar todas as folhas apenas como valores
- Se tiver um livro com múltiplas fórmulas e precisar de o distribuir a outros utilizadores exibindo apenas os valores — sem revelar as fórmulas — normalmente pode guardar rapidamente uma folha como valores copiando e colando os dados apenas como valores. Contudo, como poderá guardar todas as folhas apenas como valores sem ter de copiar e colar cada uma individualmente?
- Botão de comando para guardar a folha ativa como Arquivos PDF
- Ao trabalhar no Microsoft Excel, poderá deparar-se com dificuldades ao guardar a folha ativa como ficheiros PDF. Neste artigo, vai aprender a guardar a folha ativa como ficheiros PDF utilizando código VBA através de um botão de comando. Além disso, se pretender guardar um intervalo específico ou cada folha do livro atual como ficheiros PDF individuais, este artigo também o ajudará.
- Dividir uma tabela grande em várias tabelas pequenas
- Se tiver uma folha grande com múltiplas colunas e centenas ou milhares de linhas de dados e quiser dividi-la em várias tabelas pequenas com base no valor de uma coluna ou no número de linhas para obter os seguintes resultados, como pode realizar esta tarefa no Excel?
- Dividir um livro em Arquivos do Excel separados
- Poderá precisar de dividir um livro grande em ficheiros do Excel separados, guardando cada folha como um ficheiro Excel individual. Por exemplo, pode dividir um livro em vários ficheiros do Excel e entregar cada um a uma pessoa diferente para tratamento. Assim, determinadas pessoas trabalham apenas com dados específicos, mantendo-os seguros. Este artigo mostra como dividir um livro grande em ficheiros do Excel separados, com base em cada folha.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos