导出为PDF并提示用户将文件夹path和文件名保存

我不知道如何提示用户的文件夹path和保存名称。 下面是我得到的代码工作。

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

下面的代码将提示用户select一个位置和文件名来保存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