ダイアログボックスを表示して保存する【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メソッドを使用する必要はありません。

関連記事

• ダイアログボックスを設定し、指定したファイルを開く【FileDialogプロパティ】
• ダイアログボックスを表示して保存する【GetSaveAsFilenameメソッド】
• ダイアログボックスを表示して選択したファイルを開く【GetOpenFilenameメソッド】
• ブックに名前をつけて保存する【SaveAsメソッド】