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

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

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

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

VBA

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

Redmine

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

Q&A

解決済

1回答

9498閲覧

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

tokumeikibou162

総合スコア19

XML

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

VBA

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

Redmine

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

0グッド

0クリップ

投稿2022/01/13 12:32

編集2022/01/13 12:36

お疲れ様です。
現在別途質問させていただいている此方
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

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

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Node を辿って値を取得するやり方もありますが XPath を使った方が直感的に取得できるかと思います。
XPath は XML 文書から指定した場所を抽出するため構文になります。

vba

1 Dim dom 2 Set dom = CreateObject("MSXML2.DOMDocument") 3 dom.Load targeturl 4 5 Debug.Print dom.SelectSingleNode("issue/custom_fields/custom_field[0]/value").Text

■ 実行結果

ここが取りたい

<参考>
■ XPathの動作確認(Excel VBA編)
https://dampgblog.hinohikari291.com/xpath-with-vba/

投稿2022/01/13 16:37

cx20

総合スコア4633

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

tokumeikibou162

2022/01/14 03:37

Debug.Print dom.SelectSingleNode("issue/custom_fields/custom_field[1]").Text で取得することが出来ました。ありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.44%

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

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

質問する

関連した質問