Macro para exportar para PDF na mesma pasta

Question

Preciso criar uma macro para exportar uma planilha para PDF, porém na mesma pasta onde se encontra a planilha. Preciso que o PDF tenha o nome contigo na célula H3 e que o intervalo exportado seja A2:F97. Tentei o seguinte código:

Sub gerarpdf()

Dim intervalo As Range

Set intervalo = ActiveSheet.Range("A2:F97")

intervalo.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Range("H3").Value, _

OpenAfterPublish:=True

End Sub

O código funciona, porém gera o PDF na pasta padrão. Como eu faço para gerar na mesma pasta da planilha?

Desde já agradeço a quem puder ajudar.

Answer 1

Olá , tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria e farei o possível para ajudar.

Localizei um post do Fórum MSDN que pode te ajudar, acesse: https://social.msdn.microsoft.com/Forums/pt-BR/....

Caso não ajude, para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI para tratar está questão.

https://social.msdn.microsoft.com/Forums/pt-BR/....

Para criar uma nova pergunta no fórum MSDN, acesse:

https://social.msdn.microsoft.com/Forums/pt-BR/....

Basta logar com a sua conta Microsoft.

Espero ter ajudado, até mais!