関数・メソッド

ダイアログボックスを表示して保存する【FileDialogプロパティ】【ExcelVBA】

FileDialogのmsoFileDialogSaveAs

ダイアログボックスを表示するFileDialogプロパティ。
fileDialogType の msoFileDialogSaveAs を指定すると、ファイルを保存することができます。

※FileDialogプロパティの使い方はこちらで説明しています。

 

サンプルコード

Public Sub Sample()
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "新しい名前を付けて保存"   'ダイアログボックスのタイトル
        .InitialFileName = "新しい名前"    '入力フォームに初期表示する文字列

        If .Show = True Then    'ダイアログボックスを表示
           .Execute
            '保存されたときの処理
            Debug.Print "ファイルが保存されました。"
        Else
            'キャンセルされたときの処理
            Debug.Print "キャンセルされました。"
        End If       
    End With
End Sub

 

注意点

  • .Execute までに、保存したいブックをアクティブにしてください。
  • GetSaveAsFilenameメソッドも同じような機能を持ちますが、
    こちらのmsoFileDialogSaveAsを使うと別途SaveAsメソッドを使用する必要はありません。

関連記事

コメント