導出爲PDF並提示用戶輸入要保存的文件夾路徑和文件名

Question

我無法弄清楚如何提示用戶輸入文件夾路徑和保存名。以下是我已經開始工作的代碼。

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 

感謝您的幫助！

Answer 1

下面的代碼將提示用戶選擇一個位置和文件名來保存pdf文件。

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