Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
994
Visualizações
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
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
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