サンプルではアクセスデータベース(MDB)に接続し、データを取得して
ピボットテーブル作成の元データとします。HTMLが表示されたらツール
バーからフィールドリストを表示させてください。
また、完成したピボットテーブルを”画像保存”ボタンで画像保存、
”EXCEL保存”ボタンでXlsファイルへ保存します。
（前提）１．C:\テスト.mdb" と "TEST"テーブル
２．以下のHTMLソースをテキストファイルに貼り付け、
拡張子”HTML”、”HTM”で保存、実行。
３．インターネットエクスプローラ５．０（NetScapeは不可）
＝＝＝＝HTMLソースここから↓＝＝＝＝
<html>
<head>
<title>PivotTableコントロールのテスト</title>
<script language="VBscript">
<!--
'画像保存ボタンで実行
Sub ExpPic()
With PivotTable1
.ExportPicture Document.fm.tx1.value
End With
End Sub
'EXCEL保存ボタンで実行
Sub ExpXL()
With PivotTable1
.Export Document.fm.tx2.value
End With
End Sub
Sub ExecPivot()
With PivotTable1
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\テスト.mdb;"
.CommandText = "SELECT * FROM TEST;"
.DisplayFieldList=True
End With
End Sub
-->
</script>
</head>
<body onload="ExecPivot"><!--HTMLロード時にExecPivotプロシージャ実行-->
<center>
<object id=PivotTable1 classid=CLSID:0002E520-0000-0000-C000-000000000046>
</object>
</center>
<div align="right">
<form name="fm">
<table border="1">
<tr>
<td>エクスポート</td>
<td><input type="button" value="画像保存" onclick="ExpPic">
<input type="button" value="Excel保存" onclick="ExpXL">
</td>
</tr>
<tr>
<td>保存先ファイル名(*.gif,(jpg,bmp))</td>
<td><input type = "text" name = "tx1" value="pivot.bmp"></td>
</tr>
<tr>
<td>保存先ファイル名(*.xls)</td>
<td><input type = "text" name = "tx2" value="pivot.xls"></td>
</tr>
</table></form></div>
</body>
</html>
|
