■Ajax : サーバー上のExcelで保存したXMLデータを読み込み表示する

 Mac版Excelで保存したXMLデータを表示するサンプルです(Windows用のOfficeは新しいのを持っていないのでWindows版のExcelで保存したXMLデータが利用できるかどうかは未確認です)。
 まず、最初にサーバーと通信するためのXMLHttpオブジェクトを作成します。ここでは動作させるブラウザを

Windows版、Internet Explorer 6、Firefox、Netscape 6以降、Opera 8
Macintosh版、Safari、Firefox、Netscape 6以降

 としています。Windows版のInternet Explorer 6とそれ以外ではオブジェクトが異なるためサンプルの緑色の部分のようにtry...catchを使ってオブジェクトが利用できない場合にnullを返すようにしています。XMLHttpオブジェクトが作成できたら念のため(勉強用なので)作成状況を表示します。もし、何らかの原因でオブジェクトが作成できない場合にはnullを返します。無事にオブジェクトが作成できた場合にはオブジェクト名を表示します(紫色の部分。Windows版Internet Explorer 6では正常な場合には何も表示しません。)
 次にExcelで作成されたXMLをサーバーから取得します。これは青字の部分になります。サンプルではdata.xmlという名前のXMLファイルを読み込んでいます。
 サーバーとの通信が開始されるとcheck関数が呼び出されます。ステータスが4の場合には読み込み完了という事になります。読み込みが完了してもファイルが取得できていないと困ります。正常にファイルが取得できた場合にはステータスコードが200になりますので、この2つの条件を満たした場合にセルのデータを表示します。
 セルのデータを表示しますが、ワークシートに関係なく表示します。また、セルデータが横2つ、縦3つの場合でも横にセル内容を表示せず、とりあえず縦長に全部表示するようにしています。もちろん、ちゃんとXMLを解析すればエクセルのような表示を行うことも可能ですし、簡単なものであればAjaxを使って表計算ソフトを作ることもできます。
 セルのデータですが、<data>タグにセルの内容が入っているのでgetElementsByTagNameを使ってタグの情報を取得します(dataタグの一覧を取得できます)。このタグの数だけforを使って繰り返し処理を行います。セルのデータはchildNodes[0].dataとすることで読み出すことができます。
 取得したデータをinnerHTMLに設定すればページ上にエクセルデータを表示させることができます。

サンプルを実行する
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<title>ajax test</title>
<script language="javascript"><!--
function getIndex() {
xmlhttp = createXMLHttp();
alert("XMLHttp作成状況:"+xmlhttp);
if (xmlhttp)
{
xmlhttp.onreadystatechange = check;
xmlhttp.open('GET', 'data.xml');
xmlhttp.send(null);
}else{
alert("XMLHttpRequest失敗");
}
}
function check()
{
if (xmlhttp.readyState == 4 && xmlhttp.status == 200)
{
xmlDoc = xmlhttp.responseXML;
d = xmlDoc.getElementsByTagName("Data");
result = "";
for (i=0; i<d.length; i++)
{
result += d[i].childNodes[0].data + "<br>";
}
document.getElementById("disp").innerHTML = result;
}
}
// XMLHttpsオブジェクト作成
function createXMLHttp()
{
try {
return new ActiveXObject ("Microsoft.XMLHTTP");
}catch(e){
try {
return new XMLHttpRequest();
}catch(e) {
return null;
}
}
return null;
}
// --></script>
</head>
<body>
<a href="javascript:getIndex()">XML読み込み</a>
<div id="disp"></div>
</body>
</html>


