Exportieren nach PDF und Eingabeaufforderung für Ordnerpfad und Dateiname zum Speichern

Question

Ich kann nicht herausfinden, wie Sie den Benutzer nach einem Ordnerpfad und dem Speichernamen fragen. Unten ist der Code, den ich zur Arbeit bekommen habe.

Sub PrintToPDF 

ThisWorkbook.Sheets("Sheet 1","Sheet 3").Select 

ActiveSheet.ExportAsFixedFormat _ 
Type:=xlTypePdf, _ 
Filename:="test.pdf", 
Quality:=xlQualityStandard, _ 
IncludeDocumentProperties:=True, _ 
IgnorePrintAreas:=False, _ 
OpenAfterPublish:=True 

Sheets("Sheet 1").Select 

End Sub 

Danke für die Hilfe!

Answer 1

Der folgende Code fordert den Benutzer auf, einen Speicherort und einen Dateinamen zum Speichern der PDF-Datei zu wählen.

Dim file_name As Variant 
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf") 

If file_name <> False Then 
    ActiveWorkbook.SaveAs Filename:=file_name 
    MsgBox "File Saved!" 
End If