<\/p>\n
Schlagwörter wie OpenAI oder ChatGPT beherrschen die Schlagzeilen der Welt. Wir wollen nicht entscheiden, ob es gut oder schlecht ist, ob es Dir den Job wegnimmt oder ob es eine super Unterstützung ist, sondern wir zeigen in diesem Artikel einfach, wie Du es per VBA steuern und in eigenen Anwendungen nutzen kannst. Dabei greifen wir auf die Rest API von OpenAI zu und ermöglichen, dass Du die Antworten auf die mit der Anwendung eingegebene Frage nutzen kannst. <\/p>\n
Video passend zu diesem Artikel:<\/b><\/p>\n Sie sehen gerade einen Platzhalterinhalt von YouTube<\/strong>. Um auf den eigentlichen Inhalt zuzugreifen, klicken Sie auf die Schaltfl\u00e4che unten. Bitte beachten Sie, dass dabei Daten an Drittanbieter weitergegeben werden.<\/p>\n Mehr Informationen<\/a> <\/div>\n <\/b><\/p>\n Ob ChatGPT, OpenAI et cetera nun nützlich für uns Entwickler sind oder nicht: Wir können per Rest API darauf zugreifen, also ist es auf jeden Fall interessant! Den Einstieg findest Du unter folgendem Link:<\/p>\n Entweder Du hast schon einen Zugang, dann meldest Du Dich dort unter Log In <\/b>an, oder Du registrierst Dich auf der Seite mit dem Button Sign up<\/b>. Dazu benötigst Du einen Google- oder Microsoft-Account oder Du registrierst Dich neu mit Deiner E-Mail-Adresse. Im letzteren Fall klickst Du noch den Bestätigungslink in der an Dich versendeten E-Mail an, um die Registrierung abzuschließen. Schließlich fragt OpenAI noch einige Informationen wie Name, Telefonnummer et cetera ab. Die Telefonnummer muss mit dem an diese Nummer gesendeten Code bestätigt werden.<\/p>\n Auf der Plattform findest Du anschließend oben rechts die Möglichkeit, auf Deinen Account zuzugreifen und dort finden wir auch den Befehl View API Keys<\/b>. (siehe Bild 1). Während wir Abfragen über die Webseite ohne Weiteres absenden können, weil wir dort angemeldet sind, benötigen wir für den Zugriff über die Rest API einen API Key, um uns zu authentifizieren.<\/p>\n Bild 1: Von OpenAI zum API Key<\/span><\/b><\/p>\n Warum sollen wir uns überhaupt anmelden und können OpenAI nicht anonym nutzen? Weil es kostenpflichtig ist. Die aktuellen Preise für die Nutzung der verschiedenen APIs finden wir auf der folgenden Seite:<\/p>\n Allerdings werden wir nicht sofort zur Kasse gebeten, sondern bekommen Zugriffe im Wert von 18$ geschenkt, die wir innerhalb von drei Monaten ab unserer Registrierung für zum Ausprobieren einsetzen können. Genug, um einige Experimente von unserer VBA-Anwendung aus durchzuführen.<\/p>\n Wir benötigen also einen API Key, und den holen wir uns unter dem folgenden Link:<\/p>\n Hier klicken wir einfach auf Create new secret key <\/b>(siehe Bild 2). Den damit gewonnenen Key speichern wir in der Zwischenablage und fügen ihn dann als Konstante in ein VBA-Standardmodul ein:<\/p>\n Bild 2: API key holen<\/span><\/b><\/p>\n Danach geht es auch direkt ans Werk. Was wir programmieren wollen, ist eine allgemein nutzbare VBA-Funktion, die wir in jede beliebige Office-Anwendung einbauen und von dort aus aufrufen können. Ein einfacher Aufruf soll wie folgt aussehen:<\/p>\n Die Antwort von OpenAI lautet:<\/p>\n Bis zu diesem Ergebnis fehlen uns allerdings noch ein paar Zeilen Code.<\/p>\n Die Endpoints der Rest API und ihre Beschreibung finden wir unter dem folgenden Link:<\/p>\n Uns interessiert hier speziell die Completions-API, mit der wir im Playground interessante Ergebnisse erhalten haben. Wenn Du erstmal einige Experimente direkt mit OpenAI durchführen möchtest, kannst Du das im Playground unter der folgenden Adresse tun:<\/p>\n Hier kannst Du beispielsweise eine Frage wie die folgende stellen:<\/p>\n Die Antwort findest Du in Bild 3 – das ist wirklich beeindruckend gemessen daran, welchen Aufwand man als Anfänger sonst hätte, passenden Code im Internet zu suchen! Der Code ist nicht perfekt, aber man könnte ihn direkt in ein VBA-Modul übernehmen und ausprobieren. Auf der rechten Seite findest Du einige Parameter, die wir auch bei Verwendung der Rest API nutzen können – und die in der Dokumentation genauer beschrieben werden.<\/p>\n Bild 3: Beispiel für das Ermitteln von Code per OpenAI<\/span><\/b><\/p>\n Wenn wir die Rest API aufrufen wollen, benötigen wir folgende Informationen:<\/p>\n Die Funktion OpenAI <\/b>erwartet lediglich die Frage, die wir an die Completions-API senden wollen, und liefert das Ergebnis als Antwort zurück (siehe Listing 1). Die Funktion speichert den API-Endpunkt in der Variablen strURL <\/b>und die Zugriffsmethode in strMethod<\/b>. Außerdem fügt sie in der Variablen strJSON <\/b>das JSON-Dokument zusammen, welches die Frage\/Aufgabe und die Parameter enthält. Dies sieht später etwa so aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>\n\n<\/div>\n\n<\/div>\n\n Inhalt entsperren<\/a> Erforderlichen Service akzeptieren und Inhalte entsperren<\/a> <\/div>\n<\/p><\/div>\n<\/p><\/div>\n<\/div>\nhttps:\/\/openai.com\/api\/<\/pre>\n
![\"Von](\"..\/fileadmin\/_temp_\/2023_02\/pic_355_001.png\")
<\/p>\nhttps:\/\/openai.com\/api\/pricing\/<\/pre>\n
API Key holen<\/h2>\n
https:\/\/platform.openai.com\/account\/api-keys<\/pre>\n
![\"API](\"..\/fileadmin\/_temp_\/2023_02\/pic_355_002.png\")
<\/p>\nConst cstrAPIkey As String<\/span> = \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\"<\/pre>\nErste Abfrage an OpenAI<\/h2>\n
Debug.Print<\/span> OpenAI(\"Wie kann ich OpenAI in Microsoft Office nutzen?\")<\/pre>\nOpenAI kann nicht direkt in Microsoft Office genutzt werden, da es sich dabei um zwei verschiedene Programme handelt. Allerdings können Sie die Technologien, die OpenAI entwickelt hat, in Microsoft Office verwenden. Zum Beispiel können Sie Microsoft Word mit einer OpenAI-Künstlichen Intelligenz (AI) erweitern, um automatisierten Text zu schreiben. Auch Microsoft Excel kann mit OpenAI-Technologien für maschinelles Lernen, Statistiken und Prognosen erweitert werden.<\/pre>\n
Die Dokumentation der OpenAI-API<\/h2>\n
https:\/\/platform.openai.com\/docs\/api-reference\/introduction<\/pre>\n
https:\/\/platform.openai.com\/playground<\/pre>\n
Schreibe eine VBA-Prozedur, mit der ich alle Datensätze einer Tabelle namens tblKunden mit den Feldern KundeID, Vorname und Nachname durchlaufen kann.<\/pre>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2023_02\/pic_355_003.png\")
<\/p>\nBestandteile des Aufrufs der Rest API von OpenAI<\/h2>\n
\n
Funktion zum Zusammenstellen des Aufrufs und zum Parsen des Ergebnisses<\/h2>\n
Public Function <\/span>OpenAI(strQuestion As String<\/span>) As String<\/span>\r\n Dim <\/span>strJSON As String<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strMethod As String<\/span>\r\n Dim <\/span>objJson As Object<\/span>\r\n strURL = \"https:\/\/api.openai.com\/v1\/completions\"\r\n Dim <\/span>strResponse As String<\/span>\r\n strMethod = \"POST\"\r\n strJSON = strJSON & \"{\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"model\"\": \"\"text-davinci-003\"\",\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"prompt\"\": \"\"\" & strQuestion & \"\"\",\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"temperature\"\": 0.7,\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"max_tokens\"\": 256,\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"top_p\"\": 1,\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"frequency_penalty\"\": 0,\" & vbCrLf<\/span>\r\n strJSON = strJSON & \" \"\"presence_penalty\"\": 0\" & vbCrLf<\/span>\r\n strJSON = strJSON & \"}\"\r\n If <\/span>Request(strURL, strMethod, strJSON, strResponse) Then<\/span>\r\n Set<\/span> objJson = ParseJson(strResponse)\r\n OpenAI = objJson.Item(\"choices\").Item(1).Item(\"text\")\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t