Como converter várias pastas de trabalho ou planilhas em arquivos PDF de uma vez no Excel?
Às vezes, você precisa converter seus arquivos do Excel em arquivos PDF, para que não possam ser modificados por outras pessoas. No Excel, podemos salvar um arquivo Excel como um arquivo PDF usando a função Salvar como. Mas como converter várias pastas de trabalho em arquivos PDF ao mesmo tempo no Excel?
- Converta várias pastas de trabalho em arquivos PDF com a função Salvar como, uma por uma
- Converta várias pastas de trabalho em arquivos PDF com código VBA de uma vez
- Converta várias pastas de trabalho em arquivos PDF com um recurso poderoso
- Converta várias planilhas de uma pasta de trabalho para separar arquivos PDF com código VBA
- Converta várias planilhas de uma pasta de trabalho para separar arquivos PDF com um recurso útil
Converta várias pastas de trabalho em 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. Inicie a pasta de trabalho que deseja converter para o formato PDF.
2. Clique Envie o > Salvar como, E no Salvar como caixa de diálogo, especifique uma pasta para salvar o novo arquivo e selecione PDF do Salvar como tipo lista suspensa e, em seguida, clique Opções botão, veja a captura de tela:
3. Então, no pop out Opções caixa de diálogo, verifique Livro inteiro, veja a captura de tela:
4. E, em seguida, clique em OK > Salvar, toda esta pasta de trabalho foi salva como formato de arquivo PDF.
Converta várias pastas de trabalho em arquivos PDF com código VBA de uma vez
Se houver centenas de arquivos do Excel que precisam ser convertidos, o método acima será problemático, aqui, falarei sobre um código VBA para converter várias pastas de trabalho em arquivos PDF de uma vez, siga as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: converta várias pastas de trabalho em arquivos PDF de uma 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. Então aperte F5 para executar este código e uma janela será exibida, selecione uma pasta que contenha as pastas de trabalho que você deseja converter, consulte a captura de tela:
4. Então clique OK, outra janela é exibida, selecione um caminho de pasta onde deseja enviar os novos arquivos PDF, consulte a captura de tela:
5. E então, clik OK, depois de terminar a conversão, você pode ir para a pasta especificada para visualizar o resultado convertido, veja as capturas de tela:
 |
 |
 |
Converta várias pastas de trabalho em arquivos PDF com um recurso poderoso
Se você tem Kutools for Excel, Com o seu Conversor de formato utilitário, você pode converter rapidamente várias pastas de trabalho em arquivos PDF de uma vez.
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Clique Kutools Plus > livro > Conversor de formato, veja a captura de tela:
2. E uma caixa de prompt é exibida para lembrá-lo de fechar as pastas de trabalho que deseja converter.
3. Clique OK, então, no Conversor de Formato de Arquivo caixa de diálogo, especifique as seguintes opções:
- Sob o Converter tipo lista suspensa, selecione Pasta de trabalho do Excel para PDF;
- Então clique Adicionar botão para adicionar os arquivos do Excel que você deseja converter, você pode adicionar as pastas de trabalho do disco do computador ou OneDrive conforme necessário;
4. Depois de inserir as pastas de trabalho que deseja converter, ainda no Conversor de formato de arquivo caixa de diálogo, por favor clique 
para escolher um caminho de pasta para a saída dos arquivos convertidos e, em seguida, especificar algumas operações necessárias na parte inferior da caixa de diálogo, consulte a captura de tela:
- Se as pastas de trabalho nas subpastas também precisarem ser convertidas, verifique o Incluir subpastas ao adicionar pastas caixa de seleção;
- Se você deseja remover os arquivos originais após a conversão, verifique o Exclua os arquivos de origem após a conversão caixa;
- Se você deseja manter a data de modificação dos arquivos originais, verifique o Manter a data de modificação dos arquivos originais caixa;
- A estrutura do diretório do arquivo pode ser mantida verificando o A estrutura do diretório do arquivo é preservada quando convertida caixa;
5. Então clique OK para iniciar a conversão, quando todos os arquivos Excel especificados foram convertidos em arquivos PDF, você pode ir para a pasta especificada para visualizar o resultado convertido, consulte as capturas de tela:
|
|
|
Converta várias planilhas de uma pasta de trabalho para separar arquivos PDF com código VBA
Em alguns casos, você pode querer converter cada planilha da pasta de trabalho em arquivos PDF separados; se houver muitas planilhas na pasta, o código VBA a seguir pode ajudá-lo a salvar cada planilha como um arquivo PDF de uma só vez.
1. Abra uma pasta de trabalho que você deseja converter e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: converta várias planilhas de uma pasta de trabalho em 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. Então aperte F5 para executar este código e uma janela é exibida, escolha um caminho de pasta para localizar os arquivos PDF convertidos, consulte a captura de tela:
4. Então clique OK botão, todas as planilhas da pasta de trabalho atual foram convertidas em arquivos PDF separadamente, consulte a captura de tela:
Converta várias planilhas de uma pasta de trabalho para separar arquivos PDF com um recurso útil
Kutools for Excel também suporta um recurso útil - Dividir a pasta de trabalho, com este recurso, você pode salvar várias planilhas dentro da pasta de trabalho para separar o arquivo Excel, o arquivo Txt, o arquivo CSV e o arquivo PDF conforme necessário.
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Abra a pasta de trabalho na qual deseja salvar cada folha como arquivo PDF e clique em Kutool PlusName > livro > Dividir a pasta de trabalho, veja a captura de tela:
2. No Dividir a pasta de trabalho caixa de diálogo, marque a folha que deseja salvar e, em seguida, escolha PDF (* .pdf) do Salvar como tipo lista suspensa e clique em Split botão, no Selecionar pasta janela, especifique uma pasta para colocar os arquivos convertidos, consulte a imagem:
 |
