MS-Project<->Trac連携を作っていると,テストのためのデータを登録するのもすごく大変で,TicketImportPluginを使おうとしたが,チケットタイプが文字化けする等の問題があるので,VBAで作ってみた.といっても,TicketImportPluginに文句言っている人もいないので,VBAの部分をTracXMLRPCの使用例として公開する.かなぁーり汚いコードですが,使い方のサンプルということでお許しを…下の二つのファイルを取り込んで,sheet1のVBAに下のソースを貼り付けると使える.
「TicketEdit.cls」をダウンロード
「MiscModule.bas」をダウンロード
sheet1のVBA
Sub export()
Dim user As String, pw As String, URL As String, projectName As String
Dim settingSheet As Worksheet
Set settingSheet = Sheet1
URL = settingSheet.Cells(2, 3).value 'アドレス
user = settingSheet.Cells(6, 3).value 'アカウント
pw = settingSheet.Cells(7, 3).value 'パスワード
projectName = settingSheet.Cells(3, 3).value '開発プロジェクト名
Dim te As TicketEdit
Set te = New TicketEdit
te.init URL, projectName, user, pw, "Sheet2"
te.export
End Sub
Sub check()
Dim user As String, pw As String, URL As String, projectName As String
Dim settingSheet As Worksheet
Set settingSheet = Sheet1
URL = settingSheet.Cells(2, 3).value 'アドレス
user = settingSheet.Cells(6, 3).value 'アカウント
pw = settingSheet.Cells(7, 3).value 'パスワード
projectName = settingSheet.Cells(3, 3).value '開発プロジェクト名
Dim te As TicketEdit
Set te = New TicketEdit
te.init URL, projectName, user, pw, "Sheet2"
te.check
End Sub
Sub update()
Dim user As String, pw As String, URL As String, projectName As String
Dim settingSheet As Worksheet
Set settingSheet = Sheet1
URL = settingSheet.Cells(2, 3).value 'アドレス
user = settingSheet.Cells(6, 3).value 'アカウント
pw = settingSheet.Cells(7, 3).value 'パスワード
projectName = settingSheet.Cells(3, 3).value '開発プロジェクト名
Dim te As TicketEdit
Set te = New TicketEdit
te.init URL, projectName, user, pw, "Sheet2"
te.update
End Sub
exportして変更箇所をチェックした画面

URL, user, pw, projectNameはsheet1から持ってきていますが面倒なら次のように直接マクロを変更して設定してください.
URL = http://localhost/trac"
user = "admin"
pw = "admin"
projectName = "SampleProject"
(ちょっと不親切なので追加しました)
最近のコメント