yandex çeviri

[m__uzun]

selam arkadaşlar
googledan çeviri yapan kodu yandexten çeviri yapcak şekilde değiştirebilirmiyiz
A sütunundaki cümlelerin çevirisini sırayla B sütununa yazıyor

ve yavaş çalışıyor her satırı çeviri yaparken çok bekliyor hızlandırılabilirmi
ilgilenen ardaşlara şimdiden teşekkürler.

Sub Translate_Test()
For i = 1 To 50
'A sütununda almanca cümleleri B sütununa tr olarak çeviriyor
    Range("B" & i).Value = Translate(Range("a" & i).Value, "de", "tr")
    Next i
End Sub


Function Translate(kaynak_metin As String, _
          Optional kaynak_dil As String = "tr", _
          Optional hedef_dil As String = "en") As String
    Dim IE As Object, URL As String, res As String
    

     URL = "http://translate.google.com.tr"
     
   
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .navigate URL
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Application.Wait (Now + TimeValue("0:00:1"))
        Do While IE.Busy: DoEvents: Loop
        .document.all("sl").Value = kaynak_dil
        .document.all("tl").Value = hedef_dil
        .document.all("text").Value = kaynak_metin
        .document.forms(0).submit
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Application.Wait (Now + TimeValue("0:00:1"))
        Do While IE.Busy: DoEvents: Loop
        res = .document.all("result_box").innerText
        .Quit
    End With
'    Set IE = Nothing
    Translate = Replace(res, "...", "")
End Function

 

[m__uzun]

Üstadlar yardımcı olabilirmisiniz

 

[m__uzun]

arkadaşlar eski konu ama cevap yazan çözüm bulan olmadı, yardımcı olabilirmisiniz lütfen