XMLとExcel PartⅠ

XMLのサンプルを作ってEXCELで2次加工するプログラムを

作ってみました。とはいっても半分はEXCELのVBA自動生成機能

を使ったんだけどね。

【お題】

数学、国語、英語の教科別順位一覧のXMLを読み込んで

各々新規シートに上位３名の名前と点数を表示する。

【Excel画面イメージ】

作成ボタンをVBAのmain_routineに結び付けてます。

セルのB4にXMLファイルへのパスを入力。

このシートを「guide」という名前にしています。

 

【作成ボタン押下後の結果】

 

【XMLサンプル】

これは”数学”でmath.xmlとしてます。同じように”国語”はjapanese.xml

”英語”はenglish.xmlとして微妙に順位を変えてみました。

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE root [
<!ENTITY lt "&#38;#60;">
<!ENTITY gt "&#62;">
<!ENTITY amp "&#38;#38;">
<!ENTITY apos "&#39;">
<!ENTITY quot "&#34;">
<!ENTITY nbsp "&#160;">
]>

<root>
 
 <data count="555">
  <rank id="1">
   <Number value="1" name="順位" prev="0" />
   <Student_id value="00001" />
   <Student_name value="Taro" />
   <Point value="80" />
   <Point_updown value="up" />
  </rank>
  <rank id="2">
   <Number value="2" name="順位" prev="0" />
   <Student_id value="00004" />
   <Student_name value="JiTaro" />
   <Point value="78" />
   <Point_updown value="up" />
  </rank>
  <rank id="3">
   <Number value="3" name="順位" prev="0" />
   <Student_id value="00011" />
   <Student_name value="SanTaro" />
   <Point value="77" />
   <Point_updown value="down" />
  </rank>
  <rank id="4">
   <Number value="4" name="順位" prev="0" />
   <Student_id value="00101" />
   <Student_name value="YonTaro" />
   <Point value="76" />
   <Point_updown value="up" />
  </rank>
  <rank id="5">
   <Number value="5" name="順位" prev="0" />
   <Student_id value="00201" />
   <Student_name value="GoTaro" />
   <Point value="74" />
   <Point_updown value="stay" />
  </rank>
 </data>
</root>

（続く）