如何用ASP读取Excel文件

2022-07-15 80酷酷网 80kuku.com

　　在企业级应用当中，我们往往需要对Execl进行操作，如读取Execl里面的数据、往Execl里插入数据等。一、操作Execl要注意的事项：1、服务器端Office的配置以MS Windows2000+IIS为例，要在服务器端安装有MS Office的成员之一Execl，Office的版本没有特殊要求。2、服务器端分布式COM的配置执行“ DCOMCNFG”命令，选择“应用程序”页的“Microsoft Execl 应用程序”—>“属性”—>“安全性”—>三个选项都选“使用自定义访问权限”，添加“Everyone”权限。二、首先，先将利用ASP读取Execl的数据(不建立DSN)：我们可以整个.xsl文件看作是一个数据库，sheet1、sheet2等分别看成一个独立的表，把A1、B1、C1、…N1看作表的字段。--建立连接对象实例ExeclConnSet ExeclConn=Server.CreateObject(“ADODB.Connection”)--利用Open 方法打开数据库StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_"DriverId=790; DBQ="& Server.MapPath("xls文件名")conn.Open StrConn--建立数据集对象Rs并查询数据Set Rs = Server.CreateObject("ADODB.Recordset") Sql="select * from [Sheet1$]"rs.Open Sql,conn,2,2具体例子：1、建立一个表Sheet1（数据库名为Students）

StudentID	姓名	语文	数学	物理	化学	地理
1	李雪青	83	84	76	95	66
2	冯江	87	96	82	100	81
3	吴小霞	76	43	37	60	82
4	邹亚汇	80	77	63	71	63
5	蔡海飞	89	63	92	86	67

2、查询并显示表Sheet1内容的代码<%Dim connDim StrConnDim rsDim SqlSet conn=Server.CreateObject("ADODB.Connection") StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_"DriverId=790; DBQ="& Server.MapPath("Students.xls")conn.Open StrConnSet rs = Server.CreateObject("ADODB.Recordset") Sql="select * from [Sheet1$]"rs.Open Sql,conn,2,2 %><center><table border="1"><tr><%for i=0 to rs.Fields.Count-1%> <td bgcolor="#0099FF"><%=rs(i).Name%></td><%next%></tr><%do while Not rs.EOF%><tr><%for i=0 to rs.Fields.Count-1%> <td><%=rs(i)%></td><%next%></tr><% rs.MoveNext Loop rs.close set rs=nothing StrConn.close set StrConn=nothing%></table></center>