asp操作excel 显示数据及统计方法

日期：2008年9月18日作者：查看:[大字体中字体小字体]

这次做的活是asp操作excel，全程序是每行都标出，然后像填空一样做的。现在被我改成了动态显示每行的项，再逐行显示，最后做一个汇总。

1、FSO找到excel文件
<%
Dim fso,folder,file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("data"))

Dim name
For Each file in folder.Files
name = fso.GetBaseName(file)
%>
<li><%=name%></li>
<%
Next
%>

2、连接excel文件，获取第一个sheet的name

<%
//建立Connection对象
Set Conn_qc = Server.CreateObject("ADODB.Connection")
Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
//调用Open 方法打开数据库
DBPath = "Data Source=" & Server.MapPath("data\" & table & ".xls") & ";" '注意：此处的table变量为文件名，可由上一个方法得到
Conn_qc.Open Driver & DBPath & DBParm
//获取第一个sheet的名称
Set rs=Conn_qc.OpenSchema(20)
TableName = rs("Table_name")
rs.Close
//查询数据
Sql="Select * From [" & TableName & "]"

//response.write(sql)
'Set Rs=Conn.Execute(Sql)
rs.open sql, Conn_qc, 1, 1 '此处可以解决recordcount为 -1 的问题
if rs.recordcount<>0 then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" bgcolor="#F2F8FF" ><% =rs(i).Name %></td>
<%next%>
</tr>
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" class="f"><%=rs(i)%></td>
<%next%>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
Conn_qc.close
%>
（出处：http://www.hackhome.com）
asp操作excel 显示数据及统计方法相关文章：
·GHOST使用方法（图解）
·QQ空间开场动画免费拿的方法
·电脑键盘的使用方法和执法训练
·QQ挂号升级方法
·查找对方IP地址的一些方法
·能上QQ不能开网页的解决方法
·ADSL猫路由设置方法
·盗QQ号码方法大全
·[赚钱]梦幻西游: 关于梦幻赚钱方法
·万能声卡驱动（Alsa）的安装方法
asp操作excel 显示数据及统计方法相关软件
·三国9普通版升级威力加强版方法以及补丁大全（极力推荐）
·《东方法律宝典》--常用法律法规汇编
·学习方法宝典 V2007
·网站推广29种常用方法
·东方法律宝典 V2007 版
·PDF电子书简要制作方法
·vc++6编程方法

上一篇:卡巴斯基 2009与Office 2003/2007冲突的解决办法

下一篇:卡巴斯基皮肤美化小技巧

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

asp操作excel 显示数据及统计方法

精品推荐

热点TOP10

特别推荐