Merhaba google translate ile çeviri sırasında hep yanlış çeviriler ile karşılaşıyorum. Onun için microsoft translate kullanmak istiyorum Alttaki kodu yazdım ama hata veriyor. Bu konuda bana yardımcı olur musunuz ?
kodları bu videodaki gibi yaptım ama çalışmadı.
Public Function TERCUME(kelime As Range, FROM As String, TO As String)
Dim ie As New InternetExplorer
Dim doc As HTMLDocument
fromto = "from=" & FROM & "&to=" & TO
ie.navigate "https://www.bing.com/translator?" & fromto & "&setlang=tr"
ie.Visible = False
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set kelimex = doc.getElementsById("tta_input_ta")(0)
kelimex.Value = kelime
Set cevap = doc.getElementsById("tta_output_ta")(0)
TERCUME = cevap.innerText
ie.Quit
Set ie = Nothing
End Function
kodları bu videodaki gibi yaptım ama çalışmadı.
Public Function TERCUME(kelime As Range, FROM As String, TO As String)
Dim ie As New InternetExplorer
Dim doc As HTMLDocument
fromto = "from=" & FROM & "&to=" & TO
ie.navigate "https://www.bing.com/translator?" & fromto & "&setlang=tr"
ie.Visible = False
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set kelimex = doc.getElementsById("tta_input_ta")(0)
kelimex.Value = kelime
Set cevap = doc.getElementsById("tta_output_ta")(0)
TERCUME = cevap.innerText
ie.Quit
Set ie = Nothing
End Function