VBA - Web Query - multiple Frames

Question

WebQueryを動作させようとしていますが、それはできないようです。 私の目標は、Webページのソースコードをスクラップすることです。残念なことに、このサイトには、私のコードが正しく動作しない理由が異なるフレームがあるようです。したがって、フレーム問題を解決するはずのオンラインで見つかったコードを修正しようとしました。問題は、コードがうまくいかないことです。おそらく少し古いようです。誰でも助けてくれますか？

次のコードは、作成時にエラー（objecetが必要）： "設定profileFrame .document.getElementById（" profileFrame "）"

ます。Public Sub IE_Automation（）

'Needs references to Microsoft Internet Controls and Microsoft HTML Object Library 

Dim baseURL As String 
Dim IE As InternetExplorer 
Dim HTMLdoc As HTMLDocument 
Dim profileFrame As HTMLIFrame 
Dim slotsDiv As HTMLDivElement 

'example URL with multiple frames 
baseURL = "https://www.xing.com/search/members?section=members&keywords=IT&filters%5Bcontact_level%5D=non_contact" 

Set IE = New InternetExplorer 
With IE 
    .Visible = True 

    'Navigate to the main page 

    .navigate baseURL & "/publictrophy/index.htm?onlinename=ace_anubis" 
    While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend 

     'Get the profileFrame iframe and navigate to it 

     Set profileFrame = .document.getElementById("profileFrame") 

     .navigate baseURL & profileFrame.src 
     While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend 

      Set HTMLdoc = .document 
     End With 

     'Display all the text in the profileFrame iframe 

     MsgBox HTMLdoc.body.innerText 

     'Display just the text in the slots_container div 

     Set slotsDiv = HTMLdoc.getElementById("slots_container") 
     MsgBox slotsDiv.innerText 

    End Sub 

幸運を祈り、 アンドレアス

Answer 1

Hummmm、ここで何をしているのか正確には分かりませんが、下のコードを試してみることはできますか？

Option Explicit 

Sub Sample() 
    Dim ie As Object 
    Dim links As Variant, lnk As Variant 
    Dim rowcount As Long 

    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Visible = True 
    ie.navigate "https://www.xing.com/search/members?section=members&keywords=IT&filters%5Bcontact_level%5D=non_contact" 

    'Wait for site to fully load 
    'ie.Navigate2 URL 
    Do While ie.Busy = True 
     DoEvents 
    Loop 

    Set links = ie.document.getElementsByTagName("a") 

    rowcount = 1 

    With Sheets("Sheet1") 
     For Each lnk In links 
     'Debug.Print lnk.innerText 
      'If lnk.classname Like "*Real Statistics Examples Part 1*" Then 
       .Range("A" & rowcount) = lnk.innerText 
       rowcount = rowcount + 1 
       'Exit For 
      'End If 
     Next 
    End With 
End Sub