HTA已创建Excel表格
我找到了一个与我的想法相关的代码，并决定对它稍加修改。无论如何 只是想寻求以下代码的指导。 基本上，该工具将在表中创建数据并将其提交到excel文件中 问题是，我没有得到我想要的结果 但我只知道名字，等级，类别，描述和状态。而不是这些字段上提交的数据 有什么想法吗HTA已创建Excel表格,excel,vba,hta,Excel,Vba,Hta,我找到了一个与我的想法相关的代码，并决定对它稍加修改。无论如何 只是想寻求以下代码的指导。 基本上，该工具将在表中创建数据并将其提交到excel文件中 问题是，我没有得到我想要的结果 但我只知道名字，等级，类别，描述和状态。而不是这些字段上提交的数据 有什么想法吗 <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>XLS Data</title>
<script language="vbscript">
Sub AddRow()
Set objTable = document.getElementById("tbl1")
Set objRow = objTable.insertRow()
For intCount = 0 To 4
Set objCell = objRow.insertCell()
select case intCount
case "0"
objCell.innerHTML = document.getElementById("name").value
case "1"
objCell.innerHTML=document.getElementById("grade").value
case "2"
objCell.innerHTML = document.getElementById("company").value
case "3"
objCell.innerHTML = document.getElementById("desc").value
case "4"
objCell.innerHTML = document.getElementById("status").value
end select
Next
End Sub
Sub formReset()
document.getElementById("frm").reset()
End Sub
</script>
<script type="text/vbscript">
Sub Submit()
strFileName = "C"
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open(strFileName)
Set objWorksheet = objWorkbook.Worksheets(1)
Const xlCellTypeLastCell = 11
objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Activate
i = 1
For Each cell In tbl1.thead.rows(0).Cells
objWorksheet.Cells(1,i).Value = cell.innerText
i = i + 1
Next
End Sub
</script>
<hta:application
applicationname="XLS Data"
border="dialog"
borderstyle="normal"
caption="Test"
contextmenu="yes"
icon=""
maximizebutton="yes"
minimizebutton="yes"
navigable="no"
scroll="no"
selection="yes"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
version="1.0"
windowstate="normal"
>
<style type="text/css">
body
{
background-color: white;
overflow: auto;
color: #red;
}
textarea
{
overflow: auto;
}
</style>
</head>
<body>
<form id="frm">
<div align="center"><h1>Test</h1></div>
<p>Name: <input type="text" id="name" max="20" /></p>
<p>Grade: <select id="grade">
<option value="4">4</option>
<option value="3">3</option>
<option value="2">2</option>
<option value="1">1</option>
</select>
</p>
<p>Company: <input type="text" id="company" max="50" /></p>
<p>Description: <BR><TEXTAREA NAME="desc" ROWS=5 COLS=80>Employee Description</TEXTAREA></p>
<p>Status: <BR><TEXTAREA NAME="status" ROWS=5 COLS=80>Employee status</TEXTAREA></p>
<input type="button" onclick="formReset()" value="Reset form">
</form>
<br><input type="button" value="Add Row" onclick="AddRow()">
<input id=runbutton type="button" value="Add to XL" onClick="Submit">
<table id="tbl1" width="100%" border="1">
<thead>
<tr>
<th>Name</th>
<th>Grade</th>
<th>Company</th>
<th>Description</th>
<th>Status</th>
</tr>
</thead>
</table>
</form>
</body>
</html>
XLS数据
子添加行（）
Set objTable=document.getElementById（“tbl1”）
Set objRow=objTable.insertRow（）
对于intCount=0到4
Set objCell=objRow.insertCell（）
选择case intCount
案例“0”
objCell.innerHTML=document.getElementById（“名称”）.value
案例“1”
objCell.innerHTML=document.getElementById（“grade”）.value
案例“2”
objCell.innerHTML=document.getElementById（“公司”）.value
案例“3”
objCell.innerHTML=document.getElementById（“desc”）.value
案例“4”
objCell.innerHTML=document.getElementById（“状态”）.value
结束选择
下一个
端接头
子表单重置（）
document.getElementById（“frm”）.reset（）
端接头
次级提交（）
strFileName=“C”
设置objExcel=CreateObject（“Excel.Application”）
objExcel.Visible=True
设置objWorkbook=objExcel.Workbooks.Open（strFileName）
设置objWorksheet=objWorkbook.worksheet（1）
常数xlCellTypeLastCell=11
objWorksheet.UsedRange.SpecialCells（xlCellTypeLastCell）.激活
i=1
对于tbl1.thead.rows（0.Cells）中的每个单元格
objWorksheet.Cells（1，i）.Value=cell.innerText
i=i+1
下一个
端接头
身体
{
背景色：白色；
溢出：自动；
颜色：红色；
}
文本区
{
溢出：自动；
}
试验
姓名：
等级：
4.
3.
2.
1.
公司：
描述：
员工描述
状态：
员工状态
名称
等级
单位
描述
地位
子提交（）
strFileName=“C:\Tester\Data.xlsx”
设置objExcel=CreateObject（“Excel.Application”）
objExcel.Visible=True
设置objWorkbook=objExcel.Workbooks.Open（strFileName）
设置objWorksheet=objWorkbook.worksheet（1）
常数xlCellTypeLastCell=11
objWorksheet.UsedRange.SpecialCells（xlCellTypeLastCell）.激活
Set objTable=document.getElementById（“tbl1”）
rw=1
对于objTable.ROWS中的每一行
col=1
对于行中的每个单元格。单元格
objWorksheet.Cells（rw，col）.Value=cell.innerText
col=col+1
下一个
rw=rw+1
下一个
端接头