Cómo Crear una Macro en Excel para Traducir Idiomas Usando ChatGPT-4O y VBA

función traducción en excel

Cómo Crear una Macro en Excel para Traducir Idiomas Usando ChatGPT-4O y VBA

OpenAI ha lanzado recientemente el nuevo ChatGPT GPT-4o, una versión avanzada de su modelo de lenguaje que mejora significativamente la comprensión y generación de texto.

Esta actualización ofrece una mayor precisión en tareas lingüísticas como la traducción de textos.

En esta entrada de blog, te mostraremos cómo puedes aprovechar esta increíble tecnología para crear una función en Excel utilizando VBA para traducir texto automáticamente.

En concreto, vamos a aprender cómo crear una función en Excel utilizando VBA para traducir texto automáticamente.

Esta función utilizará la API de OpenAI con el modelo GPT-4O para detectar el idioma del texto y traducirlo al idioma que elijamos.

En el vídeo de YouTube, se explica paso a paso:

Macro para integrar OpenAI con Excel:

				
					Function Traducira(texto As String, idiomaDestino As String) As String
    Dim apiKey As String
'Dim idiomaDestino As String

    apiKey = "--------------AQUÍ TIENES QUE PONER TU NÚMERO DE API----------------"

    Dim http As Object
    Dim url As String
    Dim postData As String
    Dim respuesta As String
    Dim json As Object

    ' Construye la URL de la API de OpenAI
    url = "https://api.openai.com/v1/chat/completions"

    ' Prepara los datos de la solicitud en formato JSON
    postData = "{""model"": ""gpt-4o"",""messages"": [{""role"": ""system"", ""content"": ""Eres un asistente útil que traduce texto. pero solo devuelve la tracuccion""}, {""role"": ""user"", ""content"": ""Translate the following text to " & idiomaDestino & ": " & texto & """}], ""max_tokens"": 100}"

    ' Crea el objeto HTTP
    Set http = CreateObject("MSXML2.XMLHTTP")

    ' Envía la solicitud a la API
    With http
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & apiKey
        .send postData
    End With

    ' Obtiene la respuesta
    respuesta = http.responseText

    ' Extrae la traducción de la respuesta JSON
    Set json = JsonConverter.ParseJson(respuesta)

    ' Maneja el caso de error en la respuesta
    On Error Resume Next
    Traducira = Trim(json("choices")(1)("message")("content"))
    On Error GoTo 0

    ' Limpia
    Set http = Nothing
    Set json = Nothing
End Function
				
			

Cómo traducir idiomas usando OPENAI , CHATGPT-4o y Excel

Estos son los fantásticos resultados de la programación de una macro que integra la API de OPENAI con Microsoft Excel.

Para poder deserializar la solicitud HTTP a OpenAi en Excel necesitaremos incluir el módulo JsonConverter.bas que podemos descargar de GitHub, desde el siguiente enlace:

https://github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas

Macro vba excel traducir idiomas con openAI chatgpt-4o

Otro artículo que puede resultarte interesante relacionado con el uso de las inteligencias artificiales es este sobre

Partager cette publication

Leave a Reply

Your email address will not be published. Required fields are marked *