DialogSaveFile

Sub saveFile()

Dim fname As String

fname = Application.GetSaveAsFilename(InitialFileName:="user", FileFilter:="XMLファイル (*.xml),*.xml")

Debug.Print fname

End Sub