【VBA-API】OpenAIのGPT-3を使ってブログ記事を作成する(ChatGPT API2023年導入予定)

こんにちは、blueです。

AIを使ってブログ記事を書きたいです。OpenAIのAPIの使い方を教えてください

以上のようなOpenAIのAPIについての要望にお答えします。

✓この記事の内容

OpenAIのAPIの種類と使用方法
VBAを使ったブログ記事の作成方法
OpenAI使用時の注意事項

今回の記事では記事作成として、

「ブログのアイデア」
「ブログ記事」
「ブログ画像」

を取得することにします。最終的には以下の様な資料がボタン一つで作成できるようになります。一部は有料ですが、無料部分だけでも出力は可能ですので是非読んでいってください。

OpenAI、GPT-3とは
OpenAIを使ってブログ記事を作成する方法
OpenAI APIを使う際の注意点
今回のまとめ

OpenAI、GPT-3とは

OpenAIは人工知能の研究・開発を行う企業です。
開発した技術はオープンソースとして公開しています。

OpenAIは複数のAPIを提供しています。例えば以下の様なものがあります。

GPT-3: 2020年に登場した文章の生成を行うAPI（ChatGPTの前身）。
機能と価格が異なる複数のモデルがある。テキストから文章を生成することができる

DALL·E（ダリ） 2: 2022年に登場した画像生成を行うAPI。
テキストから画像を生成することができる

今回は文章生成と画像生成のAPIを使ってブログ記事を作成します。

OpenAIを使ってブログ記事を作成する方法

GPT-3, DALL-E2でVBAを用いて一連のブログ記事を作成する方法は以下になります。

OpenAIでAPIキーを取得する
VBAでHTTPリクエストの準備をする
GPT-3を用いて「ブログのアイデア」を取得する
GPT-3を用いて「ブログ記事」を取得する
DALL-E2を用いて「ブログ画像」を取得する

以下で詳しく説明します。

OpenAIでAPIキーを取得する

OpenAIでAPIキーを取得する手順は以下の通りです。

1 https://openai.com/api/にアクセスする
2 右上の「SIGN UP」をクリックする

3 「Create your account」でEmail address、Passwordを記載する。GoogleやMicrosoft Acountの認証を用いてもよい

4 受け取ったメールに記載されているリンクをクリックし、OpenAIのサイトを開く。
5 表示されたアカウントをクリックし、「View API keys」をクリックする

5 表示された「API key」をメモしておく

これでAPIを使用できる環境ができます。

VBAでHTTPリクエストできる環境を整える

VBAでHTTPリクエストをする為に、「Microsoft XML, v6.0」の参照設定をしておきます。
Microsoft XMLとはMicrosoftでXMLベースのアプリケーションを構築するためのライブラリです。
簡単に言うとMicrosoftでXMLファイルを操作するためのソフトです。

以下参照

MSXML(Wikipedia(英語))
MSXMLとは｜「分かりそう」で「分からない」でも「分かった」気になれるIT用語辞典

なお、VBAで扱う場合の参照設定の方法は以下です。

VBEメニューバーの「ツール」-「参照設定」から「Microsoft XML, v6.0」にチェックを入れる

これだけです。

GPT-3を用いて「ブログのアイデア」を取得する

「ブログのアイデア」をイミディエイトウィンドウに表示させるサンプルコードは以下になります。
なお「あなたのAPIキー」に関してはOpenAIで取得したキー、「KeyWord」の**に関しては任意の文字列を入れてください。

■ブログのアイデアを取得するコード

