kintoneのデータをエクセル帳票で表示させる仕組み

今回はkintoneのデータをエクセル帳票で表示させる方法について解説してみます。

この記事の目次

何故それをしようと思ったのか？

お客様でkintoneを使われている組織がいくつかありますが、よく課題として出るのは「帳票」でした。

もちろん、プリントクリエイターやレポトンなどのプラグインは検討するものの、レコードの要件が合わなかったり、ユーザがレイアウト調整をしたりするのが難しかったりするため、プラグインの利用を見送るケースがしばしばありました。

pc.kintoneapp.com

kintone（キントーン）連携サービス | プリントクリエイター

https://pc.kintoneapp.com

サイボウズ kintone（キントーン）連携サービスのプリントクリエイターはノンプログラミングできれいな帳票印刷をすることができます。複数の帳票レイアウトが利用でき、印刷枚数の制限もありません。サイボウズ kintoneと一緒にご利用ください。

kintone連携帳票出力ソリューション「Repotone（レポトンU）」

kintone連携帳票出力プラグイン「RepotoneU（レポトンU）」

https://www.repotone.com

「Repotone（レポトン）」はkintoneと連携してPDFやExcelなどの帳票出力を行うソリューション。クラウド連携型とプラグイン完結型2種類、3つのラインナップで様々な帳票に対応します。

そこで、普段使い慣れたエクセル帳票に、ダイレクトにkintoneのデータを表示することで、その課題を解決しました。

エクセルを使ってkintoneにアクセスする方法

kintoneからのデータ取得にはエクセルVBAからkintoneのAPIを利用します。

大まかな流れとしては図のようになります。

仕組みとしては以上になりますが、ユーザ目線で言えば、コードは完全に隠蔽されており、「データ表示用シート」で、kintoneアプリ上のデータを一意に特定する主キーを入力すれば、自動的にデータが表示される形になります（Worksheet_Calculate イベントで①の処理を走らせます）。

データ表示用シートは通常のエクセルファイルとして自由に編集できるので、ユーザが要件に合わせて柔軟にレイアウトを組むことが出来ます。

コードの一部を公開します

一部になりますが、具体的なコードを公開します。データ構造等が分かってしまうので、ところどころ端折っているので（定数・変数宣言など）、参考として読んで下さい。コードハイライトがVBに対応していないため読みにくいです。

なお、JSONのパースについては、vba-jsonというクラスライブラリを拝借しております。

code.google.com

Google Code Archive - Long-term storage for Google Code Project Hosting.

https://code.google.com/archive/p/vba-json/

Public Sub getAllData()

    Dim ret As Boolean
    Dim strKey As String
    
    '--------------------------------------------------------------------
    '  変数定義
    '--------------------------------------------------------------------
    Dim objHttpReq As MSXML2.XMLHTTP60 ' XMLHTTP オブジェクト
    Dim strJSON As String              ' レスポンスで受け取るJSONデータ
    Dim strURL As String               ' アクセス先URL
    Dim strQuery As String             ' 検索文字列
    Dim strSubDomain As String         ' サブドメイン
    Dim strAppId As String             ' アプリID
    Dim strLogin As String             ' ログイン情報
    Dim objJSON         As Object      ' JSONオブジェクト
    Dim wsMe As Worksheet              ' 自ワークシートオブジェクト
    
    Set wsMe = Worksheets("〇〇〇データ")
    '〇〇番号で検索
    strKey = wsMe.Cells(1, 2).value

    '--------------------------------------------------------------------
    '  接続情報
    '--------------------------------------------------------------------
    strSubDomain = Worksheets("システム設定").Cells(2, 2).value
    strAppId = APP_CONTRACT '
    strLogin = Worksheets("システム設定").Cells(5, 2).value
    
    '------------------------------------------------------------------
    ' 検索文字付きURLを作成する
    '------------------------------------------------------------------
    strQuery = "KEY=""" & strKey & """"
    strQuery = URL_Encode(strQuery)
    strURL = "https://" & strSubDomain & ".cybozu.com/k/v1/records.json?app=" & strAppId & "&query=" & strQuery
       
    '------------------------------------------------------------------
    ' XMLHTTP オブジェクトを生成する
    '------------------------------------------------------------------
    Set objHttpReq = CreateObject("MSXML2.XMLHTTP")
    objHttpReq.Open "GET", strURL, False
    '------------------------------------------------------------------
    ' XMLHTTP のリクエストヘッダーを指定する
    '------------------------------------------------------------------
    ' ログイン認証
    objHttpReq.setRequestHeader "X-Cybozu-Authorization", strLogin
    ' Basic 認証
    'objHttpReq.setRequestHeader "Authorization", "Basic " & <ベーシック認証情報>
    'キャッシュ対策（常にレスポンスが取得できる状態にする）
    objHttpReq.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"
    
    '------------------------------------------------------------------
    ' リクエストを送信する
    '------------------------------------------------------------------
    objHttpReq.send (Null)
    
    '------------------------------------------------------------------
    ' レスポンスを取得する
    '------------------------------------------------------------------
    'レスポンス情報を変数に格納する
    strJSON = objHttpReq.responseText
    
    Set objJSON = parseJSON(strJSON)


    '取得したレコードからフィールドの値をシートに書き込み

    Dim record As Variant
   
    For Each record In objJSON("records") '主キー指定なので、1行or0行の結果となる。
   
        With wsMe
            .Cells(lngRow, COL_○○○○).value = record.Item("○○○○").Item("value")
            .Cells(lngRow, COL_××××).value = record.Item("××××").Item("value")           
            
        End With
        lngRow = lngRow + 1
        i = i + 1

    Next record

    If i = 0 Then
        MsgBox "該当データがありません。KEY：" & strKey
        Exit Sub
    End If

End Sub

このコードは対応するアプリごとに作成する必要があるため、導入時は若干煩雑ですが、一度作ってしまえば再利用可能です。