VBA Anbinden Google Übersetzer an Excel
19.02.2019 22:33:35
Robert
Ich bin neu hier und möchte gerne mein Problem auf diesem Weg schildern:
Es geht um die Anbindung des Google-Übersetzers in Excel via VBA. Im Grunde durchlaufe ich eine Schleife in Spalte A und möchte über eine Funktion die Übersetzung mit Google in Spalte B ausgeben. Das ganze geht soweit gut, bis zum Zeitpunkt der Datenübertragung von der Ergebnisbox Google nach Excel Spalte B. Hier bekomme ich nur einen leeren String. Ich verstehe nicht, wieso ich den übersetzten Inhalt nicht mit "Uebersetzung = objIE.Document.getElementById("result_box").innerText" kriegen kann!?
Weiß jemand hier weiter? Sperrt Google diese Anwendung intern?
Public Function Uebersetzung(strQuelle As String, strZiel As String, strText As String) As _
String
Dim objIE As Object
Dim timeOut As Date
On Error Resume Next
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "http://translate.google.com/?#" & strQuelle & "/" & strZiel & "/" & Replace( _
strText, " ", "%20")
timeOut = Now + TimeValue("00:00:05")
Do
Uebersetzung = objIE.Document.getElementById("result_box").innerText
If Now >= timeOut Then Exit Do
Loop While Uebersetzung = ""
objIE.Quite
Set objIE = Nothing
On Error GoTo 0
End Function
Sub Translate()
Dim i As Integer, anzRows As Integer
Dim strQuelle As String, strZiel As String, strText As String, TranslateText As String
anzRows = ActiveWorkbook.ActiveSheet.Range("A1").CurrentRegion.Rows.Count
strZiel = "EN"
strQuelle = "DE"
For i = 1 To anzRows
strText = ActiveWorkbook.ActiveSheet.Range("A" & i).Value
ActiveWorkbook.ActiveSheet.Range("B" & i) = Uebersetzung(strQuelle, strZiel, strText)
Next
End Sub