VBAでPDFを保存する

Excel2013です。VBAでPDFで保存するコードを書きたいのですが、通常の名前をつけて保存のように保存先とファイル名をその都度変更できるウィンドウを出したいのですが、どのようにすればいいのでしょうか？保存先とファイル名をあらかじめ指定する方法はネット検索でヒットするのですが、そうでない方法が探せません。

以下は現在のコードです。
Sub PDF保存()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\\xxx.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

No.1 ベストアンサー 回答者： nishi6 回答日時： 2014/07/21 10:25

GetSaveAsFilenameメソッドでできるでしょう。

ファイル指定ダイアログの表示
http://www.officepro.jp/excelvba/book_new/index1 …

この回答へのお礼

ご回答ありがとうございます。無事に目的のコードにたどり着くことができました。

以下私が書いたコードです。他の方の参考になればと思います。
掃き出したいシートに名前がついている場合最後から2行目の●●●●を書き換えてください。そうでない場合はSheets(1)と書けばいいと思います。

Sub PDF保存()
Dim fName As String
'保存ファイル名及び保存場所の設定
fName = Application.GetSaveAsFilename(, "PDFファイル,*.pdf")
'保存操作
Sheets("●●●●").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName
End Sub

お礼日時：2014/07/21 11:05