Como converter várias pastas de trabalho ou planilhas para arquivos PDF de uma só vez no Excel?

Converter arquivos do Excel para PDF é uma tarefa comum quando você deseja compartilhar dados enquanto evita modificações. Embora o recurso Salvar Como do Excel permita converter uma única pasta de trabalho em PDF, isso pode ser demorado para vários arquivos. Este guia explora vários métodos, incluindo código VBA e Kutools para Excel, para converter rapidamente várias pastas de trabalho ou planilhas em arquivos PDF de uma só vez.

• Converter várias pastas de trabalho para arquivos PDF com a função Salvar Como uma por uma
• Converter várias pastas de trabalho para arquivos PDF com código VBA de uma só vez
• Converter várias pastas de trabalho para arquivos PDF com um recurso poderoso
• Converter várias planilhas de uma pasta de trabalho para arquivos PDF separados com código VBA
• Converter várias planilhas de uma pasta de trabalho para arquivos PDF separados com um recurso prático

Converter várias pastas de trabalho para arquivos PDF com a função Salvar Como uma por uma

Normalmente, o recurso Salvar Como no Excel pode ajudá-lo a salvar toda a pasta de trabalho em um arquivo PDF, faça o seguinte:

1. Abra a pasta de trabalho que deseja converter para o formato PDF.

2. Clique em Arquivo > Salvar Como, e na caixa de diálogo Salvar Como, especifique uma pasta para salvar o novo arquivo, selecione PDF na lista suspensa Tipo de arquivo e clique no botão Opções, veja a captura de tela:

3. Em seguida, na caixa de diálogo Opções exibida, marque Toda a pasta de trabalho, veja a captura de tela:

4. Depois, clique em OK > Salvar, e esta pasta de trabalho inteira será salva no formato de arquivo PDF.

Converter várias pastas de trabalho para arquivos PDF com código VBA de uma só vez

Se houver centenas de arquivos do Excel que precisam ser convertidos, o método acima será trabalhoso; aqui, vou falar sobre um código VBA para converter várias pastas de trabalho em arquivos PDF de uma só vez, siga as etapas abaixo:

1. Pressione as teclas ALT + F11 para abrir a janela 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 pastas de trabalho 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. Pressione a tecla F5 para executar este código, e uma janela será exibida; selecione uma pasta que contém as pastas de trabalho que deseja converter, veja a captura de tela:

4. Clique em OK, outra janela será exibida; selecione um caminho de pasta onde deseja salvar os novos arquivos PDF, veja a captura de tela:

5. Clique em OK, após concluir a conversão, você pode ir à pasta especificada para visualizar o resultado da conversão, veja as capturas de tela:

Converter várias pastas de trabalho para arquivos PDF com um recurso poderoso

Se você tiver o Kutools para Excel, com sua utilidade Conversor de Formato, poderá converter rapidamente várias pastas de trabalho para arquivos PDF de uma só vez.

1. Clique em Kutools Plus > Pasta de Trabalho > Conversor de Formato, veja a captura de tela:

2. Uma caixa de aviso será exibida lembrando-o de fechar as pastas de trabalho que deseja converter.

3. Clique em OK, depois, na caixa de diálogo Conversor de Formato de Arquivo, especifique as seguintes opções:

• Na lista suspensa Tipo de conversão, selecione Pasta de Trabalho do Excel para PDF;
• Clique no botão Adicionar para selecionar os arquivos do Excel que deseja converter. Você pode escolher pastas de trabalho do seu computador ou OneDrive conforme necessário.

4Após inserir as pastas de trabalho que deseja converter, ainda na Conversor de Formato de Arquivo caixa de diálogo, clique no botão para escolher um caminho de pasta para salvar os arquivos convertidos e especifique algumas operações necessárias na parte inferior da caixa de diálogo, veja a captura de tela:

5. Em seguida, clique em OK para iniciar a conversão. Assim que todos os arquivos Excel especificados forem convertidos para PDFs, navegue até a pasta designada para visualizar os resultados. Veja as capturas de tela abaixo:

Converter várias planilhas de uma pasta de trabalho para arquivos PDF separados com código VBA

Em alguns casos, você pode querer converter cada planilha na pasta de trabalho para arquivos PDF separados. Se sua pasta de trabalho contiver muitas planilhas, o código VBA abaixo pode ajudar a salvar cada planilha como um arquivo PDF separado simultaneamente.

1. Abra uma pasta de trabalho que deseja converter e pressione as teclas ALT + F11 para abrir a janela 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 planilhas de uma pasta de trabalho para 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. Pressione a tecla F5 para executar este código, e uma janela será exibida; escolha um caminho de pasta para salvar os arquivos PDF convertidos. Veja a captura de tela:

4. Clique no botão OK, e todas as planilhas na pasta de trabalho atual serão convertidas em arquivos PDF separados:

Converter várias planilhas de uma pasta de trabalho para arquivos PDF separados com um recurso prático

O Kutools para Excel também oferece um recurso útil - Separar Pasta de Trabalho, com esse recurso, você pode salvar várias planilhas dentro da pasta de trabalho em arquivos separados do Excel, Txt, CSV e PDF conforme necessário.

1. Abra a pasta de trabalho onde deseja salvar cada planilha como um arquivo PDF separado e clique em Kutool Plus > Pasta de Trabalho > Separar Pasta de Trabalho, veja a captura de tela:

2. Na caixa de diálogo Separar Pasta de Trabalho, marque as planilhas que deseja salvar, escolha PDF (*.pdf) na lista suspensa Tipo de arquivo e clique no botão Separar; na janela Selecionar Pasta, especifique uma pasta para colocar os arquivos convertidos, veja a captura de tela:

3. E então, todas as planilhas selecionadas na pasta de trabalho atual foram salvas como arquivos PDF individualmente, veja a captura de tela:

Mais artigos relacionados: