- PR -

VBAからXMLの更新

1
投稿者投稿内容
とむ
常連さん
会議室デビュー日: 2008/05/12
投稿数: 24
投稿日時: 2008-07-10 15:42
いつもお世話になります。

以下のような内容のXMLファイルを

<?xml version="1.0"?>
<yosan>
<code>102</code>
</yosan>

以下のようなEXCEL VBAで読み込んでおります。

fPATH = ThisWorkbook.Path & "\Yosan.XML"

Dim D As MSXML2.DOMDocument
Set D = New MSXML2.DOMDocument

  If D.Load(fPATH) Then
  Adm_cd = Trim(D.documentElement.childNodes(0).Text)
  End If

この内容を同じくVBAで書き換えするにはどのようにすればよいのでしょうか?

ご教授の程よろしくお願いします。
くまっち
大ベテラン
会議室デビュー日: 2008/01/18
投稿数: 169
お住まい・勤務地: 茨城県のどこか。
投稿日時: 2008-07-10 16:18
D.documentElement.childNodes(0).Text = "新しい値"

で、書き換えします。

ファイルへ反映させたいならば・・・

Call D.Save(fPATH)

で、ファイルへ保存します。

[訂正]
×Call Save(fPATH)
○Call D.Save(fPATH)

[ メッセージ編集済み 編集者: くまっち 編集日時 2008-07-10 16:20 ]
とむ
常連さん
会議室デビュー日: 2008/05/12
投稿数: 24
投稿日時: 2008-07-10 18:14
くまっち さま

早速のご教授ありがとうございました。

いただいた情報で実現できました。結構ウェブを徘徊しましたが情報が見当たらなかったので助かりました。

この度は本当にありがとうございました。
1

スキルアップ/キャリアアップ(JOB@IT)