How to get HTML with VBA ?

[stevedemo]

Is it possible to grab a web page html with VBA ?
If so how ?

Thanks !!

Steve

All I want is the chance to prove money won't make me happy.

 

[stevedemo]

I was able to convert some VB. However the only page I can get it to load is google nothing else will load.

Suggestions ?

Private Sub Command1_Click()
  Dim doc As Object
 
  WebBrowser7.Navigate url:=Text1.Value

  Do
  DoEvents
  Loop Until Not WebBrowser7.Busy
  Set doc = WebBrowser7.Document
  Text3.Value = doc.All(0).innerHTML
End Sub

All I want is the chance to prove money won't make me happy.

 

[Remou]

Have you checked the value of Text1.Value?

 

[stevedemo]

Hello Remou,

Yes I have, I have even hard coded a different URL. I suspect for the most part the code is working but I am returning a NULL value here: doc.All(0).innerHTML that part has me puzzled.

The "webbrowser" was never my strong point in any language. I was hoping there was a different call I could make to grab the HTML.


Steve

All I want is the chance to prove money won't make me happy.

 

[stevedemo]

Got it !!!!

  ' Go to Page
  WebBrowser7.Navigate url:=Text1.Value

  ' Get HTML
  Do
  DoEvents
  Loop Until Not WebBrowser7.Busy
  
  Text3.Value = WebBrowser7.Document.All(1).innerHTML

All I want is the chance to prove money won't make me happy.

 

[Remou]

Excellent! There is also:

doc.body.innerhtml

--

http://www.w3schools.com/HTMLDOM/dom_obj_document.asp

 

[djRixMix]

Hello Steve,

I tried to use the code you posted in your last post and it did not work...

I tried:
' Go to Page
WebBrowser7.navigate url:="

http://www.altavista.com"

' Get HTML
Do
DoEvents
Loop Until Not WebBrowser7.Busy

txtSource = WebBrowser7.Document.all(1).innerHTML

It does not grab the whole source code and even what it grabs is incomplete... Am I missing something?

Eric

 

[djRixMix]

I found a simple solution: see my thread:

http://www.tek-tips.com/viewthread.cfm?qid=1497399&page=1

Eric