導出到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