Notifications
Clear all

Ajuda Salvar e Anexar PDF

2 Posts
1 Usuários
0 Reactions
787 Visualizações
(@romanholi)
Posts: 0
New Member
Topic starter
 

Pessoal, porque o código abaixo não sava meu pdf na pasta onde está a planilha?

O Thisworkbook não é para isso?

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook & "Relatorio_Atrasados.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

E na linha abaixo, como eu faço para buscar o PDF que está na pasta do arquivo:

    .Save
    myAttachments.Add "C:UsersfromanholiDesktopAção e ReaçãoRelatorio_Atrasados.pdf"
    .Send

Ou seja, primeiro eu gero um pdf salvando na pasta do arquivo do excel e depois ele pega esse arquivo e anexa no e-mail.

Só que eu não quero colocar o caminho como no exemplo acima, quero que entenda que está na pasta da planilha!

Poderiam me ajudar!
Para vocês certamente muito simples!

Aguardo
Obrigado

 
Postado : 09/12/2016 6:36 am
(@romanholi)
Posts: 0
New Member
Topic starter
 

Resolvi Galera!

Era uma o problema!]

Pasta = ThisWorkbook.Path

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pasta & "Relatorio_Atrasados.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 
Postado : 09/12/2016 6:49 am