VBA: Obtenir le code source de site web en utilisant wininet

Question

Donc, fondamentalement, je le code suivant:

Dim myIE As InternetExplorer: Set myIE = New InternetExplorer 
myIE.Visible = True 
myIE.Navigate URL:="http://www.google.com" 
While myIE.Busy 
    DoEvents 'wait until IE is done loading page. 
Wend 

Comment pourrais-je être en mesure d'obtenir le code source de la page? Et ce sera bien si quelqu'un peut me lier à la documentation appropriée. Je suis absolument désespéré en regardant le site Web de MS.

Cheers.

Answer 1

Vous pouvez récupérer le code source HTML à l'aide:

strHTML = myIE.Document.body.innerHTML