Escolher Local para Salvar como PDF

2024 - VBA & Macros

Post Recente por LaerteB 5 anos atrás

2 Posts

2 Usuários

0 Reactions

1,877 Visualizações

RSS

JonatanR

(@jonatanr)

Posts: 13

Active Member

Topic starter

Boa Tarde Galera,

Estou com um código aqui para salvar a pasta ativa como PDF.

Porém nesse código o local onde será salvo já fica definido no código. Queria que abrisse uma especie de FileDialog para que por meio dele eu ecolhesse o Local.

Segue o código:

Sub SalvarPDF()

ChDir "C:Usersjonatan.costaDesktop"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("B2"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Se puderem ajudar. A única mudança é só quanto a selecionar mesmo o local onde salvar, o nome do arquivo seria como está no código mesmo.

Grato.

Postado : 14/10/2019 2:15 pm

LaerteB

(@laerteb)

Posts: 67

Trusted Member

Boa noite, JonatanR

Estou passando para ti o código modificado que efetuará o que solicitou, conforme abaixo:

Sub SalvarPDF()

 Dim pas

 pas = Application.GetSaveAsFilename(InitialFileName:= Range("B2"), _
         FileFilter:="PDF files, *.pdf", _
         Title:="Save PDF File")
         
    If TypeName(pas) = "Boolean" Then
     Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=pas, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        End If

End Sub

Este exemplo de código (e o arquivo exemplo), eu já tinha passado e respondido no Tópico "Botão "salvar em pdf" com usuário determinando diretório"
em 26 de novembro de 2018 deste mesmo Fórum... o arquivo exemplo já não se encontra mais anexado no Tópico, pela razão que o Fórum
está passando por manutenção, estamos aguardando a normalização para um retorno dos anexos .