Este fórum está sendo desativado

[FilipeRamos]

boa tarde


eu neccessitava de uma macro que me guarde o documento de excel em pdf usando o nome inicial do documento ou seja se o documento em excel se chama "filipe" queria que guarda esse mesmo documento em pdf com esse mesmo nome.



Cumprimentos
Filipe ramos

[gfranco]

Bom dia.
Veja se atende.
Rode a macro tendo a planilha ativa no momento aquela que deseja salvar como PDF.

Código: Selecionar todos

Option Explicit

Sub teste()
On Error GoTo erroPDF
Dim nome() As String
Dim caminho As String


caminho = ThisWorkbook.Path
caminho = caminho & "\"

nome = VBA.Split(ThisWorkbook.Name, ".")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=caminho & nome(0) & ".pdf"


Exit Sub
erroPDF:
MsgBox "Um erro ocorreu, verifique !"

End Sub

[FilipeRamos]

RESOLVI ASSIM


Sub Macro1()
'
' Macro1 Macro
'
' Atalho do teclado: Ctrl+q
'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\Arquivo de ...\Certificados\Certificados Emitidos\1-PARA ENVIAR PARA RT\" & ActiveWorkbook.Name & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub