Excel Macro Exel para salvar em PDF na mesma pasta

[Nathanael Lacerda]

Eu tenho um projeto no excel de controle de notas de uma escola. Fiz uma macro para salvar o PDF na mesma pasta do arquivo, e o nome que está na célula E280 + Relatório 2º Bimestre. Porém quando gera o PDF ele é salvo nos meus documentos e não na pasta do arquivo. O código que usei foi esse:

 

Dim seuPdfCaminho As String
    Dim seuPdfNome As String
  
    seuPdfCaminho = VBA.Environ(Application.DefaultFilePath)
    seuPdfNome = Range("E280") & " " & "- Relatório 2º Bimestre.pdf"
  
    ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    seuPdfCaminho & seuPdfNome, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

 

Alguém pode ajudar?

[Visitante]

substitua esta linha ~~~> seuPdfCaminho = VBA.Environ(Application.DefaultFilePath)

 

por esta ~~~> seuPdfCaminho = ThisWorkbook.Path & "\"

[OrlandoSouza]

Substitua todo o código acima pela linha de comando abaixo, no final e antes do End Sub, no editor do VBAProject de sua planilha:

 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & Range("AA1").Value & "RESULTADO EM PDF" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

Esse comando está também configurado para abrir o resultado em PDF.

 

Um abraço!

Orlando Souza