在Excel VBA中使用getElementsByClassName

下面是我正在使用的代码，但我得到这个错误：

对象不支持这个属性或方法

同时使用getElementsByClassName 。 我使用的新的2variables没有得到充实请帮助我，让我知道如果我做错了。

 Sub PopulateTasks() 'Variable Declaration Dim ie As Object Dim noTaskText As String Set ie = CreateObject("InternetExplorer.Application") url = "http://example/do/" .Visible = True .Navigate url .Top = 50 .Left = 430 .Height = 400 .Width = 400 Do Until Not ie.Busy And ie.readystate = 4 DoEvents Loop End With Set link = ie.Document.getElementsByTagName("a") For i = 1 To 200 For Each l In link If l.innertext = storyIds(i) Then l.Click Do Until Not ie.Busy And ie.readystate = 4 DoEvents Loop If InStr("No tasks have been defined.", ie.Document.Body.outerText) <> 0 Then noTaskFound = True End If noTaskText = ie.Document.getElementsByClassName("highlighted_message")(0).innerText If noTaskFound = True Then End If Next ie.Document.getElementbyId ("") Do Until Not ie.Busy And ie.readystate = 4 DoEvents Loop Next i End Sub 

Answer 1

要得到一个类名称的元素，我会使用querySelector：

 Set element = ie.Document.querySelector(".classname") Debug.Print element.innerHTML 

用你的例子：

 txt = ie.Document.querySelector(".highlighted_message").innerText If txt = "No tasks have been defined." Then noTaskFound = True Exit For End If