Sub CreateBlogIdea()
        
    Dim url As String
    Dim APIkey As String
    Dim KeyWord As String
    
    url = "https://api.openai.com/v1/completions "
    APIkey = "あなたのAPIキー"

    KeyWord = "**に関するブログのアイデアを生成してください"
    
    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60
    
    Dim requestBody As String
    requestBody = "{""model"":""text-davinci-003"",""prompt"":""" & KeyWord & """,""max_tokens"":2000,""temperature"":0}"
    
    With http
        Call .Open("POST", url, False)
        Call .setRequestHeader("Content-Type", "application/json")
        Call .setRequestHeader("Authorization", "Bearer " & APIkey)
        Call .send(requestBody)
        
        Do
            If .readyState = 4 Then Exit Do
            DoEvents
        Loop
                
        '情報を出力(イミディエイトウィンドウ)
        Debug.Print .Status
        Debug.Print .responseText
        
    End With
 
End Sub

GPT-3を用いて「ブログ記事」を取得する

「ブログ記事」をイミディエイトウィンドウに表示させるサンプルコードは以下になります。
同様に「あなたのAPIキー」に関してはOpenAIで取得したキー、「KeyWord」の**に関しては任意の文字列を入れてください。

■ブログ記事を取得するコード

Sub CreateBlog()
        
    Dim url As String
    Dim APIkey As String
    Dim KeyWord As String
    
    url = "https://api.openai.com/v1/completions "
    APIkey = "あなたのAPIキー"

    KeyWord = "**に関する詳細なブログ記事を書いてください"
    
    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60
    
    Dim requestBody As String
    requestBody = "{""model"":""text-davinci-003"",""prompt"":""" & KeyWord & """,""max_tokens"":2000,""temperature"":0}"
    
    With http
        Call .Open("POST", url, False)
        Call .setRequestHeader("Content-Type", "application/json")
        Call .setRequestHeader("Authorization", "Bearer " & APIkey)
        Call .send(requestBody)
        
        Do
            If .readyState = 4 Then Exit Do
            DoEvents
        Loop
                
        '情報を出力(イミディエイトウィンドウ)
        Debug.Print .Status
        Debug.Print .responseText
    
    End With
 
End Sub

「猫に関するブログのアイデア」「猫の最新トレンドに関するブログ記事」について取得した結果は以下になります。

（ここではイミディエイトウィンドウに表示された結果の一部分をWordに貼り付けて適宜改行しています）

これだけでも十分に利用することはできますが、実際は1行で表示されること、不要な情報が入っているという問題もありますので以下の記事ではExcelに出力する為のコードも含めて記載しています。

以下は有料記事とはなりますがExcelに転記するコードを追加しています。期間限定で低く設定していますのでぜひ見てみてください。

【VBA-API】OpenAIのGPT-3を使ってブログのアイデアを作成する

note（ノート）

【VBA-API】OpenAIのGPT-3を使ってブログのアイデアを作成する(ChatGPT API 2023年...

https://note.com/blue201507/n/n1697a7f9dcae

ここでは、GPT-3を使ってブログのアイデアを生成し、Excelに出力するコードについて紹介します。なお、使用する前の準備、イミディエイトウィンドウで結果を取得するコードについては以下を参考ください。 https://powervbadesktop.com/web55 有料記事に関しては以下を公開していますブログのアイデアを生成させ、Excelに出力させる全コード各コードに関する詳細な説明 Excel VBAファイルとりあえず、ブログのアイデアを生成をしたい人、コードの中身について勉強したい方にお勧めします。

【VBA-API】OpenAIのGPT-3を使ってブログ記事を作成する

note（ノート）

【VBA-API】OpenAIのGPT-3を使ってブログ記事を作成する(ChatGPT API 2023年導入予...

https://note.com/blue201507/n/n6e79d90d65f0

ここでは、GPT-3を使ってブログ記事を生成し、Excelに出力するコードについて紹介します。なお、使用する前の準備、イミディエイトウィンドウで結果を取得するコードについては以下を参考ください。 https://powervbadesktop.com/web55 有料記事に関しては以下を公開していますブログ記事を生成させ、Excelに出力させる全コード各コードに関する詳細な説明 Excel VBAファイルとりあえず、ブログ記事を生成をしたい人、コードの中身について勉強したい方にお勧めします。

DALL-E2を用いて「ブログ画像」を取得する

「ブログ画像」のURLをイミディエイトウィンドウに表示させるサンプルコードは以下になります。
同様に「あなたのAPIキー」に関してはOpenAIで取得したキー、
「KeyWord」の**に関しては任意の文字列を入れてください。

■ブログ画像を取得するコード

Sub GenerateImage()
        
    Dim url As String
    Dim APIkey As String
    Dim KeyWord As String
    
    url = "https://api.openai.com/v1/images/generations"
    APIkey = "あなたのAPIキー"

    KeyWord = "**のイラスト"
    
    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60
    
    Dim requestBody As String
    requestBody = "{""prompt"":""" & KeyWord & """,""num_images"":1,""size"":""512x512""}"
    
    With http
        Call .Open("POST", url, False)
        Call .setRequestHeader("Content-Type", "application/json")
        Call .setRequestHeader("Authorization", "Bearer " & APIkey)
        Call .send(requestBody)
        
        Do
            If .readyState = 4 Then Exit Do
            DoEvents
        Loop
        
         
        '情報を出力(イミディエイトウィンドウ)
        Debug.Print .Status
        Debug.Print .responseText
        
    End With
 
End Sub

なお、今回取得できるものはURLになります。

このURLをWebのアドレスバーにコピーすると・・・

上記のような画像が表示されます。

以下も有料記事ですが画像をフォルダにダウンロードするコードを追加しています。こちらも期間限定で低く設定していますのでぜひ見てみてください。
URLをコピーして保存する手間が省けるのでぜひ使ってください。

【VBA-API】OpenAIのDALL-E2を使って画像を生成させる

note（ノート）

【VBA-API】OpenAIのDALL-E2を使って画像を生成させる(ChatGPT API 2023年導入予定...

https://note.com/blue201507/n/n935ed9c2966c

ここでは、DALL-E2を使って画像生成をさせ、ファイルとしてダウンロードするコードについて紹介します。なお、使用する前の準備、画像URLを取得するコードについては以下を参考ください。 https://powervbadesktop.com/web55 有料記事に関しては以下を公開しています画像生成をさせ、ファイルとしてダウンロードする全コード HTTPリクエストに関する詳細な説明画像のダウンロードに関する詳細な説明とりあえず、画像ファイルをダウンロードしたい人、コードの中身について勉強したい方にお勧めします。

OpenAI APIを使う際の注意点

OpenAIが提供しているAPIの利用は無料ではありません。

ただOpenAIの会員登録を行うと、その際に18ドル相当のクレジットが付与されます。
このクレジットは3ヶ月間有効となっており、新規登録から3ヶ月すぎるまでは、OpenAIのAPI利用時に18ドル分のクレジットが充当されます。

そのため、トライアルでOpenAIのAPIを利用する場合、このクレジットの範囲内で収まれば、無料利用可能です。

使用料金は以下の様になっています。

「ブログアイデア」「ブログ記事」生成の料金

Pricing – OpenAI

今回のコードでは一番高性能なDavinciモデルを使っているので1000トークンあたり0.02ドルとなります。
今回の記事作成についてはmax2000トークンまでとしていますので1記事で0.04ドルとなります。結果として400回以上できるのでトライアルには十分です。
トークンに関しては英語では1単語=1トークンですが、日本語の場合は多くなるようです。
入力テキストがどれぐらいのトークンか知りたい場合は、OpenAIのPlaygroundで確認できます。