Thread: [Solved] Extract data from web - Take a long time
View Single Post
 
Old 06-28-2014, 05:54 PM
charlesdh charlesdh is offline Windows 7 32bit Office 2010 32bit
Expert
  
Join Date: Apr 2014
Location: Mississippi
Posts: 382
charlesdh is on a distinguished road
Default
See if this works.
Code:
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.zerozero.pt/edition.php?id_edicao=69891&fase=70218&jornada_in=" & Valor & "", Destination:=Range( _
        "$DO$13"))
        .Name = "edition.php?id_edicao=69891&fase=70218&jornada_in=" & Valor & ""
Reply With Quote