' **********************************************************
' シートの一覧取得
' **********************************************************
function LoadSheetName()

	Dim MyBook
	set MyBook = ExcelOpen( document.all.item("Excel").value )

	document.all.item("SheetName").options.length = 0
	For i = 1 to ExcelGetSheetCount(MyBook)

		document.all.item("SheetName").options.length = i
		document.all.item("SheetName").options(i-1).value = MyBook.sheets(i).name
		document.all.item("SheetName").options(i-1).text = MyBook.sheets(i).name

	Next

	Call ExcelQuit(MyBook)

end function

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

	Dim ExcelFile

	ExcelFile = document.all.item("Excel").value

	if Trim(ExcelFile) = "" then
		alert("エクセルブックを選択して下さい")
		exit function
	end if

	Dim MyBook,TargetSheet,StartRow

	' 開始行
	StartRow = 5

	set MyBook = ExcelOpen( ExcelFile )

	TargetSheet = document.all.item("SheetName").value

	Call ExcelCopySheet( MyBook, TargetSheet, TargetSheet & "_new" )

	TargetSheet = TargetSheet & "_new"
'	Call ExcelVisible(true)
	Call ExcelSelectSheet(MyBook, TargetSheet)

	' セルへ転送
	For i = 1 to document.all.item("data").rows.length - 1

		Call ExcelSetCell(MyBook, TargetSheet, 1, i-1 + StartRow, document.all.item("data").rows(i).cells(0).innerText)
		Call ExcelSetCell(MyBook, TargetSheet, 2, i-1 + StartRow, document.all.item("data").rows(i).cells(1).innerText)
		Call ExcelSetCell(MyBook, TargetSheet, 3, i-1 + StartRow, document.all.item("data").rows(i).cells(2).innerText)

	Next

	Call ExcelSave(MyBook)
	Call ExcelQuit(MyBook)

	Dim Wsh

	Set Wsh = CreateObject("WScript.Shell")
	Wsh.Run( "RunDLL32.EXE url.dll,FileProtocolHandler """ & ExcelFile & """" )

end function