Here is some codeSub test()Dim webBk As WorkbookSet webBk = Workbooks.Open("http://www.nseindia.com/content/fo/fii_stats.xls")End SubTie this code to a button and you are thru.