VBA to download .xlsx link

[TtheSkyscraper]

I would like to click a macro button and download an xlsx file as new sheets on my current excel file

The link: http://us.spindices.com/documents/additional-material/sp-500-eps-est.xlsx?force_download=true

It has multiple sheets and I would like for the vba to add those sheets onto my current file. I've researched/tried many things to no avail. There is no login information needed. Thank you.

 

[John_w]

In a new workbook (Book1) I just recorded a macro to open that link from Excel and copy the sheets to Book1.

Sub Macro1()
    Workbooks.Open Filename:= _
        "http://us.spindices.com/documents/additional-material/sp-500-eps-est.xlsx?force_download=true"
    Application.WindowState = xlMinimized
    Windows("Book1").Activate
    Windows("sp-500-eps-est.xlsx").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets(Array("ESTIMATES&PEs", "SECTOR EPS", "QUARTERLY DATA", "ISSUES", _
        "BEATS AND SHARES", "SALES", "FORWARD SCHEDULE")).Select
    Sheets("FORWARD SCHEDULE").Activate
    Sheets(Array("ESTIMATES&PEs", "SECTOR EPS", "QUARTERLY DATA", "ISSUES", _
        "BEATS AND SHARES", "SALES", "FORWARD SCHEDULE")).Copy Before:=Workbooks( _
        "Book1").Sheets(4)
End Sub

The code can be easily improved.