|
 |
3. E então, todas as planilhas selecionadas na pasta de trabalho atual foram salvas em arquivos PDF individualmente, consulte a captura de tela:
Mais artigos relativos:
- Converter vários arquivos Xls em arquivos Xlsx no Excel
- Para converter um arquivo xls antigo do Excel em um novo arquivo xlsx, você pode aplicar o recurso Salvar como no Excel, mas, se houver vários arquivos xls que precisam ser convertidos, como lidar com essa tarefa de forma rápida e fácil?
- Salvar todas as planilhas como valores apenas
- Se você tiver uma pasta de trabalho que contém várias fórmulas, agora, você precisa distribuir este arquivo para outros usuários, você não deseja mostrar as fórmulas, mas apenas os valores. Normalmente, podemos salvar rapidamente uma planilha como valores, copiando e colando os dados apenas como valores. Mas, como você poderia salvar todas as planilhas como valores apenas sem copiar e colar uma por uma?
- Botão de comando para salvar a planilha ativa como arquivo PDF
- Ao trabalhar no Microsoft Excel, você pode enfrentar o problema de salvar a planilha ativa como um arquivo PDF. Neste artigo, você pode aprender como salvar uma planilha ativa como um arquivo PDF com código VBA por meio de um botão de comando. E se você também deseja salvar um intervalo ou cada planilha na pasta de trabalho ativa como um arquivo PDF individual, este artigo também pode ajudá-lo.
- Divida uma mesa grande em várias mesas pequenas
- Se você tiver uma planilha grande que contém várias colunas e centenas ou milhares de dados de linhas, agora, você deseja dividir essa tabela grande em várias tabelas pequenas com base no valor da coluna ou número de linhas para obter os seguintes resultados. Como você lidaria com essa tarefa no Excel?
- Divida uma pasta de trabalho para separar arquivos do Excel
- Pode ser necessário dividir uma pasta de trabalho grande para separar os arquivos do Excel, salvando cada planilha da pasta de trabalho como um arquivo individual do Excel. Por exemplo, você pode dividir uma pasta de trabalho em vários arquivos Excel individuais e, a seguir, entregar cada arquivo a uma pessoa diferente para lidar com ele. Ao fazer isso, você pode fazer com que certas pessoas lidem com dados específicos e os mantenha protegidos. Este artigo apresentará maneiras de dividir uma pasta de trabalho grande para separar arquivos do Excel com base em cada planilha.
Melhores ferramentas de produtividade de escritório
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...
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!
