Question

我是VBA的新手，所以任何帮助都会受到赞赏。

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

http://ingatlan.com/lista/elado+telek+budaors

它的来源是： HREF =“/布达厄尔什/ elado + telek / egyeb-telek /害虫+ megye +布达厄尔什+ sovirag + utca街+ 8-10 / 21503632

但是它没有链接到任何表格。

感谢：阿提拉

Answer 1

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

Sub Adott_hirdetes_adatai（）

    Dim IE As Object: Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    For X = 1 To 1
    Application.StatusBar = X

    IE.Navigate "http://ingatlan.com/budaors-torokugrato/elado+telek        /lakoovezeti-telek/pest+megye+budaors/21284950"

    Do Until Not IE.Busy And IE.ReadyState = 4
        Application.Wait (Now + #12:00:01 AM#)
    Loop

    'Hirdetés azonosítója
     BazsiSheet.Cells(X, 1) = "Hirdetés azonosítója"
     BazsiSheet.Cells(X + 1, 1) = IE.Document.getElementsByClassName("adid")(0).innertext
     'Hirdetés fejléce
      BazsiSheet.Cells(X, 2) = "Hirdetés neve"
      BazsiSheet.Cells(X + 1, 2) = IE.Document.getElementsByClassName("pageTitle")(0).innertext

“双人床价格 BazsiSheet.Cells（X，3）=“Ár” BazsiSheet.Cells（X + 1,3）= IE.Document.getElementsByClassName（“importantInformations four-column-table”）（0）.getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（0）。的innerText “Terület BazsiSheet.Cells（X，4）=“Terület” BazsiSheet.Cells（X + 1,4）= IE.Document.getElementsByClassName（“importantInformations four-column-table”）（0）.getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（1）。的innerText 'A“Típus”szókiíratása BazsiSheet.Cells（X，5）=“Típus” BazsiSheet.Cells（X + 1,5）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（0）.innertext 'A“Gáz”szókiíratása BazsiSheet.Cells（X，6）=“Gáz” BazsiSheet.Cells（X + 1,6）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（0）.getElementsByTagName（“td”）（1）.innertext 'A“villany”szókiíratása BazsiSheet.Cells（X，7）=“Villany” BazsiSheet.Cells（X + 1,7）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（1）.getElementsByTagName（“td”）（0）.innertext 'A“Csatorna”szókiíratása BazsiSheet.Cells（X，8）=“Csatorna” BazsiSheet.Cells（X + 1,8）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（1）.getElementsByTagName（“td”）（1）.innertext 'A“víz”szókiíratása BazsiSheet.Cells（X，9）=“Víz” BazsiSheet.Cells（X + 1,9）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（2）.getElementsByTagName（“td”）（0）.innertext 'A“kilátás”szókiíratása BazsiSheet.Cells（X，10）=“Kilátás” BazsiSheet.Cells（X + 1,10）= IE.Document.getElementById（“table”）。getElementsByTagName（“tr”）（2）.getElementsByTagName（“td”）（1）.innertext '一个hirdetésszövege BazsiSheet.Cells（X，11）=“Komment” BazsiSheet.Cells（X + 1,11）= IE.Document.getElementsByClassName（“box-section comment”）（0）.innertext

        Next X

        Set IE = Nothing

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

        End Sub

哪种方法正常，但我仍然无法从搜索结果中收集链接。

感谢：阿提拉

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

1 个答案: