asp读取excel问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 13:13:39
写了个asp读取excel,但是有个问题,当某个列既有数字又有字母的时候,整个excel都读不出来,只有全是数字,或者全是字母能读出来,求解决办法!
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 '获得字段数
tempstr=""
showstr=""
num=0
do while Not rs.EOF
'预留判断
if rs(0)=0 or rs(0)="" then
num=num+1
end if

用rs(0),rs(1)列索引的方式读取试试
=======================================
以下代码已经经过测试:

<%
Dim objConn,objRS
Dim strConn,strSql
dim lRecCount

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")
objConn.Open strConn
strSql="SELECT * FROM [Sheet1$]"
objRS.Open strSql,objConn,1,1

lRecCount=objRS.RecordCount
response.write "数据总数：" & CStr(lRecCount) & "<br>"

objRS.MoveFirst
while not objRS.eof
response.write objRS(0) & "----" & objRS(1) & "-------" & objRS(2) & "-------" & objRS(3) & "-------" & objRS(4)

& "<br>"
objRS.MoveNext
wend
objRS.Close
objCo