Salvar .PDF

Question

Pessoal,

Como salvo um arquivo em .pdf de uma determinada planilha do excel nos arquivos temporários para enviá-los por e-mail?

Answer 1

Olá,

Verifique o link: http://ambienteoffice.com.br/blog/ambientexl/#mailxl

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 2

Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem

'Para:
    .To = [e-mail]
'Com cópia para:
    .Cc = [e-mail]
'Assunto:
    .Subject = "Resultados"
'Corpo do e-mail:
    '.Body = 
'Anexa o arquivo
    .Attachments.Add ActiveWorkbook.Path & "\Feedback Mensal de Resultados" & " - " & Application.WorksheetFunction.Proper((MonthName(Month(Date)))) & " - " & Range("D8") & ".pdf"
'Abre a janela do e-mail para editálo:
    .Display
    
'.Send
'MsgBox "Finalizado com sucesso.", vbInformation, "Confirmação"
End Sub

Sub SalvarPDF()

'Cria o arquivo em .PDF
Dim nArquivo As String

'sPasta: Pasta que será salvo o arquivo e gera o nome do arquivo
'nArquivo: Nome que será salvo o arquivo .pdf:
sPasta = ThisWorkbook.Path
nArquivo = sPasta & "\" & "Feedback Mensal de Resultados" & " - " & Application.WorksheetFunction.Proper((MonthName(Month(Date)))) & " - " & Range("D8") & ".pdf"
'Debug.Print nArquivo
Sheets("Front").Range("A1:V105").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nArquivo, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

'Após salvar o arquivo em .PDF, inicia a macro para enviar via e-mail
Call eEmail

End Sub

Consegui o seguinte código para salvar o arquivo e enviar via e-mail. Mas minha dúvida é, para anexar, preciso salvar em alguma pasta do computador, porém, gostaria de anexar sem salvar o arquivo no PC.

Answer 3

Salve o arquivo em alguma pasta do computador e depois exclua o arquivo usando a instrução Kill.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br