如何从excel中提取某几列，存入数组中

Question

请教高手：如何从excel中提取某几列，存入数组中？
请高手指点一二。

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Arr()cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended
    Properties=""Excel 8.0;HDR=Yes;IMEX=1"""rs.Open "Select 列名1, 列名2 From [Sheet1]"如果 Excel 没有表头，去掉连接字符串中的 HDR=Yes;，列名用 F1、F2 等替换。Arr = recordset.GetRows得到的是一个二维数组，第一下标是列号，第二下标是行号。

Answer 2

rs.Open "Select 列名1, 列名2 From [Sheet1$]"

Answer 3

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&fileName
sql = "SELECT * FROM [Sheet1$]" 
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn2,1,3
rs.movenext
work= rs(1)
type0 = rs(2)
colornum= rs(3)
color= rs(4)exec="select * from factory  where autonum='"&filename&"'"
set rs2=Server.CreateObject("ADODB.recordset")
rs2.open exec,conn,1,3
    if not rs2.eof then
 Response.Write "<script>alert('已存在');location.href='index.asp'</script>"
    else
rs2.addnew
rs2("work")=work
rs2("type0")=type0
rs2("colornum")=colornum
rs2("color")=color
rs2("autonum")=fileName
rs2("state1")="0000"
rs2("time1")="0000"
rs2("state2")="0000"
rs2("time2")="0000"
rs2("state3")="0000"
rs2("time3")="0000"
rs2("listnum")="0000"
rs2.update
end if
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
Response.Redirect "index.asp"
%>