Boa noite,
Alguém pode ajudar tenho este código em VBA para salvar em PDF e não funciona!
Qual o erro?
A ideia foi colocar nos itens D13 E13 G13 os valores que correspondem a uma data porque as datas são strings e assim ficava com a data original do ficheiro e não a hora da execução do PDF.
o ficheiro está ligado a uma base de dados a data vai buscar os valores em Procv, por isso com as formulas =Dia() =Mês() e =Ano() criei nas celulas D13 E13 e G13 números que fazem a data com & na macro abaixo e formatei como texto, mesmo assim
não funciona.
Agradeço a vossa ajuda Muito Obrigado.
Sub SalvaPDF()
Dim Pasta As String, MyPath As String
MyPath = "C:\Temp\"
Pasta = ActiveSheet.Range("C6").Value
arq = Pasta & "_" & ActiveSheet.Range("D13").Value & "-" & ActiveSheet.Range("E13").Value & "-" & ActiveSheet.Range("G13").Value & ".pdf"
If (Dir(MyPath & "\" & Pasta, vbDirectory) = "") Then
'
MkDir (MyPath & Pasta)
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & "\" & Pasta & "\" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