【ExcelのXMLデータ:若干修正】
<?xml version="1.0" encoding="utf-8" ?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:html="http://www.w3.org/TR/REC-html40"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet">
<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
<Author>古籏 一浩</Author>
<LastAuthor>古籏 一浩</LastAuthor>
<Created>2005-05-28T14:03:04Z</Created>
<Version>11.256</Version>
</DocumentProperties>
<OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
<AllowPNG/>
</OfficeDocumentSettings>
<ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
<WindowHeight>17900</WindowHeight>
<WindowWidth>21040</WindowWidth>
<WindowTopX>-20</WindowTopX>
<WindowTopY>-20</WindowTopY>
<Date1904/>
<AcceptLabelsInFormulas/>
<ProtectStructure>False</ProtectStructure>
<ProtectWindows>False</ProtectWindows>
</ExcelWorkbook>
<Styles>
<Style ss:ID="Default" ss:Name="Normal">
<Alignment ss:Vertical="Bottom"/>
<Borders/>
<Font ss:FontName="MS Pゴシック" x:CharSet="128" ss:Size="11.0"/>
<Interior/>
<NumberFormat/>
<Protection/>
</Style>
</Styles>
<Worksheet ss:Name="Sheet1">
<Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="4" x:FullColumns="1"
x:FullRows="1" ss:DefaultColumnWidth="77.0" ss:DefaultRowHeight="17.0">
<Column ss:AutoFitWidth="0" ss:Width="111.0"/>
<Row>
<Cell><Data ss:Type="String">JavaScript Book</Data></Cell>
<Cell><Data ss:Type="Number">12.0</Data></Cell>
</Row>
<Row>
<Cell><Data ss:Type="String">HTML Book</Data></Cell>
<Cell><Data ss:Type="Number">17.0</Data></Cell>
</Row>
<Row>
<Cell><Data ss:Type="String">CSS Book</Data></Cell>
<Cell><Data ss:Type="Number">25.0</Data></Cell>
</Row>
<Row>
<Cell><Data ss:Type="String">RSS Book</Data></Cell>
<Cell><Data ss:Type="Number">9.0</Data></Cell>
</Row>
</Table>
<WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
<PageSetup>
<Header x:Margin="0.512"/>
<Footer x:Margin="0.512"/>
<PageMargins x:Bottom="0.984" x:Left="0.787" x:Right="0.787" x:Top="0.984"/>
</PageSetup>
<PageLayoutZoom>0</PageLayoutZoom>
<Selected/>
<Panes>
<Pane>
<Number>3</Number>
<ActiveRow>4</ActiveRow>
</Pane>
</Panes>
<ProtectObjects>False</ProtectObjects>
<ProtectScenarios>False</ProtectScenarios>
</WorksheetOptions>
</Worksheet>
<Worksheet ss:Name="Sheet2">
<Table ss:ExpandedColumnCount="0" ss:ExpandedRowCount="0" x:FullColumns="1"
x:FullRows="1" ss:DefaultColumnWidth="77.0" ss:DefaultRowHeight="17.0"/>
<WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
<PageSetup>
<Header x:Margin="0.512"/>
<Footer x:Margin="0.512"/>
<PageMargins x:Bottom="0.984" x:Left="0.787" x:Right="0.787" x:Top="0.984"/>
</PageSetup>
<PageLayoutZoom>0</PageLayoutZoom>
<ProtectObjects>False</ProtectObjects>
<ProtectScenarios>False</ProtectScenarios>
</WorksheetOptions>
</Worksheet>
<Worksheet ss:Name="Sheet3">
<Table ss:ExpandedColumnCount="0" ss:ExpandedRowCount="0" x:FullColumns="1"
x:FullRows="1" ss:DefaultColumnWidth="77.0" ss:DefaultRowHeight="17.0"/>
<WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
<PageSetup>
<Header x:Margin="0.512"/>
<Footer x:Margin="0.512"/>
<PageMargins x:Bottom="0.984" x:Left="0.787" x:Right="0.787" x:Top="0.984"/>
</PageSetup>
<PageLayoutZoom>0</PageLayoutZoom>
<ProtectObjects>False</ProtectObjects>
<ProtectScenarios>False</ProtectScenarios>
</WorksheetOptions>
</Worksheet>
</Workbook>