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
有了这些代码,我可以打开所需的网站,但我不知道如何获得含义。我只想得到前两三个单词。意思与主词在同一行,但它们可以在单独的列中。