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

・前回との変更点
　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

（２）－２　エクセル画面（情報やりとり画面）

・使用したファイル
　

申請マクロ.xlsm

44.5 KB

ファイルダウンロードについて

ダウンロード

HM0501202320001.xml

10.9 KB

ファイルダウンロードについて

ダウンロード

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