Всем привет. Нашел рабочий код для перевода текста в ячейках с помощью Google Translate. Все бы хорошо, но при переводе с русского выводит кракозябры вместо слов. Это можно поправить? Файл пример прилагаю.
| Код |
|---|
Function GOOGLETRANSLATE(text As String, source_language As String, target_language As String) As String
Dim URL As String
URL = "https://translate.google.com/m?sl=" & source_language & "&tl=" & target_language & "&hl=en&ie=UTF-8&q=" & text
Dim XMLHTTPS As Object
Set XMLHTTPS = CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTPS.Open "GET", URL, False
XMLHTTPS.setrequestheader "User-Agent", "Mozilla/5.0 (compatible;MSIE 6.0; WindowsNT 10.0))"
XMLHTTPS.send ""
Dim HTML As Object
Set HTML = CreateObject("HTMLFile")
With HTML
.Open
.write XMLHTTPS.responseText
.Close
End With
Dim HTMLDc As HTMLDocument
Set HTMLDc = HTML
Dim Class As Object
Set Class = HTMLDc.getElementsByClassName("result-container")(0)
If Not Class Is Nothing Then
GOOGLETRANSLATE = Class.innerText
End If
Set Class = Nothing
Set HTML = Nothing
Set XMLHTTPS = Nothing
End Function
|
Изменено: - 14.03.2023 15:15:31
