Excel VisualBasic Script

Sub ImportXmlFromFile()
     ThisWorkbook.XmlMaps("EmployeeSales_Map").Import(ThisWorkbook.Path & "\EmployeeSales.xml")
     End Sub