XMLファイルからすべてのP要素を取得

XMLファイルからすべてのP要素を取得するコードが作れなくて困っています。

本当は特定のデータが欲しいのですが、諸事情により本来必要なデータ位置の特定の方法が難しいため、
一旦すべてのP要素を取得して後で指定の列を残して他を削除するという方法を取ろうと思っています。

ただ、XMLファイルからすべてのP要素を取得するコードが作れなくて困っています。

Ubound(tmp）の数が増えていかない＝Splitの使い方の問題だと思いますが、
今の私の知識では理解が足りません。

どなたかアドバイスいただけますと助かります。
よろしくお願いします。

Sub xml_parse(ByVal xmlpath As String)
'Microsoft XML v6.0 を参照設定
Dim XMLDocument As MSXML2.DOMDocument60
Dim pElem As MSHTML.HTMLParaElement

'Dim Doc As New XMLDocument
Dim e As MSHTML.HTMLHtmlElement
Dim ws1 As Worksheet
Set ws1 = Worksheets("データ一覧")

'MSXMLオブジェクトを生成し、xmlファイルをロード
Set XMLDocument = New MSXML2.DOMDocument60

'async = False → 読み込み終了後､次の処理をします（同期処理）
'async = true →だと､読み込みが終わらなくても､次のステップへ（非同期処理）
'VBAは非同期処理に対応していないので、async = Falseとします

XMLDocument.async = False

Dim strMsg As String
Dim i, cmax As Long

cmax = ws1.Range("A1048576").End(xlUp).Row

'Doc.Load (xmlpath)
XMLDocument.Load (xmlpath)

If (XMLDocument.parseError.ErrorCode <> 0) Then 'ロード失敗
strMsg = XMLDocument.parseError.reason 'エラー内容を出力
MsgBox "ロードに失敗しました・・・" & vbCrLf & vbCrLf & strMsg, vbCritical
Exit Sub
End If
'-困っているのはここから下---------------------------------------------------------------

ws1.Range("A" & cmax + 1).Value = cmax

Dim objxml As Object
For Each objxml In XMLDocument.getElementsByTagName("P")
            
Dim tmp As Variant
tmp = Split(objxml.Text, "<P>")
       
For i = 0 To UBound(tmp): Debug.Print tmp(i)
        
    ws1.Cells(cmax + 1, i + 2) = tmp(i)

' tmp = Null

    Next

Next

End sub

dodox86

2020/10/14 05:06

どのようなXMLでP要素（<p>～</p>のことですよね？）が取れないのか、問題を再現できる最低限のXMLの実例を質問文中に示した方が良いと思います。そうでないと、他者が問題を再現できないかもしれません。VBAの実行環境、ExcelVBAであったりWindowsのバージョンも併せて示しましょう。更に、コードはマークダウン記法を用いて読みやすくするようにしてください。インデントも崩れ、読みづらいとそれだけで回答は離れがちになります。 https://teratail.com/help/question-tips#questionTips3-5-1 https://teratail.com/questions/238564 あたりを参考にしてソースコードを適切に表示するようにしてください。

kodai1119

2020/10/14 05:22

ご指摘ありがとうございます。以後気をつけます。

行動規範の内容に同意します

回答1件

ベストアンサー

VBAでXMLファイルから特定の要素を取得する方法はいろいろあり、
MSXML2を使う方法、Splitを使う方法、regexpを使う方法、、などなどがあります。

提示のコードをみると上記のMSXML2の方法とSplitの方法を一緒にしてしまったようですね。
MSXML2を使うなら、getElementsByTagName("P")でp要素は取得できてますので、Splitは必要ないです。

vba
1Sub xml_parse(ByVal xmlpath As String)
2
3    '前略
4
5    '-困っているのはここから下---------------------------------------------------------------
6
7    ws1.Range("A" & cmax + 1).Value = cmax
8    
9    Dim objxml As Object
10    For Each objxml In XMLDocument.getElementsByTagName("P")
11
12        ws1.Cells(cmax + 1, i + 2) = objxml.Text
13        i = i + 1
14
15    Next
16
17End Sub