asp读写excel示例

更新时间:2023-07-18 21:42:11 阅读：评论：0

asp读写excel示例

Excel文件其实就是html的文件，可以直接用txt打开。

Set fs = rver.CreateObject("scripting.filesystemobject")
仇国论'--假设你想让生成的EXCEL文件做如下的存放

'--如果原来的EXCEL文件存在的话删除它

asp_f_name=getID() 'filename
filename=Server.mappath("../../file/temp") &"\"& asp_f_name &".xls"
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

'--创建EXCEL文件
t myfile = fs.CreateTextFile(filename,true)

myfile.writeline("<html>")
myfile.writeline("<head>")
myfile.writeline("<title>" & survey_name & "没奶水怎么办－统计数据结婚仪式流程</title>")
myfile.writeline("<meta http-equiv='Content-Type' content='text/html; chart=gb2312'>")
myfile.writeline("</head>")

myfile.writeline("<body bgcolor='#FFFFFF' text='#000000' leftmargin='0' topmargin='0'>")
书法结构myfile.writeline("<table width='100%' border='1' cellspacing='0' cellpadding='0' style='font-size:13px;'>")

'在<tr><td>间写入数据

while f
'写入记录
&venext
wendrs.clo
t rs=nothing

myfile.writeline("</table>")
myfile.writeline("</body>")
myfile.writeline("</html>")

		公司治理模式

ASP写入EXCEL

招财图片2008-11-18 00:05

