投稿

9月, 2016の投稿を表示しています

Redmine を Excel から触る(Rest API)

Redmine にはRest API があって、有効設定にするとHTTP経由でXMLかjsonでCRUD(create,read,update,delete)できるらしい。 参考ページ 読み込み  Redmineのユーザー情報をEXCEL(VBA)で取得してみた   http://qiita.com/slangsoft/items/ba577745676af658812f 書き込み  OutlookVBAでRedmineへRestAPI経由でチケット登録する例   http://qiita.com/haradaj/items/f5d8e2aab6b3ee5f4108 本家リファレンス   http://www.redmine.org/projects/redmine/wiki/Rest_api 作ったもの 割と汎用的に読み込みと新規作成ができるようになった。まずはクラス。 ' clsRedmine.cls Option Explicit Private baseUri As String Private apiKey As String Private dom As Object Private Sub Class_Initialize()     baseUri = vbNullString     apiKey = vbNullString     Set dom = CreateObject("MSXML2.DOMDocument")     dom.async = False     End Sub Public Function postListSheet(strXmlName As String, ws1 As Worksheet, strItem As String) 'ws1 のデータを1行ずつ strXmlName に POST する。     Dim var1 As Variant     Dim i As Long, j As Long     Dim str1 As String     var1 = ws1.Cells...