Excel VBA ブックにXMLスキーマを追加して要素を対応付ける

• オブジェクト（必須）
  WorkBook【ﾜｰｸﾌﾞｯｸ】オブジェクトを指定します。
• Schema【ｽﾁｰﾏ】（必須）
  ブックに追加したいXMLスキーマを指定します。XMLが保存されているパス（場所）も含めて指定できます。また、URL形式での指定も可能です。
• RootElementName【ﾙｰﾄｴﾚﾒﾝﾄﾈｰﾑ】（省略可）
  XMLスキーマで、複数のルート要素が定義されている場合に、ブックに対応付けさせたいルート要素を指定します。定義されているルート要素が1つだけの場合は省略します。

• オブジェクト（必須）
  セルに対応付ける場合はRange【ﾚﾝｼﾞ】オブジェクトを指定し、テーブルの列に対応付ける場合は、テーブル内の列を表すListColumn【ﾘｽﾄｶﾗﾑ】オブジェクトを指定します。
• Map【ﾏｯﾌﾟ】（必須）
  XMLスキーマとブックの対応付けを表すXmlMap【ｴｯｸｽｴﾑｴﾙﾏｯﾌﾟ】オブジェクトを指定します。
• Xpath【ｴｯｸｽﾊﾟｽ】（必須）
  対応したい要素の階層位置（ﾛｰｹｰｼｮﾝﾊﾟｽ）を表す文字列を指定します。仮想的なルート要素を表す「/スラッシュ」に続けて対応付けたい要素までの階層をたどる要素名を「/スラッシュ」で区切って記述します。
• SelectionNamespace【ｾﾚｸｼｮﾝﾈｰﾑｽﾍﾟｰｽ】（省略可）
  引数Xpathに指定した文字列内で使用している名前空間接頭辞を指定します。使用していない場合は省略します。
• Repeating【ﾘﾋﾟｰﾃｨﾝｸﾞ】（必須）
  

  設定値	内容
  True	テーブルの列に対応付ける場合
  False	単一のセルに対応付ける場合

Sub スキーマ対応付け()
Dim myxmlmap As XmlMap
Set myxmlmap = ActiveWorkbook.XmlMaps.Add _
(Schema:=ThisWorkbook.Path & "¥A事業商品.xsd")
With ActiveSheet.ListObjects("テーブル1")
     .ListColumns(1).XPath.SetValue Map:=myxmlmap, _
        XPath:="/A事業/商品/商品名", Repeating:=True
     .ListColumns(2).XPath.SetValue Map:=myxmlmap, _
        XPath:="/A事業/商品/価格", Repeating:=True
End With
myxmlmap.Name = "A事業商品XmlMap"
End Sub

3行目～4行目Set myxmlmap = ActiveWorkbook.XmlMaps.Add _
(Schema:=ThisWorkbook.Path & “¥A事業商品.xsd”)
XmlMaps【ｴｯｸｽｴﾙﾏｯﾌﾟｽ】コレクションのAdd【ｱﾄﾞ】メソッドを使用してブックに引数Schema【ｽｷｰﾏ】に指定したXMLスキーマを追加して、Setキーワードを使用してオブジェクト変数「myxmlmap」に代入します。

5行目【With ActiveSheet.ListObjects(“テーブル1”)】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのListObjects【ﾘｽﾄｵﾌﾞｼﾞｪｸﾂ】プロパティでテーブルに設定した「テーブル1」を参照してWith【ｳｨｽﾞ】ステートメントで指定します。

6行目～7行目【 .ListColumns(1).XPath.SetValue Map:=myxmlmap, _
XPath:=”/A事業/商品/商品名”, Repeating:=True】
With【ｳｨｽﾞ】ステートメントで指定したセルのデータ範囲（テーブル）を表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】のListColumns【ﾘｽﾄｶﾗﾑｽ】プロパティの引数に1を設定しテーブルの1列目を参照してXPath【ｴｯｸｽﾊﾟｽ】プロパティで参照した列のXPath【ｴｯｸｽﾊﾟｽ】オブジェクトを取得します。

単独のセルに対応付ける場合は、Range【ﾚﾝｼﾞ】オブジェクトのXPath【ｴｯｸｽﾊﾟｽ】プロパティを使用してXPath【ｴｯｸｽﾊﾟｽ】オブジェクトを取得します。

取得したXPath【ｴｯｸｽﾊﾟｽ】オブジェクトのSetValue【ｾｯﾄﾊﾞﾘｭｰ】メソッドを使用してテーブルの列にXMLデータの要素を対応付けます。

引数Map【ﾏｯﾌﾟ】には、Addメソッドでブックに追加したXMLスキーマが格納されている変数「myxmlmap」を設定します。引数XPath【ｴｯｸｽﾊﾟｽ】には、対応付けたい要素の階層位置を対応付けたい要素までの階層をスラッシュで区切って文字列で設定します。引数Repeating【ﾘﾋﾟｰﾃｨﾝｸﾞ】はテーブルの列に対応付けるのでTrueを設定します。

8行目～9行目【 .ListColumns(2).XPath.SetValue Map:=myxmlmap, _
XPath:=”/A事業/商品/価格”, Repeating:=True】
テーブルの2列目の対応付けです。内容は基本的に6～7行目と同じです。

11行目【myxmlmap.Name = “A事業商品XmlMap”】
Name【ﾈｰﾑ】プロパティを使用してブックに追加したXMLスキーマに名前をつけます。