none
Salvar PDF em VBA RRS feed

  • Pergunta

  • 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

    segunda-feira, 8 de maio de 2017 00:21

Todas as Respostas

  • Qual erro reportado?

    Qual a versão do excel? tem suporte para salvar pdf?

    Quando vc executa salvar como.. reparou se tem a opção PDF?

    segunda-feira, 15 de maio de 2017 20:20