Hi,
Iam using the following code to Download a excel file from web and copy and paste the contents to the worksheet.
My Issue is every time it opens a new worksheet , instead it needs to paste in the existing worksheet.
Thanks in advance
SAthis
Option Explicit
Public Sub OpenWebXLS()
Dim wkbMyWorkbook As Workbook
Dim wkbWebWorkbook As Workbook
Dim wksWebWorkSheet As Worksheet
Set wkbMyWorkbook = ActiveWorkbook
Workbooks.Open ("http://www.nseindia.com/content/fo/fii_stats_11-Aug-2015.xls")
Set wkbWebWorkbook = ActiveWorkbook
Set wksWebWorkSheet = ActiveSheet
wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count)
'wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "ExistingSheet"
wkbMyWorkbook.Activate
wkbWebWorkbook.Close
End Sub
Bookmarks