La gente….Desde hace algunos años he utilizado la siguiente función en uno de mis macros Excel para que me ayude a redactar los títulos de las fotografías del inglés al francés. Este SOY comenzó a tirar un error, que señaló el .Send de comandos en el código de abajo:

Public Function getGoogleTranslation(strSource As String, strSourceLang As String, strDestLang As String) As String
Dim strURL As String, x As String

strURL = "http://translate.google.com/translate_a/t?client=t&text=" & _
         Replace(strSource, " ", "%20") & _
         "&hl=en&sl=" & strSourceLang & _
         "&tl=" & strDestLang & "&multires=1&pc=0&rom=1&sc=1"

With CreateObject("msxml2.xmlhttp")
    .Open "get", strURL, False
    .send
    x = .responseText
End With

getGoogleTranslation = Replace(Replace(Split(x, ",")(0), "[", ""), """", "")

End Function

Cuando puedo copiar/pegar el contenido de strurl por directamente en IE, la primera vez que tengo un CAPTCHA y un comentario de que son la comprobación de ‘robots’. El segundo momento se trabajó directamente. Se debe establecer una cookie??

Es de todos modos todo esto? O de otra manera simple de frases traducidas en una macro?

Gracias….RDK

  • Usted tendrá que utilizar la API de Google translate para los navegadores. Usted recibirá una conexión token. Esto le ayudará a evitar los molestos captchas. Pruebe esto: web.archive.org/web/20110720142541/http://basharkokash.com/post/…
  • Supongo que se refiere a la Google Translator Toolkit? Busqué rápidamente y parecía estar orientadas hacia la página web de código y no de VBA. Estoy equivocado? También he seguido el enlace que usted haya proporcionado y otros enlaces relacionados. WOW, a través de Bing Translator es mucho más complicado de lo que he publicado anteriormente.
  • OK, hecho con el traductor de Google! No es libre para el uso de VBA tan pequeña como la mía. Buscando en el uso de Traductor de Microsoft a través de VBA. Acaba de firmar para arriba en Microsoft Azure Marketplace y 2 millones de caracteres/mes de forma gratuita.
  • Feliz para usted, puede por favor, puesto que, como una respuesta para que otras personas puedan beneficiarse en el futuro?
  • JLILI….Problema solucionado con el nuevo código utilizando Microsoft Traducir. Voy a informar sobre lo bien que MS Traducir compara a mis experiencias anteriores con el traductor de Google….
  • JLILI….OK, después de la firma en datamarket.azure.com para crear una cuenta, a continuación, haga clic en la «Aplicación» y crear una «aplicación». Se le proporcionará un id de cliente y una contraseña secreta para la aplicación. Finalmente, para el código VBA, vaya a la sysmod.wordpress.com/2012/01/09/…. He tenido que modificar el código un poco como estoy usando Excel 2003, pero básicamente está listo para su uso después de incluir su ID y Contraseña….RDK

InformationsquelleAutor RDK | 2015-04-09

3 Comentarios

  1. 2

    OK, hecho con el traductor de Google! No es libre para el uso de VBA tan pequeña como la mía. Ahora utilizando el Traductor de Microsoft a través de VBA. Acaba de firmar para arriba en Microsoft Azure Marketplace y obtener 2 millones de caracteres/mes de forma gratuita.

    He estado utilizando este sistema por varios meses y funciona tan bien como el traductor de Google lo hizo. No es perfecto, pero lo suficientemente bueno….RDK

  2. 0

    El siguiente es sólo beta-realización de un google-traducción módulo de vba:
    (utilizado para una rápida traducción de un software)…
    tal vez usted necesita comprobar manualmente el texto después de la corrección.

    Private Function GoogleTranslate(ByVal Text4Translation, ByVal resLang, ByVal srcLang) As String
    Dim IEApp As Object
    Dim IEDoc As Object
    Dim IEUrl As String
    Dim IESrc As String
    Dim IEBeg As Long
    Dim IEEnd As Long
    ' Neues Browser Objekt erzeugen
    Set IEApp = CreateObject("InternetExplorer.Application")
    ' Browser versteckt ausführen (höhere Geschwindigkeit)
    'IEApp.Visible = False
    ' URL Generieren
    Text4Translation = Replace(Text4Translation, " ", "%20")
    IEUrl = "https://translate.google.com/#" & srcLang & "/" & resLang & "/" & Text4Translation
    ' HTML-Datei aufrufen
    IEApp.navigate IEUrl
    Do
    Application.Wait Now + TimeSerial(0, 0, 1)
    Loop Until IEApp.busy = False
    Set IEDoc = IEApp.document
    ' Quelltext einlesen
    IESrc = IEDoc.body.innerHTML
    ' Bereich auslesen
    IEBeg = InStr(1, IESrc, "result_box")
    If IEBeg = 0 Then
    IESrc = " # Nothing found"
    Else
    IEEnd = InStr(IEBeg, IESrc, "</div")
    IESrc = Mid(IESrc, IEBeg + 40, IEEnd - IEBeg - 40)
    IESrc = Replace(IESrc, "<span class=" & Chr(34) & "hps" & Chr(34) & ">", "")
    IESrc = Replace(IESrc, "<span class=" & Chr(34) & "atn" & Chr(34) & ">", "")
    IESrc = Replace(IESrc, "<span class=" & Chr(34) & "hps atn" & Chr(34) & ">", "")
    IESrc = Replace(IESrc, "<span>", "")
    IESrc = Replace(IESrc, "</span>", "")
    If IESrc = "" Then IESrc = " # Instr-Error"
    End If
    Set IEApp = Nothing
    GoogleTranslate = IESrc
    End Function

    resLang = «de»,»es», … (a una audiencia definida)

    srcLang = «de»,»es», … (SourceLanguage)

    (Atención, es sólo una solución!)

    • Es el servicio de Google ahora libre para bajo volumen de uso? Cuando me rescató en Google querían dinero REAL para mi pocos Mb de uso
  3. 0

    Consulte para obtener Fonética de Google transcripción (Como cadena)
    (Está justo debajo de un cuadro de texto, al traducir del inglés el uso de una palabra)

    • Esta respuesta podría ser un comentario, o se puede tratar a los detalles más.

Dejar respuesta

Please enter your comment!
Please enter your name here