Merhabalar. İngilizce öğrenirken bilmediğim kelimelerin anlamlarını excele girip sonrasında cevaplarını almak istiyorum. Excel bilgim veya kod bilgim yok, araştırma ile 2 günde aşağıdaki kodları yazabildim fakat çalışmıyor. yardımcı olabilirseniz sevinirim.
Public Function TERCUME(TX As Range, SL As String, TL As String)
Dim Mydoc As New WebDriver
sltl = "sl=" & SL & "&" & "tl=" & TL & "&" & "text=" & TX
Mydoc.Start "chrome"
Mydoc.Get "https://translate.google.com/?um=1&ie=UTF-8&hl=en&client=tw-ob#view=home&op=translate&" & sltl
iki alternatif formülüm var
Range("B1") = Mydoc.FindElementByClass("tlid-send-feedback-link")(0).innertext
veya
tercumex = Mydoc.FindElementByClass("tlid-send-feedback-link")(0).innertext
TERCUME = tercumex
End Function
Public Function TERCUME(TX As Range, SL As String, TL As String)
Dim Mydoc As New WebDriver
sltl = "sl=" & SL & "&" & "tl=" & TL & "&" & "text=" & TX
Mydoc.Start "chrome"
Mydoc.Get "https://translate.google.com/?um=1&ie=UTF-8&hl=en&client=tw-ob#view=home&op=translate&" & sltl
iki alternatif formülüm var
Range("B1") = Mydoc.FindElementByClass("tlid-send-feedback-link")(0).innertext
veya
tercumex = Mydoc.FindElementByClass("tlid-send-feedback-link")(0).innertext
TERCUME = tercumex
End Function