質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Redmine

Redmineは、プロジェクトのタスク管理、進捗管理、情報共有が可能な、 オープンソースプロジェクト管理ソフトウェアです。

解決済

redmine api チケット出力でカスタムフィールドの値を出力できない。

tokumeikibou162
tokumeikibou162

総合スコア19

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Redmine

Redmineは、プロジェクトのタスク管理、進捗管理、情報共有が可能な、 オープンソースプロジェクト管理ソフトウェアです。

1回答

0評価

0クリップ

691閲覧

投稿2022/01/12 10:16

編集2022/01/14 12:38

いつもお世話になります。

下記サイトを参考にredmine からvbaを使ってチケット出力を行っており、デフォルトのiDやトラッカーは問題なく取得出来ています。
しかしカスタムフィールドで登録した値に関しては以下のように記載してみても、エラーが発生し取得できない状況です。

よろしくお願いします。

ソース

vba

Dim baseurl As String, targeturl As String Dim header As Integer, row As Integer Dim min As Integer, max As Integer Dim cnt As Integer Dim ticketid As String Dim dom As Object Dim issue As Object baseurl = "http://redmine/" header = 5 row = header + 1 min = 1 max = 100 cnt = min '[A~G]欄の[row~(max-min+1)]行まで一気にクリアする Range(Cells(row, 1), Cells(max - min + 1, 7)).Clear Do While Cells(row, 1) = "" ticketid = Trim(str(cnt - header)) 'APIアクセスキーなし targeturl = baseurl + ticketid + ".xml" 'APIアクセスキーあり 'targeturl = baseurl + ticketid + ".xml?key=aaaaaaaaaaaaaaaaaaaa" Set dom = CreateObject("MSXML2.DOMDocument") dom.async = False dom.setProperty "ServerHTTPRequest", True dom.Load (targeturl) Set issue = dom.ChildNodes.Item(1) If Not (issue Is Nothing) Then Cells(row, 1) = issue.getElementsByTagName("id").Item(0).text Cells(row, 2) = issue.getElementsByTagName("project").Item(0).getAttribute("name") Cells(row, 3) = issue.getElementsByTagName("tracker").Item(0).getAttribute("name") Cells(row, 4) = issue.getElementsByTagName("status").Item(0).getAttribute("name") Cells(row, 5) = issue.getElementsByTagName("priority").Item(0).getAttribute("name") 'カスタムフィールド ここでエラーが起きる。 Cells(row, 6)=issue.getElementsByTagName("cf_116").Item(0).text row = row + 1 End If cnt = cnt + 1 If cnt > max Then GoTo 9999 End If Loop 9999

エラー
オブジェクト変数または With ブロック変数が設定されていません
参考サイト
https://qiita.com/i-chiaki/items/455a8f639126b11ca090

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Redmine

Redmineは、プロジェクトのタスク管理、進捗管理、情報共有が可能な、 オープンソースプロジェクト管理ソフトウェアです。