vba - VBA 宏中另存为位置的对话框

Question

我正在尝试将文件导出为 PDF 作为更大宏的一部分。但是，我希望用户可以选择将文件保存到他或她选择的目录中，我认为这对于浏览对话框来说是最简单的。但是，我无法弄清楚如何拉起一个。目前，我的代码如下所示。

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

我想用对话框的结果替换。

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