HTA にサーバ側のデータを表示させて、それをクライアントの EXCEL に取り込む

.ASP を HTA扱いさせる

先頭で以下の処理を行う


<%
	Response.ContentType = "application/hta"
%>

キャッシュを無効にする


<%
	Response.CacheControl = "no-cache"
	Response.AddHeader "Pragma", "no-cache"
	Response.Expires = -1
%>

[注] Response.Expires = -1 は完全ではありません

Charset を定義


<%
	Response.Charset= "shift_jis"
%>

データベースよりデータを読込んで TABLE を配置する


<%
	Set OraDatabase	= OraSession.GetDatabaseFromPool(10)
	SqlQuery	= "select * from H1.MS04 where 商品ｺｰﾄﾞ >= 12"
	Set OraDynaset	= OraDatabase.CreateDynaset(SqlQuery,2)
	Set Columns	= OraDynaset.Fields

	%><TABLE  id=ExcelData><%
	Do while not OraDynaset.EOF
		%><tr><td><% = Columns( "商品ｺｰﾄﾞ" ).Value %></td><%
		%><td><% = Columns( "全角品名" ).Value %></td><%
		%><td><% = Columns( "在庫評価単価" ).Value %></td></tr><%
		OraDynaset.MoveNext
	Loop
	%></TABLE><%

%>

EXCELを起動させて TABLE のデータをロードする


function LoadExcel() {

	var ExcelSheet;
	ExcelApp = new ActiveXObject("Excel.Application");
	ExcelSheet = new ActiveXObject("Excel.Sheet");

	ExcelSheet.Application.Visible = true;

	for (i=0; i < document.all.ExcelData.rows.length; i++) {
		for (j=0; j < document.all.ExcelData.rows(i).cells.length; j++) {
			ExcelSheet.ActiveSheet.Cells(i+1,j+1).Value = document.all.ExcelData.rows(i).cells(j).innerText;
		}
	}

}

完成ソース


<%
	Response.ContentType = "application/hta"
	Response.CacheControl = "no-cache"
	Response.AddHeader "Pragma", "no-cache"
	Response.Expires = -1
	Response.Charset= "shift_jis"
%>
<HTML>
<HEAD>
<TITLE>HTML Application</TITLE>
<HTA:APPLICATION ID="oHTA">
</HEAD>
<BODY>
<INPUT type=button value=Excelへロード onClick='LoadExcel();'>
<INPUT type=button value=閉じる onClick='window.close();'>
<%
	Set OraDatabase	= OraSession.GetDatabaseFromPool(10)
	SqlQuery	= "select * from H1.MS04 where 商品ｺｰﾄﾞ >= 12"
	Set OraDynaset	= OraDatabase.CreateDynaset(SqlQuery,2)
	Set Columns	= OraDynaset.Fields

	%><TABLE  id=ExcelData><%
	Do while not OraDynaset.EOF
		%><tr><td><% = Columns( "商品ｺｰﾄﾞ" ).Value %></td><%
		%><td><% = Columns( "全角品名" ).Value %></td><%
		%><td><% = Columns( "在庫評価単価" ).Value %></td></tr><%
		OraDynaset.MoveNext
	Loop
	%></TABLE><%

%>
<SCRIPT language=JavaScript>

function LoadExcel() {

	var ExcelSheet;
	ExcelApp = new ActiveXObject("Excel.Application");
	ExcelSheet = new ActiveXObject("Excel.Sheet");

	ExcelSheet.Application.Visible = true;

	for (i=0; i < document.all.ExcelData.rows.length; i++) {
		for (j=0; j < document.all.ExcelData.rows(i).cells.length; j++) {
			ExcelSheet.ActiveSheet.Cells(i+1,j+1).Value = document.all.ExcelData.rows(i).cells(j).innerText;
		}
	}

}

</SCRIPT>
</BODY>
</HTML>