如何实现网页中表单的内容用EXCEL的数据导入
求个程序,能实现EXCEL里的每项数据能相应的填写在网页的相应的表单中,解决大量的输入工作~~~最好能说的详细点,用什么工具来完成这个程序~~~网页中的表单就是网页中的文...
求个程序,能实现EXCEL里的每项数据能相应的填写在网页的相应的表单中,解决大量的输入工作~~~
最好能说的详细点 ,用什么工具来完成这个程序~~~
网页中的表单就是网页中的文本框 展开
最好能说的详细点 ,用什么工具来完成这个程序~~~
网页中的表单就是网页中的文本框 展开
3个回答
展开全部
不要什么其他工具,就是用ASP。
首先要注意的是:
服务器端必须设置COM组件的操作权限。在命令行键入“DCOMCNFG”,"组件服务"==>"计算机"==>"我的电脑"=="DCOM配置"==>"Microsoft Excel应用程序",右键选择"属性",将"安全"选项卡的三个单选项一律选择自定义,编辑添加"Internet来宾(Iuser_**)",加入所有权限。保存完毕后重新启动服务器。
建立一个名为"test.xls"文件,里面有一个名为"Sheet1"的表。
调试下面的程序:
test.asp
<%
Server.ScriptTimeOut=300
xlsAddr = "./" '指定的路径,当前目录
xlsFileName = "test.xls" 'EXCEL文件名:test.xls
TableName = "Sheet1" '要操作的工作表名: Sheet1
%>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASP读写EXCEL文件</title></head>
<body>
<div align=center>
<%
On Error Resume Next '不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完,不留下死进程
strAddr = Server.MapPath(xlsAddr & xlsFileName) '指定的路径及文件名
set objExcelApp = CreateObject("Excel.Application") '创建 EXCEL 对象
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(strAddr) ' Excel 文件名
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(TableName) '要操作的 Excel 表名
'写入EXCEL文件,作为示例,写入3行2列
For i=1 to 3
For j=1 to 2
objExcelSheet.Cells(i, j).Value = Cstr(i+j) '向 i 行 j 列的单元格填入一个值为(i+j)的数据
Next
Next
objExcelBook.Save '保存Excel文件,如果要想另存为,则使用 objExcelBook.SaveAs "***.xls"
%>
<%
'从excel文件读取数据到表单
%>
<form action="test.asp" method="POST" name="excelform">
<% for i= 1 to 3 %>
<p align="center">
<input type="text" name="NO<%=Cstr(i)%>1" size="4" value="<%=objExcelSheet.Cells(i, 1)%>">
<input type="text" name="NO<%=Cstr(i)%>2" size="4" value="<%=objExcelSheet.Cells(i, 2)%>">
</p>
<% next %>
<p align="center"><input type="submit" value="提交" name="TJ"></p>
</form>
<%
objExcelApp.Quit '释放 EXCEL 进程
set objExcelApp = Nothing '释放 EXCEL 对象
%>
</div>
</body></html>
首先要注意的是:
服务器端必须设置COM组件的操作权限。在命令行键入“DCOMCNFG”,"组件服务"==>"计算机"==>"我的电脑"=="DCOM配置"==>"Microsoft Excel应用程序",右键选择"属性",将"安全"选项卡的三个单选项一律选择自定义,编辑添加"Internet来宾(Iuser_**)",加入所有权限。保存完毕后重新启动服务器。
建立一个名为"test.xls"文件,里面有一个名为"Sheet1"的表。
调试下面的程序:
test.asp
<%
Server.ScriptTimeOut=300
xlsAddr = "./" '指定的路径,当前目录
xlsFileName = "test.xls" 'EXCEL文件名:test.xls
TableName = "Sheet1" '要操作的工作表名: Sheet1
%>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASP读写EXCEL文件</title></head>
<body>
<div align=center>
<%
On Error Resume Next '不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完,不留下死进程
strAddr = Server.MapPath(xlsAddr & xlsFileName) '指定的路径及文件名
set objExcelApp = CreateObject("Excel.Application") '创建 EXCEL 对象
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(strAddr) ' Excel 文件名
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(TableName) '要操作的 Excel 表名
'写入EXCEL文件,作为示例,写入3行2列
For i=1 to 3
For j=1 to 2
objExcelSheet.Cells(i, j).Value = Cstr(i+j) '向 i 行 j 列的单元格填入一个值为(i+j)的数据
Next
Next
objExcelBook.Save '保存Excel文件,如果要想另存为,则使用 objExcelBook.SaveAs "***.xls"
%>
<%
'从excel文件读取数据到表单
%>
<form action="test.asp" method="POST" name="excelform">
<% for i= 1 to 3 %>
<p align="center">
<input type="text" name="NO<%=Cstr(i)%>1" size="4" value="<%=objExcelSheet.Cells(i, 1)%>">
<input type="text" name="NO<%=Cstr(i)%>2" size="4" value="<%=objExcelSheet.Cells(i, 2)%>">
</p>
<% next %>
<p align="center"><input type="submit" value="提交" name="TJ"></p>
</form>
<%
objExcelApp.Quit '释放 EXCEL 进程
set objExcelApp = Nothing '释放 EXCEL 对象
%>
</div>
</body></html>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询