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

这次做的活是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

%>