1
我目前正在學習託福。我想要做的就是寫出優秀的文字並從網站上用土耳其語重新獲得他們的含義。這是我到目前爲止所做的。從詞典網站檢索數據
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
有了這些代碼,我可以打開所需的網站,但我不知道如何獲得含義。我只想得到前兩三個單詞。意思與主詞在同一行,但它們可以在單獨的列中。