Comments on: Reading the internet

By: Alexis Kastor

Alexis Kastor — Thu, 14 Jun 2007 10:58:00 +0000

This one makes sence “One’s first step in wisdom is to kuesstion everything – and one’s last is to come to terms with everything.”

By: Frank

Frank — Sat, 18 Feb 2006 01:39:00 +0000

Does anyone know how to simply download an html file from the internet? I just want to be able to download html from any website to use in excel… The methods posted above don’t seem to work for me when I change the URL to something like Yahoo.com

By: Dave

Dave — Mon, 07 Nov 2005 03:21:00 +0000

Another method to download a file from the internet with XMLHTTP - but without ADO - below

Sub GetXLs()
Dim WebUrlStr As String, LocalFile As String
Dim oXMLHTTP As Object, bArray() As Byte, hfile As Integer
Dim newWB As Workbook

'credit to Matt Vidas from Expert-Exchange & VBAeXpress

Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")

'download the file from the web to the hardrive
WebUrlStr = "http://members.iinet.net.au/~brettdj/EE/Ltt.xls"
LocalFile = "c:Ltt.xls"
oXMLHTTP.Open "GET", WebUrlStr, False
oXMLHTTP.send
bArray = oXMLHTTP.ResponseBody
hfile = 1
Open LocalFile For Binary As #hfile
Put #hfile, , bArray
Close #hfile

Set newWB = Workbooks.Open(LocalFile)
End Sub

Cheers

Dave

By: Juan Pablo GonzÃAlez

Juan Pablo GonzÃAlez — Tue, 18 Oct 2005 14:56:00 +0000

Graham

Replace this line

HtmlBody = Mid$(HtmlBody, InStr(1, HtmlBody, "

with

HtmlBody = Mid$(HtmlBody, InStr(1, HtmlBody, "

By: Graham

Graham — Mon, 17 Oct 2005 23:53:00 +0000

Hi,

Just trying to follow this, looks very useful but I can't yet get it to function...When I paste the code into a module I'm getting "an invalid procedure call" error at this line:

HtmlBody = Mid$(HtmlBody, InStr(1, HtmlBody, "

By: Juan Pablo González

Juan Pablo González — Fri, 14 Oct 2005 19:42:00 +0000

Yes, it does work… I’ll try to clean the code a little and post it.

By: Juan Pablo González

Juan Pablo González — Fri, 14 Oct 2005 19:16:00 +0000

Very cool Jake, thanks!

This "should" mean too that I could download the file asynchronously as well ? (if I set the third parameter of the .Open to True ?

Right now I'm using the URLDownloadToFile, which I understand supports asynch downloads as well, but the implementation seems to be impossible.

I guess I'll try that ! thanks again!

By: Jake Marx

Jake Marx — Fri, 14 Oct 2005 18:10:00 +0000

JP,

You can retrieve a file from the Web with the XMLHTTP object. Here's some code that implements a "file copy" via HTTP:

http://groups.google.com/group/microsoft.public.excel.programming/browse_thread/thread/d86562f72b3775a4/8b93dbf506ee96fd

By: Jim

Jim — Fri, 14 Oct 2005 14:23:00 +0000

Juan
Very cool, Your explanination was spot on and simple enough for an xlm challanged person such as my self
Thanks for taking the time to post this.