Microsoft Excel içinde Google Çeviri Fonksiyonu Oluşturmak

Public Function TERCUME(kelime As Range, Kaynak_Dil As String, Cevrilecek_Dil As String)

Dim ie As New InternetExplorer

Dim doc As New HTMLDocument

sltl = "sl=" & Kaynak_Dil & "&" & "tl=" & Cevrilecek_Dil

ie.navigate ("https://translate.google.com/#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(bekletmezamani As Double)

Start = Timer

Do

DoEvents

Loop Until (Timer - Start) >= bekletmezamani

End Function