Kaliton

Achei em outro forum a 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

Olá, Eu não sei se devo abrir outro tópico ou se devo responder neste, já que tenho uma dúvida semelhante a esta questão. Gostaria de saber como utilizar uma macro para salvar em pdf com vínculo. (Seria bem semelhante ao realizado aqui, porém ao invés de xls gostaria de salvar em pdf). Tentei trocar somente a extensão, mas não consegui. Usei o código de salvamento em pdf com a inserção do " & Range("a1").Value & ", mas também não funcionou como abaixo: ChDir _ "C:\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\" & Range("a1").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Obs: excel 2010.