01.
02.
03.
04.function LoadSheetName()
05.
06. Dim MyBook
07. set MyBook = ExcelOpen( document.all.item("Excel").value )
08.
09. document.all.item("SheetName").options.length = 0
10. For i = 1 to ExcelGetSheetCount(MyBook)
11.
12. document.all.item("SheetName").options.length = i
13. document.all.item("SheetName").options(i-1).value = MyBook.sheets(i).name
14. document.all.item("SheetName").options(i-1).text = MyBook.sheets(i).name
15.
16. Next
17.
18. Call ExcelQuit(MyBook)
19.
20.end function
21.
22.
23.
24.
25.function ExcelOut()
26.
27. Dim ExcelFile
28.
29. ExcelFile = document.all.item("Excel").value
30.
31. if Trim(ExcelFile) = "" then
32. alert("エクセルブックを選択して下さい")
33. exit function
34. end if
35.
36. Dim MyBook,TargetSheet,StartRow
37.
38.
39. StartRow = 5
40.
41. set MyBook = ExcelOpen( ExcelFile )
42.
43. TargetSheet = document.all.item("SheetName").value
44.
45. Call ExcelCopySheet( MyBook, TargetSheet, TargetSheet & "_new" )
46.
47. TargetSheet = TargetSheet & "_new"
48.
49. Call ExcelSelectSheet(MyBook, TargetSheet)
50.
51.
52. For i = 1 to document.all.item("data").rows.length - 1
53.
54. Call ExcelSetCell(MyBook, TargetSheet, 1, i-1 + StartRow, document.all.item("data").rows(i).cells(0).innerText)
55. Call ExcelSetCell(MyBook, TargetSheet, 2, i-1 + StartRow, document.all.item("data").rows(i).cells(1).innerText)
56. Call ExcelSetCell(MyBook, TargetSheet, 3, i-1 + StartRow, document.all.item("data").rows(i).cells(2).innerText)
57.
58. Next
59.
60. Call ExcelSave(MyBook)
61. Call ExcelQuit(MyBook)
62.
63. Dim Wsh
64.
65. Set Wsh = CreateObject("WScript.Shell")
66. Wsh.Run( "RunDLL32.EXE url.dll,FileProtocolHandler """ & ExcelFile & """" )
67.
68.end function