VBA Export XmlMap and navigate where to save as.

[Addictions]

Hello,

I am trying to figure out how to export XmlMap with a prompt to navigate where to save as.
Currently I have a code which exports XmlMap but to the file path and I would like to navigate where to save it as.
Can you help please?.

Sub ExportAsXMLData()
 Dim objMapToExport As XmlMap
 
 Set objMapToExport = ActiveWorkbook.XmlMaps("Customer")
 
 If objMapToExport.IsExportable Then
 
 ActiveWorkbook.SaveAsXMLData "Customer Data.xml", objMapToExport
 Else
 MsgBox "Cannot use " & objMapToExport.Name & _
 "to export the contents of the worksheet to XML data."
 End If
End Sub

 

[Addictions]

I can only find a way to add a hard path in to the code. I am sure there must be a way for a prompt where to save it.

 

[John_w]

Replace the Save line with:

        Dim XMLfullName As Variant
        XMLfullName = Application.GetSaveAsFilename(InitialFileName:="Customer Data.xml", FileFilter:="XML Files (*.xml), *.xml", Title:="Save XML Data")
        
        If XMLfullName <> False Then
            ActiveWorkbook.SaveAsXMLData XMLfullName, objMapToExport
            MsgBox "Saved " & XMLfullName
        Else
            MsgBox "User cancelled - not saved"
        End If

 

[mrlionsss]

Haha, happens to all of us.

Works amazing! You are a genius. Thanks for the help. Much appreciated!