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

	Dim SrcFileName
	Dim Today, DestFileName
	Dim MyBook, Table, MaxRow, PosX, PosY
	Dim WSH,strCommand

	' ソースファイル名
	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 )	'クローズ
	
	ExcelLoad(DestFileName)

end function