MACRO GUARDAR PDF
Enviado: 08 Jun 2018 às 16:48
por 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
Re: MACRO GUARDAR PDF
Enviado: 09 Jun 2018 às 04:38
por gfranco
Bom dia.
Veja se atende.
Rode a macro tendo a planilha ativa no momento aquela que deseja salvar como PDF.
Código: Selecionar todosOption 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
Re: MACRO GUARDAR PDF (RESOVLIDO)
Enviado: 09 Jun 2018 às 20:39
por 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