Save as

[billandrew]

Evening

Looking to remove the .xlsx from the export to PDF in the below script.

Thanks guys

Sub PDF()Dim wb As String
Dim filepath As String
wb = ActiveWorkbook.Name
filepath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & wb & ".pdf"


ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=filepath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

 

[Logit]

.

Option Explicit


Sub Export_Worksheet_to_PDF()


    Dim mypath As String, fname As String
    mypath = Environ("USERPROFILE") & "\Desktop\"
    fname = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    ActiveSheet.ExportAsFixedFormat 0, mypath & "\" & fname
   
End Sub

 

[billandrew]

Thank you, it does save to Desktop, however the workbook name is saved as the worksheet name.

 

[Logit]

.
Is this what you were seeking ?

Option Explicit


Sub Export_Worksheet_to_PDF()


    Dim mypath As String, fname As String
    mypath = Environ("USERPROFILE") & "\Desktop\"
    fname = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveSheet.Name)
    ActiveSheet.ExportAsFixedFormat 0, mypath & "\" & fname
   
End Sub

 

[billandrew]

Yes sir Thank You very much

 

[Logit]

You are welcome.