Multiple Website Import

[Ryan]

I have a sheet populated with web address URLs in column A. I would
like to loop a macro that imports multiple URLs.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://examplewebsite.com" _
, Destination:=Range("$A$1"))

Any way to make the "URL; call on a variable or cell address from
another sheet where I can loop through and have all websites import
rather than copy and pasting a rediculous amount of times?

Thanks,

 

[Don Guillett]

for i = 1 to cells(rows.count,1).end(xlup).row
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" & cells(i,1) & ".com" _
, Destination:=Range("$A$1"))
next i

 

[Ryan]

for i = 1 to cells(rows.count,1).end(xlup).row
 With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://" & cells(i,1) & ".com" _
        , Destination:=Range("$A$1"))
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software








- Show quoted text -

Thanks, I actually worked through what you gave me and got it to
work. Nice job, thanks a lot.

 

[Don Guillett]

Let me see your code. Perhaps it could be as simple as something like....
for i = 1 to 5
Sheet1,A" & i & " Sheet1,B" & i & " & _
"softwaredistribution.example.org/sysstcmanager/stcview.aspx?
server=SERVER1 stcview.aspx?server=SERVER" & i
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

for i = 1 to cells(rows.count,1).end(xlup).row
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" & cells(i,1) & ".com" _
, Destination:=Range("$A$1"))
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software








- Show quoted text -

Thanks, I actually worked through what you gave me and got it to
work. Nice job, thanks a lot.