M
Mike NG
From XL in Office 2000
I am trying to do something along the lines of
Dim XMLObj As XMLHTTP30
Dim sResp As String
Set XMLObj = New XMLHTTP30
With XMLObj
'.Open "GET",
"http://search.ebay.co.uk/abacus_W0QQamp;sspagenameZhQ3ahQ3aadvsearchQ3aU
kQQcatrefZC5QQfbdZ1QQfromZR6QQnojsprZyQQpfidZ0QQsacategoryZQ2d1QQsacurren
cyZ0QQsalocatedincountryZ3QQsaslopZ1QQsocolumnlayoutZ3QQsofocusZbsQQsopos
talZM25Q203HXQQsorecordsperpageZ50QQsosortorderZ1QQsosortpropertyZ1QQsotr
typeZ1QQsotrvalueZ1"
.send
End With
Do Until XMLObj.ReadyState = 4 ' i.e. READYSTATE_COMPLETE
DoEvents
Loop
sResp = (XMLObj.responseText)
but I can't see the same HTML that I do when I do view source. Even
Navigate and then looking at innerhtml produces the same result
The above is just a search on abacus. It creates a rather bizarre URL,
but it works and can be pasted in to achieve the same results
Any help appreciated. Many thanks and Happy New Year
I am trying to do something along the lines of
Dim XMLObj As XMLHTTP30
Dim sResp As String
Set XMLObj = New XMLHTTP30
With XMLObj
'.Open "GET",
"http://search.ebay.co.uk/abacus_W0QQamp;sspagenameZhQ3ahQ3aadvsearchQ3aU
kQQcatrefZC5QQfbdZ1QQfromZR6QQnojsprZyQQpfidZ0QQsacategoryZQ2d1QQsacurren
cyZ0QQsalocatedincountryZ3QQsaslopZ1QQsocolumnlayoutZ3QQsofocusZbsQQsopos
talZM25Q203HXQQsorecordsperpageZ50QQsosortorderZ1QQsosortpropertyZ1QQsotr
typeZ1QQsotrvalueZ1"
.send
End With
Do Until XMLObj.ReadyState = 4 ' i.e. READYSTATE_COMPLETE
DoEvents
Loop
sResp = (XMLObj.responseText)
but I can't see the same HTML that I do when I do view source. Even
Navigate and then looking at innerhtml produces the same result
The above is just a search on abacus. It creates a rather bizarre URL,
but it works and can be pasted in to achieve the same results
Any help appreciated. Many thanks and Happy New Year