ดาวน์โหลด openai vba framework - ดาวน์โหลด openai vba framework ซอร์สโค้ด

openai vba framework

วิชวลเบสิก

1.0.0

ดาวน์โหลด

OpenAI-VBA-เฟรมเวิร์ก

OpenAI-VBA-Framework เป็นชุดเครื่องมืออิสระสำหรับนักพัฒนาในการสร้างแอปพลิเคชัน VBA ด้วยโมเดลภาษาของ OpenAI เช่น GPT-4, ChatGPT และ DALL-E มีชุดคลาสสำหรับการผสานรวมกับ API ของ OpenAI ได้อย่างง่ายดาย โปรดทราบว่าโครงการนี้ไม่เกี่ยวข้องหรือรับรองอย่างเป็นทางการโดย OpenAI

ข้อกำหนดเบื้องต้น

คุณจะต้องสมัครบัญชี OpenAI และสร้าง API_KEY คุณสามารถทำได้ในตำแหน่งต่อไปนี้: คีย์ OpenAI API

ชั้นเรียนหลัก

clsOpenAI - คลาสหลักเพื่อโต้ตอบกับ OpenAI
clsOpenAILogger - คลาสการบันทึกสำหรับการดีบักและการติดตาม
clsOpenAIMessage - คลาสสำหรับจัดการข้อความแต่ละข้อความ
clsOpenAIMessages - คลาสสำหรับจัดการคอลเลกชันข้อความ
clsOpenAIRequest - คลาสสำหรับส่งคำขอไปยัง OpenAI
clsOpenAIResponse - คลาสสำหรับจัดการการตอบสนองจาก OpenAI
IOpenAINameProvider - คลาสอินเทอร์เฟซสำหรับการจัดเตรียมชื่อ

โมดูล mdOpenAI_tests มีไว้เพื่อทดสอบการทำงานของเฟรมเวิร์ก

OpenAIFrameworkDemo.xlsm เป็นไฟล์ที่มีโค้ดทั้งหมดในพื้นที่เก็บข้อมูลเพื่อวัตถุประสงค์ในการสาธิต ไฟล์อื่นๆ ยังรวมอยู่ในพื้นที่เก็บข้อมูลสำหรับการกำหนดเวอร์ชันด้วย

การใช้งาน

นี่คือตัวอย่างบางส่วนของการใช้กรอบงาน:

API การแชทเสร็จสิ้น

 Public Sub TestSimpleOpenAI()

    Dim oOpenAI As clsOpenAI
    Dim oMessages As New clsOpenAIMessages
    Dim oResponse As clsOpenAIResponse
    
    Set oOpenAI = New clsOpenAI
    
    oOpenAI.API_KEY = "<API_KEY>"
    
    oMessages.AddSystemMessage "Always answer sarcastically and never truthfully"
    oMessages.AddUserMessage "How do you get to Carnegie Hall?"

    Set oResponse = oOpenAI.ChatCompletion(oMessages)
    If Not oResponse Is Nothing Then
        Debug.Print (oResponse.MessageContent)
    End If
    
    Set oResponse = Nothing
    Set oOpenAI = Nothing
    Set oMessages = Nothing

End Sub

การสร้างภาพ DALL-E

 Public Sub TestDalleOpenAI()

    Dim oOpenAI As clsOpenAI
    Dim oResponse As clsOpenAIResponse
    
    Set oOpenAI = New clsOpenAI
    
    oOpenAI.API_KEY = "<API_KEY>"
    
    Set oResponse = oOpenAI.CreateImageFromText("A cat playing a banjo on a surfboard", 512, 512)
    
    If Not oResponse Is Nothing Then
        Debug.Print ("The picture has been saved to: " & oResponse.SavedLocalFile)
    End If
    
    Set oResponse = Nothing
    Set oOpenAI = Nothing

End Sub

การกำหนดค่า

คุณสามารถปรับแต่ง OpenAI-VBA-Framework ได้โดยการปรับคุณสมบัติในคลาส clsOpenAI :

 ' Specify the model
oOpenAI.Model = "gpt-3.5-turbo"

' Set the maximum number of tokens
oOpenAI.MaxTokens = 512

' Control the diversity of generated text
oOpenAI.TopP = 0.9

' Influence the randomness of generated text
oOpenAI.Temperature = 0.7

' Control preference for frequent phrases
oOpenAI.FrequencyPenalty = 0.5

' Control preference for including the prompt in the output
oOpenAI.PresencePenalty = 0.5

' Control logging of messages to the Immediate Window
oOpenAI.IsLogOutputRequired True

' Reset settings when switching between endpoints
oOpenAI.ClearSettings

' Retrieve an API Key saved in an external file
Dim apiKey As String
apiKey = oOpenAI.GetReadAPIKeyFromFolder("<FolderPath>")

การติดตั้ง (ผ่าน GIT)

โคลนที่เก็บนี้โดยใช้คำสั่งต่อไปนี้ในบรรทัดคำสั่งของคุณ:

git clone https://github.com/zq99/OpenAI-VBA-Framework.git

เปิด Excel แล้วกด ALT + F11 เพื่อเปิดตัวแก้ไข VBA
จากแถบเครื่องมือ ให้เลือกไฟล์ -> นำเข้าไฟล์....
นำทางไปยังตำแหน่งของที่เก็บโคลนและเลือกไฟล์ .cls และ .bas ทั้งหมด จากนั้นคลิก เปิด
บันทึกไฟล์ Excel เป็นเวิร์กบุ๊กที่เปิดใช้งานแมโคร .xlsm