将特定的HTML元素从网页复制到Excel

我正在尝试自动化一个相当基本的副本，并从某个网站粘贴到Excel。 要到达所需的网页，我必须从网页上的combobox中select特定的项目。 我已经pipe理这部分：

Sub CopyThat() Dim IE As Object Dim htmlButton Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.navigate "http://www.uvo.gov.sk/evestnik/-/vestnik/search" While IE.Busy DoEvents Wend IE.Document.getElementById("druhOznamenia").Value = "6" IE.Document.getElementById("druhZakazky").Value = "0" IE.Document.getElementById("druhPostupu").Value = "0" IE.Document.getElementById("datumZverejneniaOd").Value = "01.07.2013" IE.Document.getElementById("datumZverejneniaDo").Value = "30.11.2014" Set tags = IE.Document.getElementsByTagName("Input") For Each tagx In tags If tagx.Type = "submit" And tagx.Value = "H¾adaj" Then tagx.Click End If Next End Sub 

现在我正在尝试查看HTML源代码中的div类，并复制特定类下的所有文本。 在这种情况下，我正在寻找的数据代码如下所示：

 div class="oznamenie" > <div class="ozn1"> <a href="http://www.uvo.gov.sk/evestnik/- /vestnik/275652" >28776 - MST</a> <span class="datum">Zverejnené: 28.11.2014 vo VVO 233/2014 </span> </div> <div class="ozn2" title="URBÁRI, sro"> URBÁRI, sro </div> <div class="ozn3" title="Dodávka technológie pre spoločnosť URBÁRI, sro" > Dodávka technológie pre spoločnosť URBÁRI, sro </div> </div> 

我试图将文本从ozn1复制到Excel工作表和单元格A2，ozn2文本到B2和ozn3文本到P2。 这是我卡住的地方，因为我不知道如何遍历每个div类并将其复制到这些行。 然后，代码应该看下一个ozn1，并将其复制到A3，B3，P3等。然后，该macros应该复制该页面上的所有ozn1s，ozn2s和ozn3s后，移动到网站上的下一页，并执行相同的操作。

第二部分是打开具体的链接（在这种情况下， http：//www.uvo.gov.sk/evestnik/-/vestnik/275652 ），并复制更多的文本，并在Excel中。

我知道有很多未完成的东西，除了打开我需要的网页之外，我基本上什么也没做，但是如果你能给我任何关于如何继续的build议，我会非常感激。

预先感谢您的帮助。