Excele Google Translate özelliği kazandırmak

[messi43]

Merhaba arkadaslar Aşağıdaki kod TERCUME("metin";"tr";"en") şeklinde fonksiyonu ile excelde çeviri yapmamı sağlıyordu fakat, İnternetExplorer bitince çalışmamaya başladı sizden ricam google chrome veya microsoft edge ile çalışmasını sağlayabilirmisiniz. Ben bir türlü ayarlayamadım selenium basic ile olsada olur.
Şimdiden Teşekkürler

Public Function TERCUME(kelime As Range, SL As String, TL As String)
Dim ie As New InternetExplorer
Dim doc As HTMLDocument

sltl = "sl=" & SL & "&" & "tl=" & TL
ie.navigate "https://translate.google.com/?hl=en&tab=TT#view=home&op=translate&" & sltl
ie.Visible = False
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE

Set doc = ie.document
Set kelimex = doc.getElementsByClassName("orig tlid-source-text-input goog-textarea")(0)
kelimex.Value = kelime

beklet (2)

Set cevap = doc.getElementsByClassName("tlid-translation translation")(0)
TERCUME = cevap.innerText

ie.Quit
Set ie = Nothing


End Function

Public Function beklet(beklemezamani As Double)
Start = Timer
Do
DoEvents
Loop Until (Timer - Start) >= beklemezamani
End Function

ile yapılsada olur.

 

[messi43]

Yokmudur yapabilen