|
Hi Zwenn,
vielen Dank für dies schnelle Rückmeldung und mögliche Lösungsvorschläge.
Ich habe Selenium mit dem aktuellen Webdriver installiert.
Ich habe den Code wie folgt angepasst:
Sub TextUebersetzung()
Dim lngZeile As Long
Dim lngZeileMax As Long
With tbl_Übersetzung
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
.Range("B" & lngZeile).Value = Uebersetzung("de", "en", .Range("A" & lngZeile).Value)
Next lngZeile
End With
End Sub
Public Function Uebersetzung(strQuelle As String, _
strZiel As String, strText As String) As String
Dim objIE As Object
Dim Timeout As Date
Dim Test As String
Dim driver As New WebDriver
On Error Resume Next
driver.Start "edge"
driver.Get "https://www.deepl.com/de/translator/?#" & _
strQuelle & "/" & _
strZiel & "/" & _
Replace(strText, " ", "%20")
Timeout = Now + TimeValue("00:00:20")
Do
Uebersetzung = driver.Get(Document.getElementById("result_box").innertext)
If Now >= Timeout Then Exit Do
Loop While Uebersetzung = ""
driver.Quit
Set driver = Nothing
On Error GoTo 0
Leider stehe ich hier wieder beim gleichen Punkt wie auch schon mit der Shell Anwendung.
Ich bekomme keine Fehlermeldung.
Wie könnte ich den Code anpassen?
Vielen Dank und viele Grüße
Jev
|