您所在的位置:小祥子 » 编程 » ASP » 正文

ASP读取Excel表格数据实例代码

时间:2015-03-22 编辑:本站 来源:本站原创

ASP读取Excel表格数据,也可以用于上传Excel表然后批量导入数据操作。

代码如下
<%
strAddr = Server.MapPath("xxx.xls")  '设置Excel路径
Set excel  = Server.CreateObject("adodb.connection")
excel.open = "provider=microsoft.jet.oledb.4.0; data source =" & strAddr & ";Extended Properties='Excel 8.0;IMEX=1'"
Sql        = "Select * From [Sheet1$] "
Set rs     = Server.CreateObject("adodb.recordset")
rs.open Sql,excel

If Not (rs.bof And rs.eof) Then

 For j = 0 To rs.Fields.Count - 1
  Response.wrtie rs.Fields(j).Value
 Loop While( Not rs.eof)

Else
 Response.Write "无记录"

End If

rs.Close
Set rs = Nothing
excel.Close
Set excel = Nothing
%>