Диалоговое окно «Сохранить как» в VBA Macro

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