none
Salvar pdf com vínculo (excel) RRS feed

  • Pergunta

  • Bom dia,
    Preciso salvar um arquivo de excel em formato pdf com o nome específico de uma célula semelhante ao código abaixo (porém o código abaixo salva o arquivo em xls, gostaria de salvar em pdf).
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\" & Range("a1").Value & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False

    O que eu já tentei e não funcionou:

        ChDir _
           "C:\"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ""C:\" & Range("a1").Value & ".pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True

    **Se eu utilizo ao inves do vinculo apenas um nome qualquer o arquivo salva como pdf normalmente.

    Obs. Excel 2010 (tem a opção de salvar com pdf - nao precisa de impressora virtual)

    terça-feira, 25 de setembro de 2012 14:12

Respostas

  • Achei em outro forum uma solução

    Option Explicit

    Sub Salvando()
    Dim Nome As String
    Dim SDate As String
    Dim MyLocal As String
    MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\"
    Nome = Range("Q3").Value
    SDate = Now
    If Nome <> vbNullString Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
    Else
    MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
    End If
    End Sub

    terça-feira, 25 de setembro de 2012 14:35