辞書のウェブサイトからデータを取得する

Question

私は現在TOEFLで勉強しています。私がしたいことは、ウェブサイトからトルコ語でその意味を抽出し、検索するための言葉を書くことです。ここまで私がこれまでしたことがあります。

Sub tureng() 

Dim ieObj 

Set ieObj = CreateObject("InternetExplorer.Application") 
Dim kelime As String 
Dim sht As Worksheet 
Set sht = ThisWorkbook.Sheets("Sayfa1") 
For i = 1 To sht.Range("A10000").End(3).Row 
    kelime = sht.Cells(i, 1).Value 

    With ieObj 
    .Visible = True 
    .Navigate "http://tureng.com/tr/turkce-ingilizce/" & kelime 
    Do While .Busy Or .readyState <> 4 
     DoEvents 
    Loop 
    End With 
Next 

End Sub 

これらのコードでは、私は必要なウェブサイトを開くことができますが、意味を知る方法はわかりません。私は最初の2,3単語を取得したいだけです。意味はメインワードと同じ行にありますが、別々の列にあることもあります。

Answer 1

あなたの答えに基づいて、単純なエラー処理があり、与えられた数の単語（あなたの例3では）を扱うのにもっと簡単に適応した改良されたコードがあります。これはテストされていませんが、作業中のコード（削除した後のコード）に基づいています...

Sub tureng() 

    Dim ieObj As Object 

    Set ieObj = CreateObject("InternetExplorer.Application") 
    Dim allRowOfData As Object 
    Dim kelime As String 
    Dim sht As Worksheet 

    ' If you are using the values immediately in your sheet, you don't need to store them 

    Set sht = ThisWorkbook.Sheets("Sayfa1") 

    Dim i as Integer 
    Dim j as Integer 

    For i = 1 To sht.Range("A10000").End(3).Row 

     kelime = sht.Cells(i, 1).Value 

     With ieObj 
      .Visible = False 
      .Navigate "http://tureng.com/tr/turkce-ingilizce/" & kelime 
      Do While .Busy Or .readyState <> 4 
      DoEvents 
      Loop 
      Set allRowOfData = ieObj.document.getElementsByClassName("tr ts") 

      ' Very simple error handling code, simply try 3 times regardless of failure 
      On Error Resume Next 
      For j = 1 to 3 ' Loop to get up to 3 values 

       sht.Cells(i, j+1).Value = allRowOfData(j).innertext 

      Next j 
      On Error GoTo 0 

     End With 

    Next I 

    ieObj.Quit 

End Sub