ファイル保存ダイアログ : Excel(エクセル)

ファイル選択ダイアログとペアでよく使うExcel VBAのTipsです。通常の「名前を付けて保存」になります。拡張子は fileFilter で指定できます。"エクセルファイル (*.xls), *.xls"のように文法がありますので注意が必要です。ダイアログで「OK」ボタンがクリックされた場合は、そのパス名+ファイル名が戻ります。「キャンセル」ボタンがクリックされるとなぜか「"False"」の文字列が戻ります。

Excel Tipsメニューに戻る

スポンサーリンク





コマンドボタン クリックイベント

Private Sub CommandButton1_Click()
    CommandButton1.Caption = GetSaveFileName
End Sub

ファイル保存ダイアログExcel標準モジュールコード

Public Function GetSaveFileName() As String
    Dim sfile As String

    sfile = Application.GetSaveAsFilename(fileFilter:="エクセルファイル (*.xls), *.xls")
    If sfile = "False" Then
        GetSaveFileName = ""
    Else
        GetSaveFileName = sfile
    End If
End Function

ファイル保存ダイアログ

スポンサーリンク





Excel実行結果

ファイル名が表示された

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved