В настоящее время я изучаю 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
С помощью этих кодов я могу открыть требуемый сайт, но я не знаю, как получить значения. Я хочу только получить первые два или три слова. Значения будут в одной строке с основным словом, но они могут находиться в отдельных столбцах.