VBAでのXML作成

現在Excelに記述してある設定ファイルの表をXMLへ変換するマクロを作っているのですが、調べても既に表が完成していることが前提の説明しか出てきません。（現在の表はまだ追加や削除が出るかわからない状態でその都度修正を行っていたら大変、とのことでこれをマクロでするとの作業です。）
また表は複数あり（シートで分けられている）、それぞれ数や文言が違うのですがこれをマクロですることはできるのでしょうか？

とりあえずボタン押下時にExcelを選択するダイアログ部分だけ作って躓いてます。

Sub XML()
 Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
        Set TargetWorkbook = Workbooks.Open(OpenFileName)
        Set xmlDoc = New MSXML2.DOMDocument60
        Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))

End Sub

未熟者ですみません。
よろしくお願いします。

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

回答2件

ベストアンサー

できるかできないかでいえば、できます。
どうやるか？については、答えられません。

いわゆる、仕様がないからです。

完成している表であれば、xmlタグの名前や、値の取得方法が決まっているので、
以下のように、それにもとずいた設定をしています。

VBA
1   '<Tel>要素を追加します。
2    Set node(3) = node(2).appendChild(xmlDoc.createNode(NODE_ELEMENT, "Tel", ""))
3    node(3).Text = "111-1111-1111"

今回のように不定な表からxmlを作るのであれば、不定の表をどうxml化するのか？
の仕様を決めれば、その通りにコーディングすればよいです。

上記の例でいうと"TEL"にあたる部分や、"111-1111-1111"部分の取得方法。
ほかのノードとの親子関係など、どう扱うのかを仕様化する必要があります。

どんな表か、わかりませんが１列目なのか１行目をタグの名前にして、値を取得して・・・を
データがなくなるまで繰り返す。

レベルの回答ぐらいしかできませんし。
不定の表の定義方法についても、こんな表現はできませんよ。
っていう制約をつけたりと当事者でないとわからないことが多いので、これ以上はなんとも・・・

投稿2018/03/15 09:24

momon-ga

総合スコア4820

sigret

2018/03/16 00:03

回答ありがとうございます。具体的にはexcelのB列に親要素、C列に子要素、D列に孫要素・・と論理名があり、G列に物理名、I列に初期値があります。これをマクロ実行でXMLの形にしたい、とのことです。論理名の階層構造通りに物理名を入れ、初期値があれば初期値も入れる、といった感じです。物理名や論理名の列は固定されるそうですがこの中身（孫要素の追加、削除など）は変わる可能性があるから漏れがないようマクロ実行でXMLを作りたい、です。