VBA的html页面访问宏的innerText

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

而我的HTML：VBA的html页面访问宏的innerText

<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>

我可以使用MSGBOX命令看到的innerText，但同时在innerText属性获取类名我得到一个错误：

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

请帮我找到一种方式来获得类的innerText“数据”

来源

2015-08-08 sourabh sadhu

我对象好奇你为什么使用vba访问html dom？ –

其实我试图做一些自动化，以在没有手动签入邮件服务器的情况下获得新的邮件提醒的通知。请建议更好的选项来访问html源代码。你的建议总是值得赞赏的。 –

您正在尝试通过标记名来访问它，这是我MyDiv的案例是DIV。

我想你想要的是：

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

编辑其他问题
我试着这样做，但我在Mac上:(如果我猜，我会说你应该尝试是这样的：

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

还可以使用调试器的MSGBOX打破，你可以看到什么是

来源

2015-08-08 08:18:42

非常感谢。我犯了一个非常愚蠢的错误... –

不用担心，谢谢StackOverflow :) –

嗨，你能帮我取得字符串“Text1：”和“Text2：”以及。提前致谢。 –

VBA的html页面访问宏的innerText

回答

相关问题