Excel VBAでTrac(SQLite)にチケットを追加する。同時にカスタムフィールドも追加する - いつまでもとりあえず

チケットとカスタムフィールドまでを一気に登録してしまうマクロを作ってみましょう。 カスタムフィールドの追加はチケットを追加した後に、ticket_changeとticket_customを追加します。 Sub appendTicket() ' ループを回ってチケットを追加 Dim cnDatabase As ADODB.Connection 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 = "SELE