VBA 名前を付けて保存ダイアログ表示方法 - Excel ホームページ制作 | 墨田区

VBA 名前を付けて保存ダイアログ表示方法 – Excel

LINEで送る
Pocket

VBAで「名前を付けて保存」ダイアログを表示する方法をご紹介します。

「名前を付けて保存」ダイアログとは、下図のようなファイル名を指定して保存するダイアログのことです。
名前を付けて保存ダイアログ
これを VBA で表示する方法をご紹介します。
※環境は Excel 2010 で検証しました。




【PR】マジか?!「アレ」してるLINEスタンプっていったい・・・


「名前を付けて保存」ダイアログ表示方法

表示するには Application.GetSaveAsFilename メソッドを利用します。


GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)


パラメーター

名前必須データ型説明
InitialFilename×Variant既定値として表示するファイル名を指定します。この引数を省略すると、作業中のブックの名前が使われます。
FileFilter×Variantファイルの候補を指定する文字列 (ファイル フィルター文字列) を指定します。
FilterIndex×Variant引数 FileFilter で指定したファイル フィルター文字列の中で、1 から何番目の値を既定値とするかを指定します。この引数を省略するか、ファイル フィルター文字列の数より大きい数値を指定すると、最初のファイル フィルター文字列が既定値となります。
Title×Variantダイアログ ボックスのタイトルを指定します。この引数を省略すると既定のタイトルが使用されます。
ButtonText×VariantMacintosh でのみ指定できます


戻り値

バリアント型 (Variant)


サンプルソース

Sub Macro1()
    Dim FileName As Variant
    FileName = _
        Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Name _
           , FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm" _
           , FilterIndex:=1 _
           , Title:="保存先の指定" _
           )
    If FileName <> False Then
       Application.DisplayAlerts = False
       ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal
       Application.DisplayAlerts = True
    End If
End Sub

VBA で「名前を付けて保存」ダイアログ表示するということは、ファイルの種類は「マクロ有効ブック」ということになります。
そのため FileFilter パラメータに *.xlsm を指定しています。

戻り値は、ダイアログの「保存」ボタンを押下すれば指定したファイルのフルパスが返り、「キャンセル」ボタンを押下すれば False が返ります。


参考サイト

Application.GetSaveAsFilename メソッド (Excel)


おつかれさまでした。

LINEで送る
Pocket

この記事がお役に立ちましたら シェア をお願いいたします。

Office / VBAの勉強が思うように進まないときは!

Office / VBAの勉強が思うように進まないのであれば、プロに直接質問ができる プログラミングスクール を検討してみてはいかがでしょうか?プログラミングスクールに申し込めば、短期間で一定のスキルを身に着けることができます!

Office / VBAコースあり!未経験者にウケてる KENスクール パソコンスクール・パソコン教室 【KENスクール】個別指導のWeb-DTP・OA・IT PCスクール

理解度や学習ペースに合わせて、一人ひとりが納得して前進できる授業を提供してくれるのが特徴です。特に課題製作は現場さながらで、実務に即したものとなっていますので短期でのスキルアップが望めます。自宅学習のサポートも充実していて、授業内容をいつでもビデオで振り返ることができるのもうれしいですね。好きな時間に好きな場所で、無理なくスケジューリングできるので、仕事の忙しい方でも柔軟に学ぶことができますよ。

更にさらに、なんと 就職サポート をしてくれるというのですから驚きです!!

履歴書の書き方から面接指導、求人の紹介など、具体的な就職先まで提案してくれるんです!私も「もっと早く出会いたかったなぁー、こんなスクール」・・・って思っちゃいました^^

東京・神奈川・愛知・大阪を営業エリアとされています。
まずは気軽に 無料体験予約 に申し込んでみるのもアリですよ。


コメントを残す

お名前 (必須)
メールアドレス
(アドレスは公開されません)

コメント(必須)

Trackback URL