С ссылками Microsoft HTML Object Library и Microsoft Inte rnet Элементы управления отмечены, я пытаюсь очистить перевод Google Translate следующим образом:
Sub GetTranslation()
Dim IE As New InternetExplorer
IE.navigate Worksheets("Sheet1").Cells(1, 1).Value
While IE.readyState <> 4 Or IE.Busy: DoEvents: Wend
Application.Wait DateAdd("s", 5, Now)
Worksheets("Sheet1").Cells(1, 2).Value = WorksheetFunction.Trim(IE.document.getElementsByClassName("tlid-translation translation")(0).innerText)
IE.Quit
Set IE = Nothing
End Sub
В ячейке A1 у меня есть следующий URL: https://translate.google.com/#view = home & op = translate & sl = auto & tl = en & text = Los rinocerontes no suelen comer serpientes
Этот код работает; в ячейке B1 я получаю правильный перевод.
Если я теперь заменю текст в ячейке A1 «Los rinocerontes no suelen comer serpientes» текстом более (около) 2030 символов, я получаю ошибку времени выполнения '-2147467259 (80004005)'. Что-то тексты слишком велики, чтобы справиться с этим, по-видимому.
Как решить?