Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salva como PDF, nom...
 
Notifications
Clear all

Salva como PDF, nomeando o arquivo com o valor da célula

 
2024 - VBA & Macros
Post Recente por Renatoddd 8 anos atrás
3 Posts
2 Usuários
0 Reactions
979 Visualizações
RSS
 Renatoddd
(@renatoddd)
Posts: 70
Trusted Member
Topic starter
 

Amigos, boa noite. Mais uma vez recorro à vcs.

Preciso de um código VBA, que salve a planilha como PDF, num determinado endereço na rede, e nomeie o arquivo com o valor da célula A1.

O endereço pode ser por exemplo D:Arquivostrabalho

Peguei o código abaixo numa postagem na internet. Por um dia funcionou perfeitamente mas, no dia seguinte, o código passou a salvar o arquivo num outro endereço.No caso, passou a salvar nesta pasta C:UsersusuarioDocuments

Sub EXPORTAR_UM()
ChDir "D:Arquivostrabalho"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A1"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Como faço para resolver o problema ?

Muito obrigado a todos

 
Postado : 27/04/2017 7:53 pm
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite,

Teste:

Sub SalvarEmPDF()
    
    Dim Caminho     As String
    Dim Nome        As String
    
    'Mude aqui para o  seu caminho
    Caminho = ThisWorkbook.Path
    
    'O nome é o que está na célula A1
    Nome = Range("A1")
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Caminho & "" & Nome, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
End Sub

att,

 
Postado : 27/04/2017 8:34 pm
 Renatoddd
(@renatoddd)
Posts: 70
Trusted Member
Topic starter
 

vcs são incríveis.

Muito, muito obrigado Bruno. Perfeito mesmo cara.

resolveu um mega problema.

Obrigadooooooooooooooo

 
Postado : 28/04/2017 9:04 am
Forum Jump:
  Tópico Anterior
Próximo Tópico