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