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

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

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

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

VBA

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

Redmine

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

解決済

VBA xmlドキュメントの子ノードを取得したい。

tokumeikibou162
tokumeikibou162

総合スコア19

XML

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

VBA

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

Redmine

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

1回答

0評価

0クリップ

935閲覧

投稿2022/01/13 12:32

編集2022/01/14 12:37

お疲れ様です。
現在別途質問させていただいている此方
https://teratail.com/questions/qjglkgcc8idbx3
に関して、自分で粘ってみたところ。
以下sample xmlドキュメントに対して
以下ソースでID name まで取得できました。

しかし実際欲しい値が格納されているvalueを取れない状況です。
どうかお力の程お貸しください。

xmlドキュメント
'''<issue> <id>10</id>
<tracker id="4" name="運用保守"/>
<author id="6" name="●●太郎"/>
<subject>タイトル</subject>
<custom_fields type="array">
<custom_field id="1" name="受付_日付">
<value>ここが取りたい</value>
</custom_field>
<custom_field id="2" name="受付_時刻"> <value>10:10</value>
</custom_field>
</custom_fields>
</issue>
'''
ソース

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  Dim customfield As variant 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") 'カスタムフィールド ここで値を取りたい。 for each customfield in issue .getElementsByTagName("custom_field") if getAttribute("id")=1 then 'ここでnameではなくvalueを取得したい。 Cells(row, 6)=custom_field.getAttribute("name") end if next custom_field row = row + 1 End If cnt = cnt + 1 If cnt > max Then GoTo 9999 End If Loop 9999

参考url

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10241802100

良い質問の評価を上げる

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

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

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

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

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

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

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

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

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

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

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

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

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

XML

XMLは仕様の1つで、マークアップ言語群を構築するために使われています。

VBA

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

Redmine

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