vba InnerText macro d'accès à la page html

Question

Option Explicit 

Sub Sample() 
    Dim objIe As InternetExplorerMedium 
    Dim xobj As Variant 
    Dim links As Variant 
    Dim link As String 
    Dim lnk As Variant 
    Dim rc As Integer 
    Set objIe = New InternetExplorerMedium 
    objIe.Visible = True 
    objIe.navigate "C:\Users\SOURABH\Desktop\test.html" 
    Do While objIe.Busy And Not objIe.readyState = 4 
     Application.StatusBar = "Loading.." 
     DoEvents 
    Loop 
    MsgBox objIe.document.body.innerHTML 
    Set xobj = objIe.document.getElementByTagName("myDiv") 
    Set xobj = xobj.getElementsByClassName("myTable").Item(0) 
    Set xobj = xobj.getElementsByClassName("data")(0) 
    For Each lnk In links 
     MsgBox "lnk got accessed" 
     If lnk.className = "myTable" Then 
      Sheets("Sheet1").Cells(3, 1).Value = lnk(0).innerText 
      Exit For 
     End If 
    Next 
    MsgBox xobj.innerText 
    Set xobj = Nothing 

    objIe.Quit 
    Set objIe = Nothing 
End Sub 

Et mon code HTML:

<div id="myDiv">  
<table class="myTable"> 
     <tbody> 
      <tr> 
       <td>Text1:</td> 
       <td class="data"><strong>0.51</strong></td> 
      </tr> 
      <tr> 
       <td>Text2:</td> 
       <td class="data"><strong>2199</strong></td> 
      </tr> 
     </tbody> 
    </table> 
</div> 

je peux voir le InnerText en utilisant la commande MsgBox mais tout en obtenant le nom de classe dans le InnerText je reçois une erreur:

object doesn't support this property in set xobj = objIe.document.getElementByTagName("myDiv") line

S'il vous plaît aidez-moi à trouver un moyen d'obtenir le InnerText de « données » classe

Answer 1

Vous essayez d'accéder par TAGNAME, qui i Dans le cas de MyDiv, c'est DIV.

Je pense que ce que vous voulez est:

Set xobj = objIe.document.getElementById("myDiv") 

EDIT Question supplémentaire
J'ai essayé de le faire, mais je suis sur un Mac :(Si je devais deviner, je dirais que vous devriez essayer quelque chose comme:

For Each obj In xobj.getElementsByClassName("data") 
    MsgBox obj 
Next 

également utiliser le débogueur pour briser le MsgBox, vous pouvez voir ce qui est dans l'objet