VBA Code for Integrating ChatGPT API in Excel

Hello Everyone,


I need to use VBA in Excel to rephrase and shorten the text content of each non-empty cell in column B in Bulk using the ChatGPT API. I've written some VBA code to accomplish this, but I'm running into an issue and could use some help.

maybe share your workbook or the code so we may see the code?

Will this satisfy you as a starter?

Code:

---

Function ChatGPT(prompt As String) As String
    ' Remember to replace the placeholder with your actual OpenAI API key
    Const apiKey As String = "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"
    Const requestUrl As String = "https://api.openai.com/v1/chat/completions"
    Dim http As Object, regex As Object, matches As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set regex = CreateObject("VBScript.RegExp")
    Dim requestBody As String
    requestBody = "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""role"": ""user"", ""content"": """ & prompt & """}]}"
    With http
        .Open "POST", requestUrl, False
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "Authorization", "Bearer " & apiKey
        .Send requestBody
    End With
    If http.Status = 200 Then
        With regex
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = """content"":\s*""([^""]+)"""
        End With
        Set matches = regex.Execute(http.ResponseText)
        If matches.Count >= 1 Then
            ChatGPT = Replace(matches(0).SubMatches(0), "\n", vbLf)
        Else
            ChatGPT = "Content not found in response."
        End If
    Else
        ChatGPT = "Error: " & http.Status & " - " & http.StatusText
    End If
    Set http = Nothing
    Set regex = Nothing
End Function

---

So great! Many many thanks.