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
Otro artículo que puede resultarte interesante relacionado con el uso de las inteligencias artificiales es este sobre…
Deja una respuesta