Excel VisualBasic Script

Sub RefreshData1()
   ThisWorkbook.UpdateLink Name:="E:\your.xls", Type:=xlExcelLinks
End Sub