Microsoft Office Forums - View Single Post

YounesB3 · 01-15-2014, 01:11 PM

Quote:

Originally Posted by BobBridges

Try this:

Code:

Sub Test()
  Sheets("Temp").Select
  URL = "URL;http://www.metacritic.com/search/all/results?cats[game]=1" & Range("L4").Value
  MsgBox URL
  With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("M5"))
    'blah, blah, blah
    End With
  End Sub

This won't make it work any better; it'll just tell you what URL it's being asked to look up, in case there's an error in it somewhere. If the URL still looks right to you, try cutting and pasting it into a browser and see whether it goes anywhere; maybe that'll reveal that the URL isn't valid. That's my suspicion, anyway.

Nope it works :

http://www.metacritic.com/search/all/results?cats[game]=1

Range("L4").Value

L4 value is : &date_range_from=09-31-2013&date_range_to=12-31-2013&score_range_from=60&search_type=advanced

If you combine the 2, it works.