Sub saveFile()
Dim fname As String
fname = Application.GetSaveAsFilename(InitialFileName:="user", FileFilter:="XMLファイル (*.xml),*.xml")
Debug.Print fname
End Sub