Öncelikle herkese merhabalar. Ben İngilizce çalışıyorum. Daha önce Oxford sitesinin tavsiye ettiği 3000 kelimeyi çalışıp birçoğunu ezberledim. Şimdi ise bu kelimeler ile sitede verilen cümleleri excele aktarmak istiyorum. Cümleleri çevirip çalışmak için yani kalıcılığı sağlamak için. internette bir kod buldum fakat başka bir siteden bir şeyler çekmek için yazılmıştı. Ben pek kod yazmasını bilmiyorum ama az bir şey düzenleyerek siteden cümleleri çekebildim fakat tek bir kelime için olanı çekebildim alt alta sıralanmış tüm kelimeler için kurulmuş cümleleri çekmek istiyorum. https://www.oxfordlearnersdictionaries.com/wordlist/american_english/oxford3000/ site burası. Her kelimenin cümlelerini ayrı birer hücreye yazsın istiyorum. Alt alta sıralı bir şekilde. Bulduğum kodu paylaşıyorum. Yardımcı olursanız çok sevinirim.
Sub PEAKUP_BLOG()
Dim ie As Object, meta As Object, i As Integer, basla As Single
Range("A2:B100").Clear
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 1: Wend
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate "https://www.oxfordlearnersdictionaries.com/definition/american_english/advertise"
While .Busy Or .ReadyState < 4: DoEvents: Wend
For i = 0 To .document.getelementsbyclassname("responsive_container xamerican_english").Length - 1
Set meta = .document.getelementsbyclassname("responsive_container xamerican_english")(i)
Range("A" & i + 2) = meta.getelementsbyclassname("sn-gs")(0).innertext
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), _
Address:=meta.getelementsbytagname("a")(0).href, _
TextToDisplay:=Range("A" & i + 2).Value
Cells(i + 2, "B") = meta.getelementsbyclassname("sn-gs")(0).innertext
Next i
.Quit
MsgBox "Islem Tamamlandi.", vbInformation, "PEAKUP BLOG"
End With
End Sub
Aslında https://www.oxfordlearnersdictionaries.com/definition/american_english/advertise bu linkin sonundaki ingilizce kelimeyi bir hücreden çekerek yanındaki boş hücreye cümleleri yazdırsa her şey olmuş olacak örneğin A sütununa sırasıyla kelimeleri yazarım ve sırasıyla bu adresin sonundaki kelime ile değiştirip yanındaki hücreye yazarsa hallolmuş olur.
Yardımlarınızı bekliyorum şimdiden herkese çook teşekkür ediyorum.
Sub PEAKUP_BLOG()
Dim ie As Object, meta As Object, i As Integer, basla As Single
Range("A2:B100").Clear
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 1: Wend
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate "https://www.oxfordlearnersdictionaries.com/definition/american_english/advertise"
While .Busy Or .ReadyState < 4: DoEvents: Wend
For i = 0 To .document.getelementsbyclassname("responsive_container xamerican_english").Length - 1
Set meta = .document.getelementsbyclassname("responsive_container xamerican_english")(i)
Range("A" & i + 2) = meta.getelementsbyclassname("sn-gs")(0).innertext
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), _
Address:=meta.getelementsbytagname("a")(0).href, _
TextToDisplay:=Range("A" & i + 2).Value
Cells(i + 2, "B") = meta.getelementsbyclassname("sn-gs")(0).innertext
Next i
.Quit
MsgBox "Islem Tamamlandi.", vbInformation, "PEAKUP BLOG"
End With
End Sub
Aslında https://www.oxfordlearnersdictionaries.com/definition/american_english/advertise bu linkin sonundaki ingilizce kelimeyi bir hücreden çekerek yanındaki boş hücreye cümleleri yazdırsa her şey olmuş olacak örneğin A sütununa sırasıyla kelimeleri yazarım ve sırasıyla bu adresin sonundaki kelime ile değiştirip yanındaki hücreye yazarsa hallolmuş olur.
Yardımlarınızı bekliyorum şimdiden herkese çook teşekkür ediyorum.