VBA to save file as PDf eliminate the save as pop-up

[lbradbury]

Hi, I have a code that runs fine, I just would like to eliminate the pop-up save as pop-up. The code is below.

Private Sub SaveAs()
'This macro opens the SaveAs option with the defult file path "you have to set this file path below" coverts the whole sheet into .pdf file format
'And opens the .pdf to view <-- you can disable the view after covert option with lower code: OpenAfterPublish:=False

    pdfName = ActiveSheet.Range("E21")
    ChDir "I:\MSI-Projects\Global Shop Implementation\Time\" 'This is where youo set a defult file path.
    fileSaveName = Application.GetSaveAsFilename(pdfName, _
    fileFilter:="PDF Files (*.pdf), *.pdf")
    If fileSaveName <> False Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName _
        , Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
     
     
    End If
    MsgBox "File Saved to" & " " & fileSaveName
End Sub

 

[Logit]

.

Try this :

Option Explicit

Sub SavePDF()

    With ActiveSheet
               
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:="I:\MSI-Projects\Global Shop Implementation\Time\" & Range("E21").Value & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
       
      End With
   
End Sub

 

[Boorin]

Replying to your question from "Macro to save worksheet as PDF." thread. I've come up with a completely different code and it worked great much much easier and simplier, no pop up and the location is exactly where I wanted to save each time. Please try below code. Hope this helps!

"
Sub Macro1()
'
' Macro1 Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
""C:\your folder destination here"" & Worksheets(""tab name to save as PDF"").Range(""the cell you want as part of your name"") & "" - "" & ActiveSheet.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub