Excel VisualBasic Script

Sub RefreshXML()
          ThisWorkbook.XmlMaps("EmployeeSales_Map").DataBinding.Refresh
     End Sub