请教如何用ASP程序读取EXCEL数据，并保存至ACCESS数据库中

[stillsunhappy]

请教如何用ASP程序读取EXCEL数据，并保存至ACCESS数据库中

因为一次要保存至ACCESS的数据多，如果人工再输入一次，比较麻烦，希望能一次性导入

[possible_Y]

将EXCEL数据读出，自动在access里建表table1，将数据导入table1
<%
Response.Expires=0
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("student.xls")

SQL1="select * from [sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL1, conn, 3, 3


curDir = Server.MapPath("../data/whole.mdb")
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir

sql="CREATE TABLE table1("
for i=0 to rs.Fields.Count-2
sql=sql & rs(i).Name&" CHAR(100),"
Next
sql=sql & rs(rs.Fields.Count-1).Name&" CHAR(100))"
conn1.Execute sql
End if

Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from table1"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open

Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop

rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
Set conn1=nothing
set rs1=nothing
%>

[wanghr100]

ASP操作Excel技术总结
http://www.aspsky.net/article/show.aspx?id=2836