申請用総合ソフトを改造する　１－２

2022年2月6日 19:19

・前回との変更点
　VBAコードが汚くなったので、Xpath（ｘｍｌの参照方式）をシート内に記載するようにした。
　読み込みファイル名をシート内に記載するようにした（複数件同時取得の用意）

・変更後のVBAコード
Sub xml取得()

    Dim XMLDocument As MSXML2.DOMDocument
    Set XMLDocument = New MSXML2.DOMDocument
    XMLDocument.Load (Cells(2, 5).Value)
    i = 0
    Do While (Cells(4 + i, 4).Value <> "")
        On Error Resume Next
        Cells(4 + i, 5) = XMLDocument.SelectNodes _
        (Cells(4 + i, 4).Value).Item(0).Text
        i = i + 1
    Loop

End Sub

・使用したファイル
　

・今後の課題
　ファイル参照：できそう
　（２列目にファイルパス記入する）
　不動産の個数カウント：悩んでる
　（申請書の不動産の個数に応じてシートを自動で広げる）

この記事が気に入ったらサポートをしてみませんか？

申請用総合ソフトを改造する １－２

申請用総合ソフトを改造する　１－２