よしむのパソコン部屋

アクセスカウンタ

help RSS VBAでXMLを読んで、中身を書き換えて保存する

<<   作成日時 ： 2009/05/19 12:45   >>

なるほど（納得、参考になった、ヘー） ブログ気持玉 1 / トラックバック 0 / コメント 0

よしむ＠長野県東御市です。

今日は昨日の記事の応用例で、読み込んだあとに書き換えして保存しましょう。

これが出来れば、簡単なパラメータファイルなんかはお茶の子さいさいになります。（←古っ！）


テストに使ったＸＭＬファイル（書き込み前）

<?xml version="1.0" encoding="Shift_JIS"?>
<root>
　<info>よしむ</info>
　<info>ながの</info>
</root>


書き換え用ＶＢＡプログラム

Sub Test20090519()

Dim XmlDoc As DOMDocument 'xmlデータ用変数
Dim FileValue As Boolean '読み込み状態用
Dim SelNode As IXMLDOMNodeList

Set XmlDoc = CreateObject("Microsoft.XMLDom")
XmlDoc.async = False
FileValue = XmlDoc.Load("C:\TEST.XML")
If FileValue Then
　Set SelNode = XmlDoc.selectNodes("root/info")
　MsgBox SelNode.Length
　 MsgBox SelNode(0).Text
　 MsgBox SelNode(1).Text
　 SelNode(0).Text = Format(Now(), "hh:mm:ss") '一つ目に時間を入れる
　SelNode(1).Text = Format(Now(), "yyyy/mm/dd") '二つ目に日付を入れる
　XmlDoc.Save ("C:\TEST.XML") 'そして保存
Else
　 MsgBox "読み込み失敗！"
End If

End Sub


そして結果ＸＭＬファイル
<?xml version="1.0" encoding="Shift_JIS"?>
<root>
　<info>12:40:58</info>
　<info>2009/05/19</info>
</root>

どうです、できましたか？

あんなことがしたい、こんなことがしたい、
いっぱいありますが、リクエストがあればコメントしてくださいな。


なお、目次はこちらへ

テーマ

関連テーマ 一覧

<< 前記事(2009/05/18) ブログのトップへ 後記事(2009/05/21) >>

月別リンク

ブログ気持玉

クリックして気持ちを伝えよう！
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ
気持玉数 ： 1
なるほど（納得、参考になった、ヘー）

トラックバック（0件）

タイトル （本文） ブログ名／日時

トラックバック用URL help


自分のブログにトラックバック記事作成（会員用） help

タイトル
本　文

コメント（0件）

内 容 ニックネーム／日時

コメントする help

ニックネーム
本　文
<< 前記事(2009/05/18) ブログのトップへ 後記事(2009/05/21) >>
VBAでXMLを読んで、中身を書き換えて保存する よしむのパソコン部屋/BIGLOBEウェブリブログ
[ ]