Google Übersetzer Code funktioniert nicht
18.11.2016 15:08:10
Werner
ich habe im Inet folgenden Code (Funktion) zum "Übersetzen" via Google gefunden.
Wenn ich in A1 "Hund" eintrage soll via Formal =GoogleTranslate(A1;"de";"en")
die Übersetzung "Cat" eingetragen werden.
Er ruft auch die Google-Übersetzungsseite auf - nur das Ergebnis wird nicht übertragen.
Ich habe den Code als Modul eingefügt .
Hat jemand einen Tipp ?
Freu mich
Werner ;)
Hier der Code:
Function GoogleTranslate(ByVal Text4Translation, ByVal resLang, ByVal srcLang) As String
Dim IEApp As Object
Dim IEDoc As Object
Dim IEUrl As String
Dim IESrc As String
Dim IEBeg As Long
Dim IEEnd As Long
' Neues Browser Objekt erzeugen
Set IEApp = CreateObject("InternetExplorer.Application")
' Browser versteckt ausführen (höhere Geschwindigkeit)
'IEApp.Visible = False
' URL Generieren
Text4Translation = Replace(Text4Translation, " ", "%20")
IEUrl = "https://translate.google.com/#" & srcLang & "/" & resLang & "/" & Text4Translation
'https://translate.google.com/#en/de/Hund ' Original-Link
' HTML-Datei aufrufen
IEApp.navigate IEUrl
Do
Application.Wait Now + TimeSerial(0, 0, 1)
Loop Until IEApp.busy = False
Set IEDoc = IEApp.document
' Quelltext einlesen
IESrc = IEDoc.body.innerHTML
' Bereich auslesen
IEBeg = InStr(1, IESrc, "result_box")
If IEBeg = 0 Then
IESrc = " # Nothing found"
Else
IEEnd = InStr(IEBeg, IESrc, "