私はIMDB.comの評価と総評をExcelファイルに取り込むマクロを作成しようとしています

Question

私はA2：A966から広がったシートに映画のリストを持っています。しかし、私のコードは実行時エラー91を取得します。今すぐ入力ボックスの形で映画の名前を聞いてきます（できるだけ多くのリソースから引っ張られましたが、しかし、理想的にはちょうどA2における映画のリストを実行します：A966とB2に評価のためのデータを引っ張っ：966総評価をC2へ：C966あなたがそれを達成することができます

Sub test() 
    Dim eRow As Long 
    Dim ele As Object 
    Dim RowCount As Integer 

    Set sht = Sheets("Sheet1") 
    RowCount = 1 
    sht.Range("A" & RowCount) = "IMDB Rating" 
    sht.Range("B" & RowCount) = "Total Reviews" 
    eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
    Set objIE = CreateObject("InternetExplorer.Application") 
    'strSearch = Range("A2") 
    moviename = InputBox("Enter movie name") 

    With objIE 
     .Visible = True 
     .navigate "http://www.imdb.com/" 

     Do While .Busy Or _ 
      .readystate <> 4 
      DoEvents 
     Loop 

     Set nam = .document.getElementsByName("navbar-query") 
     nam.Item(0).Value = moviename 

     .document.getElementsByID("navbar-submit-button").Click 
     .document.getElementsByID("result_text").Click 

     Do While .Busy Or _ 
      .readystate <> 4 
      DoEvents 
     Loop 

     For Each ele In .document.all 
      Select Case ele.classname 
       Case "Result" 
        RowCount = RowCount + 1 
       Case "ratingValue" 
        sht.Range("A" & RowCount) = ele.innertext 
       Case "ratingCount" 
        sht.Range("B" & RowCount) = ele.innertext 
      End Select 
     Next ele 
    End With 

    Set objIE = Nothing 
End Sub 

Answer 1

いくつかの方法を。ここにその一つがあります。

Sub imd_data() 

    Dim IE As New InternetExplorer, html As HTMLDocument, ele As Object 

    With IE 
     .Visible = True 
     .navigate "http://www.imdb.com/" 
     Do Until .readyState = READYSTATE_COMPLETE: Loop 
     Set html = .document 
    End With 

    html.getElementById("navbar-query").Value = "Blood Diamond" 
    html.getElementById("navbar-submit-button").Click 
    Application.Wait Now + TimeValue("00:00:05") 
    html.getElementsByClassName("result_text")(0).getElementsByTagName("a")(0).Click 
    Application.Wait Now + TimeValue("00:00:05") 

    For Each ele In html.getElementsByClassName("imdbRating") 
     With ele.getElementsByClassName("ratingValue") 
      If .Length Then r = r + 1: Cells(r, 1) = .Item(0).innerText 
     End With 
     With ele.getElementsByClassName("small") 
      If .Length Then Cells(r, 2) = .Item(0).innerText 
     End With 
    Next ele 

    IE.Quit 
End Sub 

出力：代わりに入力を使用しての

8.0/10 434,144 

Answer 2

Sub imd_data() 


Dim IE As New InternetExplorer, html As HTMLDocument, ele As Object 

    With IE 
     .Visible = True 
     .navigate "http://www.google.com/" 
     Do Until .readyState = READYSTATE_COMPLETE: Loop 
     Set html = .document 
     Set sht = Sheets("Sheet2") 
    End With 

    html.getElementById("lst-ib").Value = sht.Range("A2") & " IMDB" 
    html.getElementById("btnK").Click 
    Application.Wait Now + TimeValue("00:00:05") 
    html.getElementsByClassName("rc")(0).getElementsByTagName("a")(0).Click 
    Application.Wait Now + TimeValue("00:00:05") 

    For Each ele In html.getElementsByClassName("imdbRating") 
     With ele.getElementsByClassName("ratingValue") 
      'If .Length Then r = r + 1: Cells(r, 1) = .Item(0).innerText 
      sht.Range("B2") = .Item(0).innerText 
     End With 
     With ele.getElementsByClassName("small") 
      'If .Length Then Cells(r, 2) = .Item(0).innerText 
      sht.Range("C2") = .Item(0).innerText 
     End With 
    Next ele 

    IE.Quit 

End Sub