フレームExcel印刷

view.inc

<SCRIPT language=VBScript>

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()

	frmMain_onSubmit = true

end function

' **********************************************************
' フィールドのクリア
' **********************************************************
function ClearField()

	document.all("In1Meisyo").value = ""

end function

</SCRIPT>


<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>ASP 雛形</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>

<!-- *******************************************************
 ドキュメント
******************************************************** -->
<BODY>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.asp
	target=BodyFrame
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
	<TD class=MyCell>名　称</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1Meisyo
			value="<%= MyData("In1Meisyo") %>"
		>
	</TD>
	<TD class=MyCell>
		<INPUT type=submit name=send value="送信">
	</TD>
	<TD class=MyCell>
		<INPUT 
			type=button
			value="クリア"
			onClick='Call ClearField()'
		>
	</TD>
	<TD class=MyCell>
		<INPUT 
			type=button
			value="Cancel"
			onClick='top.location="frame.htm"'
		>
	</TD>
</TR>
</TABLE>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_HEAD %>">

</FORM>
</BODY>
</HTML>

<!-- *******************************************************
 ページロード時の初期処理
******************************************************** -->
<SCRIPT FOR=window EVENT=onload LANGUAGE="VBScript">

	window.focus()
	Call top.moveTo( 0, 0 )
	Call top.resizeTo(  screen.width, screen.height - 32 )

</SCRIPT>

view2.inc

<SCRIPT language=VbScript src=fs.vbs></SCRIPT>
<SCRIPT language=VbScript src=excel.vbs></SCRIPT>
<SCRIPT language=VBScript>

' **********************************************************
' エクセルブックによるレポート
' **********************************************************
function ExcelOut()

	Dim SrcFileName
	Dim Today, DestFileName
	Dim Table, MaxRow, PosX, PosY

	' ソースファイル名
	SrcFileName = parent.Excel.document.all.item("Excel").value
	if Trim(SrcFileName) = "" then
		alert("エクセルブックを選択して下さい     ")
		parent.Excel.document.all.item("Excel").focus
		exit function
	end if
	
	'ターゲットファイル名	オリジナルファイル名_日付.xls
	Today = Replace(Date(),"/","")
	DestFileName = Replace(LCase(SrcFileName), ".xls", "" ) & "_" & Today & ".xls"
	
	on error resume next
	Call FsCopy( SrcFileName, DestFileName )	' ファイルコピー
	if err.Number <> 0 then
		alert err.Description
		exit function
	end if
	on error goto 0

	set MyBook = ExcelOpen( DestFileName )			' オープン
	Call ExcelVisible(false)						' Excelは非表示
	Call ExcelSelectSheet(MyBook, "Sheet1")			' シート選択
	
	set Table = document.all.item( "data" )
	MaxRow = Table.rows.length
	
	' データ出力開始------------------------------------------------------------
	for PosY = 1 to MaxRow-1
		' 商品分類
		Call ExcelSetCell( MyBook, "Sheet1", 1, PosY, Table.rows(PosY).cells(0).innerText )
		' 名称
		Call ExcelSetCell( MyBook, "Sheet1", 2, PosY, Table.rows(PosY).cells(1).innerText )
	next
	' データ出力終了-----------------------------------------------------------
	
	Call ExcelSave(MyBook)	'保存
	Call ExcelQuit(MyBook)	'クローズ
	
	' IE内にExcelを展開
	Call window.open(DestFileName,"ExcelRepoet")
	
end function

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()

	frmMain_onSubmit = true

end function

</SCRIPT>

<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>ASP 雛形</TITLE>
<STYLE>
	.MyHead {
		background-color:silver
	}
	.MyCell {
		background-color:white
	}
</STYLE>
</HEAD>

<!-- *******************************************************
 ドキュメント
******************************************************** -->
<BODY>
<%= ErrMessage %>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.asp
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<TABLE>
	<TR>
	<TD valign=top>3)</TD>
	<TD>
		<INPUT type=button value="実行" onClick='Call ExcelOut()'>
	</TD>
	</TR>
</TABLE>

<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5 id=data>
<TH class=MyHead>商品分類</TH>
<TH class=MyHead>名称</TH>
<%= OutData %>
</TABLE>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">

<!-- *******************************************************
 HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>

</BODY>
</HTML>

viewmessage.inc

<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>メッセージ表示専用</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>
<SPAN style='color:blue'><%= ErrMessage %></SPAN>
<SPAN style='color:black;font-weight:bold'><%= Message %></SPAN>
</BODY>
</HTML>