Excel VisualBasic Script

Sub ExportToXmlFile()
         ActiveWorkbook.XmlMaps("EmployeeSales_Map").Export URL:=ThisWorkbook.Path & "\Exported.xml"
     End Sub