とりあえずチケットひとつを追加する方法を説明します。複数チケットの追加とカスタムフィールドはまた後日追加します。 ＶＢＡで以下のマクロを追加します。 Sub appendTicket() ' ループを回らないでticketをひとつだけ追加します Dim rs As New ADODB.Recordset Dim row As Integer cnt = "Driver=SQLite3 ODBC Driver; Database=D:\TracLight\projects\trac\tracplugin\db\trac.db" '**** SQLite3.x Set cnDatabase = New ADODB.Connection cnDatabase.Open cnt Sql = "SELECT * " Sql = Sql + "from ticket t " Worksheets("S
VBAちょっといじくってSQLiteのDBから持ってこれるか確認してみました。まずは結果の画面を見てください。 こんな感じになりました。基準計画を追加してあるのでGanttCalendarより少し情報が多めのチャートになっています。いろいろ試してみましたが、リソース等の計算が難しいため、自動平準化は行わず、リソースの割り当て超過を無視することでなんとか線が引けました。MS-Projectは期間と進捗率をを表示するだけに使うのがいいみたいです。 ということで、割り当て超過や終了見込を見積もるのには、なにか別のものを考える必要があります。あとはアウトラインの階層をつけることが残っています。 使ったVBAはこれです。 Sub Macro4() Dim cnDatabase As ADODB.Connection Dim rs As New ADODB.Recordset Dim row As I
VBAそのものがよくわからないんで、何かご指摘があればコメントお願いします。次のリストは、プロジェクトファイルを開いたときに自動で、今あるものを削除してTracのチケットをコピーしてくるマクロです。ADOを使えるようにするのとセキュリティレベル等は適切に変更してください。 「ThisProject.cls」をダウンロード Function getConnectionString() As String getConnectionString = "Driver=SQLite3 ODBC Driver; Database=D:\TracLight\projects\trac\tracplugin\db\trac.db" End Function Function getSqlString(id As Long) As String ' チケットを抽出するためのSQLを作ります Dim Sql
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