<%
'程序名称：学分填写器 V2.0
'编写人员：绝情谷
'编写时间：2008年4月
'注意事项：服务器端必须设置COM组件的操作权限。在命令行键入“DCOMCNFG”，"组件服务"==>"计算机"==>"我的电脑"=="DCOM配置"==>"Microsoft Excel应用程序",右键选择"属性"，将"安全"选项卡的三个单选项一律选择自定义，编辑添加"Internet来宾(Iur_**)",加入所有权限。保存完毕后重新启动服务器。
%>
<%Server.ScriptTimeOut=300%>
<%On Error Resume Next '不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完,不留下死进程
xlsAddr = request.form("xlsAddr") '取得指定的路径
xlsFileName = request.form("xlsFileName") '取得要操作的 Excel 文件名
TableName = request.form("TableName") '取得要操作的 Excel 表名
strAddr = Server.MapPath(xlsAddr & xlsFileName) '指定的路径及文件名
t objExcelApp = CreateObject("Excel.Application") '创建 EXCEL 对象
objExcelApp.DisplayAlerts = fal '不显示警告
objExcelApp.Application.Visible = fal '不显示界面
objExcelApp.WorkBooks.Open(strAddr) ' Excel 文件名
t objExcelBook = objExcelApp.ActiveWorkBook
t objExcelSheets = objExcelBook.Worksheets
t objExcelSheet = objExcelBook.Sheets(TableName) '要操作的 Excel 表名
'--------------------------------------------------------
XXKSL = Cint(request("XXKSL"))
XXKSH = Cint(request("XXKSH"))
KTBXL = Cint(request("KTBXL"))
KTBXH = Cint(request("KTBXH"))
ZYZLL = Cint(request("ZYZLL"))
ZYZLH = Cint(request("ZYZLH"))
PSCSL = Cint(request("PSCSL"))
PSCSH = Cint(request("PSCSH"))
YSCJL = Cint(request("YSCJL"))
YSCJH = Cint(request("YSCJH"))
RDXFL = Cint(request("RDXFL"))
RDXFH = Cint(request("RDXFH"))
ClassCount = Cint(request("ClassCount"))
正太图片ColCount = Cint(request("ColCount"))
Dim lectedclass
lectedclass = 0
Dim Row_Col()
Redim Row_Col(ClassCount,ColCount)
for i=1 to ClassCount
Row_Col(i,1)=Cint(request.form("Class"&Cstr(i)&"Page1StartRow")) '第一页起始行
Row_Col(i,2)=Cint(request.form("Class"&Cstr(i)&"Page1StartCol")) '第一页起始列
Row_Col(i,3)=Cint(request.form("Class"&Cstr(i)&"Page1EndRow")) '第一页结束行
Row_Col(i,4)=Cint(request.form("Class"&Cstr(i)&"Page1EndCol")) '第一页结束列
Row_Col(i,5)=Cint(request.form("Class"&Cstr(i)&"Page2StartRow")) '第二页起始行
Row_Col(i,6)=Cint(request.form("Class"&Cstr(i)&"Page2StartCol")) '第二页起始列
Row_Col(i,7)=Cint(request.form("Class"&Cstr(i)&"Page2EndRow")) '第二页结束行
Row_Col(i,8)=Cint(request.form("Class"&Cstr(i)&"Page2EndCol")) '第二页结束列
next
for ban=1 to ClassCount
if request.form("bjxz"&Cstr(ban)) = "ON" then '如果选择了该班
lectedclass = lectedclass + 1
' respon.write "<p align=center><font size=5 color=#336699>正在生成" & ban & "班的数据,请耐心等候...</font></p><br />"
'生成第一页数据
If (Row_Col(ban,1)<>0) and (Row_Col(ban,3)<>0) Then
randomize
For i = Row_Col(ban,1) To Row_Col(ban,3)
objExcelSheet.Cells(i, Row_Col(ban,2)).Value = Cstr(Fix((XXKSH - XXKSL + 1) * Rnd() + XXKSL)) '修习课时(6%)
objExcelSheet.Cells(i, Row_Col(ban,2) + 1).Value = Cstr(Fix((KTBXH - KTBXL + 1) * Rnd() + KTBXL)) '课堂表现(6%)
objExcelSheet.Cells(i, Row_Col(ban,2) + 2).Value = Cstr(Fix((ZYZLH - ZYZLL + 1) * Rnd() + ZYZLL)) '作业质量(8%)
objExcelSheet.Cells(i, Row_Col(ban,2) + 3).Value = Cstr(Fix((PSCSH - PSCSL + 1) * Rnd() + PSCSL)) '平时测试(10%)
objExcelSheet.Cells(i, Row_Col(ban,2) + 4).Value = Cstr(Fix((YSCJH - YSCJL + 1) * Rnd() + YSCJL)) '模块考试原始成绩
objExcelSheet.Cells(i, Row_Col(ban,2) + 5).Value = Cstr(Round((objExcelSheet.Cells(i, Row_Col(ban,2) + 4)).Value * 0.7)) '模块考试折合成绩(70%)
objExcelSheet.Cells(i, Row_Col(ban,2) + 6).Value = objExcelSheet.Cells(i, Row_Col(ban,2)).Value + objExcelSheet.Cells(i, Row_Col(ban,2) + 1).Value + objExcelSheet.Cells(i, Row_Col(ban,2) + 2).Value + objExcelSheet.Cells(i, Row_Col(ban,2) + 3).Value + objExcelSheet.Cells(i, Row_Col(ban,2) + 5).Value
'综合评价分(100分)
objExcelSheet.Cells(i, Row_Col(ban,2) + 7).Value = Cstr(Fix((RDXFH - RDXFL + 1) * Rnd() + RDXFL)) '认定学分
'objExcelSheet.Cells(i, Row_Col(ban,2) + 7).Value = 2 '认定学分
Next
End If
'生成第二页数据
If (Row_Col(ban,5)<>0) and (Row_Col(ban,7)<>0) Then
randomize
For i = Row_Col(ban,5) To Row_Col(ban,7)
objExcelSheet.Cells(i, Row_Col(ban,6)).Value = Cstr(Fix((XXKSH - XXKSL + 1) * Rnd() + XXKSL)) '修习课时(6%)
objExcelSheet.Cells(i, Row_Col(ban,6) + 1).Value = Cstr(Fix((KTBXH - KTBXL + 1) * Rnd() + KTBXL)) '课堂表现(6%)
objExcelSheet.Cells(i, Row_Col(ban,6) + 2).Value = Cstr(Fix((ZYZLH - ZYZLL + 1) * Rnd() + ZYZLL)) '作业质量(8%)
objExcelSheet.Cells(i, Row_Col(ban,6) + 3).Value = Cstr(Fix((PSCSH - PSCSL + 1) * Rnd() + PSCSL)) '平时测试(10%)
objExcelSheet.Cells(i, Row_Col(ban,6) + 4).Value = Cstr(Fix((YSCJH - YSCJL + 1) * Rnd() + YSCJL)) '模块考试原始成绩
objExcelSheet.Cells(i, Row_Col(ban,6) + 5).Value = Cstr(Round((objExcelSheet.Cells(i, Row_Col(ban,6) + 4)).Value * 0.7)) '模块考试折合成绩(70%)
objExcelSheet.Cells(i, Row_Col(ban,6) + 6).Value = objExcelSheet.Cells(i, Row_Col(ban,6)).Value + objExcelSheet.Cells(i, Row_Col(ban,6) + 1).Value + objExcelSheet.Cells(i, Row_Col(ban,6) + 2).Value + objExcelSheet.Cells(i, Row_Col(ban,6) + 3).Value + objExcelSheet.Cells(i, Row_Col(ban,6) + 5).Value
'综合评价分(100分)
objExcelSheet.Cells(i, Row_Col(ban,6) + 7).Value = Cstr(Fix((RDXFH - RDXFL + 1) * Rnd() + RDXFL)) '认定学分
'objExcelSheet.Cells(i, Row_Col(ban,6) + 7).Value = 2 '认定学分
Next
End If
End if '对应如果选择了该班
next

'objExcelBook.SaveAs "ExcelResult.xls" '另存为... 若是保存Excel文件可以通过以下代码来实现: objExcelBook.Save
objExcelBook.Save
objExcelApp.Quit '释放 EXCEL 进程
t objExcelApp = Nothing '释放 EXCEL 对象
%>
<%
if lectedclass = 0 then lectedclass = 1000
respon.write "<form action='Analysis.asp' method='post' name='Resultform'>"
respon.write "<input type='hidden' name='lectedclass' value='" & lectedclass & "' size='20'>"
respon.write "<input type='hidden' name='xlsAddr' value='" & xlsAddr & "' size='20'>"
respon.write "<input type='hidden' name='xlsFileName' value='" & xlsFileName & "' size='20'>"
respon.write "<input type='hidden' name='TableName' value='" & TableName & "' size='20'>"
respon.write "</form>"
respon.write "<script language='JavaScript' type='text/JavaScript'>Resultform.submit()</script>"
%>书香里

本文发布于:2023-07-18 21:42:11，感谢您对本站的认可！

本文链接：https://www.wtabcd.cn/fanwen/fan/82/1103825.html

上一篇：消博会英语

下一篇：【星际争霸】人族经典语录中英文

标签：选择文件权限数据学分操作编写组件

留言与评论（共有 0 条评论）