我想利用ASP读取一个EXCEL文件中的资料，如何自动获取工作表sheet1中的有数据的单元格范围（共有m行n列），如何自动获取m、n的数值！

recordset中有相差的属性。（excel表可以当着数据库来使用）

Dim Conn,Driver,DBPath,Rs,n(500,4)
Set Conn=Server.CreateObject("ADODB.Connection")
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath( "资料.xls" )
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Conn.Execute(Sql)
Do While Not Rs.EOF
     i=i+1
     n(i,1)=Rs("个体")
     Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
象这样如何自动确定数组n的维数,即自动获得样本中的数组n的维数,而不是事先确定n(500,4),如何实现

rs.recordcount是返回行数
rs.fields.count是返回列数
声明数组n
Dim n()
Redim (Rs.recordcount,rs.Fields.count)

谢谢，请问能将我的代码直接修改吗，我更改不了！

Dim Conn,Driver,DBPath,Rs,n(),r,c
Set Conn=Server.CreateObject("ADODB.Connection")
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath( "资料.xls" )
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3
ReDim n(rs.RecordCount,rs.Fields.Count)
r=0
Do While Not Rs.EOF
     For c=0 To rs.Fields.Count-1
           n(r,c)=rs.Fields(c).Value
     Next
     r=r+1
     Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

好的,请问以下代码要按照你的修改如何进行,谢谢
<%
Dim Conn, Driver, DBPath, Rs, name
Set Conn=Server.CreateObject("ADODB.Connection")
'确定数据源路径
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath("test.xls")
'调用Open方法打开数据库，生成记录集
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Conn.Execute(Sql)
'读入数据，确定动态数组
Do While Not Rs.EOF
k=k+1: Rs.MoveNext: Loop
Rs.Close: Set Rs=nothing
Conn.Close: Set Conn=Nothing
ReDim n(k,4), m(k,4)
'数据读入数组并计算
Set Conn=Server.CreateObject("ADODB.Connection")
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath("test.xls")
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Conn.Execute(Sql)
Do While Not Rs.EOF:i=i+1
n(i,1)=Rs("个体"):n(i,2)=Rs("父本")
n(i,3)=Rs("母本"):n(i,4)=Rs("评分")
Rs.MoveNext:Loop
Rs.Close:Set Rs=Nothing
Conn.Close:Set Conn=Nothing
%>

另,Rs.Open SqlConn,1,3
这个1,3是什么意思呀

[ 本帖最后由 dwsc103 于 2010-9-28 18:29 编辑 ]

<%
Dim Conn, Driver, DBPath, Rs, name,r,c
Set Conn=Server.CreateObject("ADODB.Connection")
'确定数据源路径
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath("test.xls")
'调用Open方法打开数据库，生成记录集
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3'1,3是为了得到rs.RecordCont数据行数
ReDim n(rs.RecordCount,rs.Fields.Count)
r=0
Do While Not Rs.EOF
     For c=0 To rs.Fields.Count-1
           n(r,c)=rs.Fields(c).Value
     Next
     r=r+1
     Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>