在VBAmacros中保存为位置的对话框

我试图导出一个文件作为一个更大的macros的一部分PDF的PDF。 不过，我希望用户可以select将文件保存到他或她所select的目录中，并且我认为这对于浏览对话框来说是最简单的。 但是，我不知道如何拉起来。 目前，我的代码如下所示。

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\<filepath>\11.08E PT5 Executive Summary - v3.2.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=1, To:=3, OpenAfterPublish:=True 

我想用对话框的结果replace。

Answer 1

Application.GetSaveAsFilename 。

 dim v as variant v = Application.GetSaveAsFilename("11.08E PT5 Executive Summary - v3.2.pdf", "PDF Files (*.pdf), *.pdf") if vartype(v) = vbString then ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=v, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, From:=1, To:=3, OpenAfterPublish:=True end if