Liste an Wörtern mit Google Translater übersetzen

Sub Uebersetzung_google() 'On Error Resume Next Dim IEApp As Object Dim IEDocument As Object Set IEApp = CreateObject("InternetExplorer.Application") For i = 2 To Tabelle1.UsedRange.Rows.Count IEApp.Visible = False IEApp.Navigate "http://translate.google.de/?hl=de&tab=wT#de|en|" & Tabelle1.Cells(i, 1) Application.StatusBar = "Übersetze-> " & Tabelle1.Cells(i, 1).Value Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Set IEDocument = IEApp.Document Do: Loop Until IEDocument.ReadyState = "complete" Set IEDocument = Nothing Next IEApp.Quit Set IEApp = Nothing Application.StatusBar = False MsgBox "Fertig"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ich habe selber etwas gefunden, so dass ich den Code abändern konnte. Ich weiß jedoch noch nicht, wie man auf den Namen "result_box" kommt. Wenn mir das jemand verraten mag.

Sub Uebersetzung_google()
On Error Resume Next
Dim IEApp As Object
Dim IEDocument As Object
Dim strErgebnis As String
Set IEApp = CreateObject("InternetExplorer.Application")
For i = 2 To Tabelle1.UsedRange.Rows.Count
erneut:
IEApp.Visible = False
IEApp.Navigate "http://translate.google.de/?hl=de&tab=wT#de|en|" & Tabelle1.Cells(i, 1)
Application.StatusBar = "Übersetze-> " & Tabelle1.Cells(i, 1).Value
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
strErgebnis = IEDocument.getElementById("result_box").innerText
Set IEDocument = Nothing
If strErgebnis = "" Then GoTo erneut
Tabelle1.Cells(i, 2) = strErgebnis
Next
IEApp.Quit
Set IEApp = Nothing
Application.StatusBar = False
MsgBox "Fertig"
End Sub

Vielen Dank euch

Sub Uebersetzung_google() On Error Resume Next Dim IEApp As Object Dim IEDocument As Object Dim strErgebnis As String Set IEApp = CreateObject("InternetExplorer.Application") For i = 2 To Sheets(1).UsedRange.Rows.Count erneut: IEApp.Visible = False IEApp.Navigate "http://translate.google.de/?hl=de&tab=wT#de|en|" & Sheets(1).Cells(i, 1) Application.StatusBar = "Übersetze-> " & Sheets(1).Cells(i, 1).Value Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Set IEDocument = IEApp.Document Do: Loop Until IEDocument.ReadyState = "complete" strErgebnis = IEDocument.getElementById("result_box").innerText Set IEDocument = Nothing If strErgebnis = "" Then GoTo erneut Sheets(1).Cells(i, 2) = strErgebnis IEApp.Navigate "http://translate.google.de" strErgebnis = "" Next IEApp.Quit Set IEApp = Nothing Application.StatusBar = False MsgBox "Fertig" End Sub

Beliebteste Forumthreads (12 Monate)

Liste an Wörtern mit Google Translater übersetzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread