如何在使用VBA进行网页抓取时从列表中进行select

我想从下面的excel VBA代码的网站上的时间select器中select一个时间。 虽然代码循环通过它不select09.我做错了什么？ 网站代码也在下面。

Set e = appIE.document.getElementbyid("timepicker-pickup").getElementsByTagName("li") For Each e In e If e.innerHTML = "09" Then e.Click End If Next 

网站代码：

 <div class="timepicker" id="timepicker-pickup"> <div class="arrow"></div> <div class="icon close-btn"></div> <div class="inner-time-picker clearfix"> <div class="section hours"> <div class="up-arrow"><span class="icon arrow"></span></div> <div class="selectors"> <ul> <li data-value="00">00</li> <li data-value="01">01</li> <li data-value="02">02</li> <li data-value="03">03</li> <li data-value="04">04</li> <li data-value="05">05</li> <li data-value="06">06</li> <li data-value="07">07</li> <li data-value="08" class="selected">08</li> <li data-value="09">09</li> <li data-value="10">10</li> <li data-value="11">11</li> </ul> </div> 

Answer 1

尝试这个：

 Dim iL as iHTMLElement Dim e As IHTMLElementCollection Set e = appIE.document.getElementbyid("timepicker-pickup").getElementsByTagName("li") For Each iL In e If il.innerText = "09" Then iL.Click End If Next iL