Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Escolher Local para...
 
Notifications
Clear all

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,896 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 :) .

Verifique se era isso que queria..

Qualquer coisa estamos aqui para ajudá-lo

Aguardando sua resposta e seu Feed Back (é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha" :D

LaerteB :D

 
Postado : 14/10/2019 8:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico