Macro to Open webpage, then save webpage as txt file.

dear maczaq,

i've tried yours & it works.
however, how to deal with "characters in other languages" (say coding in "Big5" chinese) for objHTTP.responseText ?
these characters are just incorrectly displayed as "????" in the txt file.
do u have any idea ?

thx,
tony

Originally Posted by maczaq

other way for get source web-page with GET method

Sub getHTML()

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
'get method
URL = "http://www.lagardedenuit.com/wiki/api.php?action=query&prop=langlinks&format=xml&lllimit=500&generator=allpages&gapfilter=nonredirects&gaplimit=500&gapfrom=0"
objHTTP.Open "GET", URL, False

file = "c:\test.txt"

objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")

Open file For Binary As #1
    Put #1, , objHTTP.responseText 'output data
Close #1

Set objHTTP = Nothing

End Sub

Some day I've used IE object for get web page source but it was a bit slow - using above code I speed up getting result about x 10. If you need to get result many times in loop etc. then this should be faster way.