小编gep*_*pex的帖子

这让我很头疼..我试着做以下事情:

这是我拥有的数据,我有元素的名称,开始日期和结束日期.我想在白天获得这些数据,而不是在范围内(所以我可以将它上传到我有的白天数据库).

我不知道我是否可以在不使用VBA的情况下做到这一点,但我想快速将是VBA.

目前的数据:

???????????????????????????????????
? name  ? start date ?  end date  ?
???????????????????????????????????
? foo1  ? 25-11-2013 ? 28-11-2013 ?
? foo2  ? 25-11-2013 ? 28-11-2013 ?
? foo3  ? 25-11-2013 ? 28-11-2013 ?
? foo4  ? 25-11-2013 ? 28-11-2013 ?
? foo5  ? 25-11-2013 ? 28-11-2013 ?
? foo6  ? 28-11-2013 ? 28-11-2013 ?
? foo7  ? 28-11-2013 ? 28-11-2013 ?
? foo8  ? 28-11-2013 ? 28-11-2013 ?
? foo9  ? 28-11-2013 ? 28-11-2013 ?
? foo10 …

我知道这已被多次询问,但是没有看到通过具有相同类名的div和findind标签循环的明确答案.

我的第一个问题:

如果我有这样的事情:

<div id="carousel">
   <div id="images">

       <div class="imageElement">
          <img src="img/image1.jpg">
       </div>

       <div class="imageElement">
          <img src="img/image2.jpg">
       </div>

       <div class="imageElement">
           <img src="img/image3.jpg">
       </div>

   </div>

</div>

所以我想在div"images"中获取所有img Src以及imageElement类名中的其他内容,并将它们复制到excel中的某些单元格中.

第二个问题: 我已经看到了两种使用VBA提取Web内容的方法,一种是使用IE而另一种是使用浏览器之外的代码.

Private Sub pullData_Click()

    Dim x As Long, y As Long
    Dim htm As Object

    Set htm = CreateObject("htmlFile")

    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://website.html", False
        .send
        htm.body.innerHTML = .responsetext
    End With

End Sub

第二种方式:

Set ie = New InternetExplorer
    With ie
        .navigate "http://eoddata.com/stockquote/NASDAQ/AAPL.htm"
        .Visible = False
        While .Busy Or .readyState <> READYSTATE_COMPLETE
           DoEvents …