HTML and Ecxel - Experts help needed

[alrodopial]

Hi, below is the link from the new RP site for the 3.35 race at Towcester (for today).
http://beta.racingpost.com/horses/card_ ... 3&type=sc_

I'm trying to retrieve the whole source page as a text in a cell using the code:

Code: Select all

Sub testing()

    Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
TODAYSmeetingsURL = "http://beta.racingpost.com/horses/card_runners.sd?race_id=468886&race_date=2008-11-23&type=sc_"

ie.navigate TODAYSmeetingsURL
Do While ie.Busy: DoEvents: Loop
    Do While ie.readyState <> 4: DoEvents: Loop
   
    Sheets("temp").Select
    Range("A1").Select

    Set mypage = ie.document.body
    mydata = mypage.innerText
    Sheets("temp").Range("C3") = mydata
   
End Sub

I get some info with the above but not all the source text.If instead of the "innertext" i use the"innerHTML" i get error.
I dont know if i have to convert the innerHTML into text or anything else and how?
Basically i dont understand many things of these stuff, objects,properties,elements,frames ...
So the question is: how can i download the source behind any(?) web page as text in an excel cell?
Anyone?
Garry you know a lot of VBA, any ideas?

[jokerjoe]

The problem is that an excel cell has a limit on the number of characters in can contain, and the html source code has way more characters than that.

btw I've taken the liberty of cleaning up the code a bit.

Code: Select all

Sub testing()
   
    Dim TODAYSmeetingsURL As String
   
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    TODAYSmeetingsURL = "http://beta.racingpost.com/horses/card_runners.sd?race_id=468886&race_date=2008-11-23&type=sc_"

    ie.navigate TODAYSmeetingsURL
    Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
   
    Sheets("Sheet1").Range("C3") = ie.document.body.innertext
   
    ie.Quit
    Set ie = Nothing

End Sub


[alrodopial]

The problem is that an excel cell has a limit on the number of characters in can contain, and the html source code has way more characters than that.

So is the syntax OK?
If so is there a way to bypass this limit or some how else?
Splitting the source code?

[dgs2001]

Hmmm

I tried this code both ways and all I get each time is two windows open one shows the racing info and the other stays at connecting, and nothing gets to excel.

All help appreciated

Duncan

[alrodopial]

The code Joe posted works fine at me.
With the "innerHTML" i dont get anything because a cell cant contain so much info so other ways must be found.Dont ask me which.