asp 读取excel
ASP 2009/6/10 9:54:04 点击:不统计
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="& realpath
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
set Columns=rs.Fields
ColCount=Columns.Count '获得字段数
do while Not rs.EOF
'预留判断
rs(0)
rs(1)
rs(2)
或者
set objConn=Server.CreateObject("ADODB.Connection")
set objRS=Server.CreateObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & server.mappath
("test.xls")
·上一篇:检查网页地址合法 >> ·下一篇:asp读取excel例子 >>