Como guardar uma folha de cálculo em formato PDF e enviá-la como anexo através do Outlook?
No seu dia a dia, é comum deparar-se com situações em que precisa partilhar uma folha de cálculo específica com colegas ou clientes, garantindo ao mesmo tempo que o tipo de ficheiro permanece fixo e seguro. Enviar uma folha de cálculo como ficheiro PDF através do Outlook é uma exigência frequente — especialmente para documentar relatórios, enviar faturas ou partilhar dados finalizados que não devem ser facilmente alterados. Tradicionalmente, este processo implica guardar manualmente a folha de cálculo em formato PDF, abrir o Outlook, compor um e-mail, anexar o ficheiro e enviá-lo: uma tarefa repetitiva e demorada, sobretudo quando realizada com frequência ou ao lidar com múltiplas folhas.
Este artigo orienta-o passo a passo na automatização da conversão de uma folha de cálculo em PDF e no seu imediato envio como anexo num e-mail do Outlook — tudo diretamente a partir do Excel. Assim, poupa tempo valioso e evita tarefas manuais repetitivas. Encontrará uma solução com código VBA, complementada por instruções de utilização, vantagens, cenários de aplicação e dicas práticas.
Guarde uma folha de cálculo como Arquivos PDF e envie-a como anexo com código VBA
Guarde uma folha de cálculo como Arquivos PDF e envie-a como anexo com código VBA
Para acelerar a exportação de uma folha de cálculo do Excel para PDF e o seu envio por e-mail através do Outlook, utilize o seguinte código VBA. Esta solução é ideal para quem precisa enviar regularmente relatórios personalizados, faturas ou outras extrações de dados diretamente do Excel, automatizando por completo os passos de gravação e envio.
Antes de aplicar este método, certifique-se de que o Microsoft Outlook está instalado e configurado como cliente de correio predefinido. O código funciona melhor com as macros ativadas no seu ambiente do Excel.
1. Abra a folha de cálculo que pretende guardar e enviar como PDF. Prima Alt + F11 em simultâneo para abrir o editor do Microsoft Visual Basic para Aplicações (VBA).
2. Na janela do VBA, aceda ao menu e clique em Inserir > Módulo. Isto criará um novo módulo de código. Depois, copie e cole o seguinte código VBA na janela Código do módulo.
Código VBA: Guarde uma folha de cálculo como Arquivos PDF e envie-a como anexo
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub3. Após colar o código, prima F5 ou clique em Executar no editor do VBA para executar a macro. Aparecerá uma caixa de diálogo para seleção da pasta. Escolha a pasta de destino onde os ficheiros PDF deverão ser guardados e, em seguida, clique em OK para continuar.
Notas e Dicas Práticas:
4. Assim que o processo terminar, será aberta uma nova janela de e-mail do Outlook com o arquivo PDF anexado. A linha de assunto é preenchida automaticamente com o nome da folha de cálculo seguido de «.pdf»; pode editar o conteúdo do e-mail, adicionar destinatários e enviar conforme necessário — reduzindo erros e aumentando a eficiência em comparação com a anexação manual.
Esta abordagem baseada em VBA revela-se especialmente eficiente quando precisa regularmente de distribuir folhas de cálculo finalizadas como anexos PDF, eliminando passos manuais repetitivos. As suas limitações incluem a dependência do Outlook, a incapacidade de processar múltiplas folhas em simultâneo e a necessidade de ativar macros. Para fluxos de trabalho mais complexos — como o envio de várias folhas de uma só vez ou automação adicional — considere recorrer a extras do Excel ou a funcionalidades incorporadas.
Solução alternativa: Se as macros VBA não forem adequadas ao seu ambiente — por exemplo, quando as macros estão restringidas —, pode utilizar manualmente a função incorporada do Excel Exportar ou Guardar Como para guardar a sua folha de cálculo como PDF e, depois, anexá-la e enviá-la no Outlook. Este método, embora exija mais passos, está universalmente disponível sem necessidade de permissões especiais ou conhecimentos de programação.
Guarde facilmente uma folha de cálculo ou várias folhas de cálculo como ficheiros Arquivos PDF separados de uma só vez:
A funcionalidade Separar Livro do Kutools para Excel permite-lhe guardar facilmente uma ou várias folhas de cálculo como ficheiros PDF separados, tudo de uma só vez — tal como demonstrado abaixo.Transfira e experimente já! (teste gratuito de 30 dias))
Artigos relacionados:
- Como guardar um ficheiro do Excel com marca temporal no nome?
- Como utilizar a função Guardar Como para substituir automaticamente um ficheiro existente no Excel?
- Como guardar ou exportar várias ou todas as folhas para ficheiros CSV ou de texto separados no Excel?
- Como desativar ou impedir que as opções Guardar e Guardar Como fiquem disponíveis no Excel?
- Como desativar a opção Guardar do livro de trabalho, deixando disponível apenas Guardar Como no Excel?
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