Translate Makrosu Hatası

[ebubik]

Merhabalar,
Ekte çeviri ile ilgili bir çalışma mevcuttur, hücrenin üzerine gelip "translate" butonuna basıldığı zaman msg box a Almancadan Türkçeye çevirisi geliyordu, çalışan makro son birkaç gündür hata vermeye başladı, mümkünse göz atıp yardımcı olabilir misiniz.

Teşekkürler.

 

[m__uzun]

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]

Dosyanızı dosya.tc sitesine yüklermisiniz

 

[ebubik]

Merhaba,
Aşağıdaki linkten ulaşabilirsiniz.

http://s9.dosya.tc/server/5quymz/Ger-Translate__1_.zip.html