Excel 如何使用VBA从源代码中获取链接

我是VBA的新手，因此任何帮助都将不胜感激

我想在源代码中收集本网站的所有搜索结果链接：

其来源如下： href=“/budaors/elado+telek/egyeb-telek/pest+megye+budaors+sovirag+utca+8-10/21503632

但是，它没有链接到任何表

谢谢:

---

Attila

我有以下脚本从特定链接下载数据：

分包商Adott_hirdetes_adatai（）

阿尔 细胞（X，3）=“r” BazzisSheet.Cells（X+1,3）=IE.Document.getElementsByTagName（“重要信息四列表”）（0）.getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（0）.innertext “特吕莱 BazsiSheet.Cells（X，4）=“Terület” BazzisSheet.Cells（X+1,4）=IE.Document.getElementsByTagName（“重要信息四列表”）（0）.getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（1）.innertext "Típus"szókiírataása 细胞（X，5）=“Típus” BazsiSheet.Cells（X+1,5）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（0.getElementsByTagName（“td”）（0.innertext “一个“Gáz”绍基·拉塔萨 细胞（X，6）=“Gáz” BazsiSheet.Cells（X+1,6）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（0.getElementsByTagName（“td”）（1.innertext “恶棍”索基·拉塔萨 BazsiSheet.Cells（X，7）=“Villany” BazzisSheet.Cells（X+1,7）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（1.getElementsByTagName（“td”）（0.innertext “Csatorna”索基·拉塔萨 细胞（X，8）=“Csatorna” BazzisSheet.Cells（X+1,8）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（1.getElementsByTagName（“td”）（1.innertext “víz”szókiírataása 细胞（X，9）=“Víz” BazzisSheet.Cells（X+1,9）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（2.getElementsByTagName（“td”）（0.innertext “基拉塔斯”索基里拉萨 BazsiSheet.Cells（X，10）=“Kilátás” BazzisSheet.Cells（X+1,10）=IE.Document.getElementById（“表格”）.getElementsByTagName（“tr”）（2.getElementsByTagName（“td”）（1.innertext “hirdetés szövege酒店 BazsiSheet.Cells（X，11）=“Komment” BazsiSheet.Cells（X+1，11）=IE.Document.getElementsByClassName（“框节注释”）（0）。innertext

        Next X

        Set IE = Nothing

        Application.StatusBar = ""
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

        End Sub

这很好，但我仍然无法从搜索结果中收集链接

谢谢:

---

Attila

请向我们展示您为完成任务所做的努力，然后我们可以帮助调整您的代码以使其工作，如果它不工作……也就是说，此链接上有一些页面可以帮助您：也许这个答案会帮助您……提示：您想使用

class=“search results”

        Next X

        Set IE = Nothing

        Application.StatusBar = ""
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

        End Sub