Menuへ
ファイル保存ダイアログ

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


コマンドボタン　クリックイベント
Private Sub CommandButton1_Click()
    CommandButton1.Caption = GetSaveFileName
End Sub

標準モジュールコード
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

ファイル保存ダイアログ

実行結果
ファイル名が表示された



Topへ　Homeへ