ASP里，将Excel导入到Access数据库

下面连接到test.xls表sheet1$

'表后面要加个$的,一定要加这个符号

Set

conn

=

Server.CreateObject("ADODB.Connection")

conn.Open

"Driver={Microsoft

Excel

Driver

(*.xls)}ReadOnly=0DBQ="

&

Server.MapPath("test.xls")

SQL1="select

*

from

[sheet1$]"

Set

rs

=

Server.CreateObject("ADODB.Recordset")

rs.Open

SQL1,

conn,

3,

3

'下面连接到atest.mdb表user

curDir

=

Server.MapPath("atest.mdb")

Set

conn1

=

Server.CreateObject("ADODB.Connection")

conn1.Open

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

curDir

Set

rs1

=

Server.CreateObject("ADODB.Recordset")

Set

rs1.ActiveConnection

=

conn1

rs1.Source

=

"select

*

from

user"

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

基本思路是这样的：第一步，用文件上传组件把客户端的excel先上传到服务器；第二步，把excel导入access，具体导入方法，可以google

“access

excel

asp”

非常多

'写入数据库.oConn.Execute("Insert into users(userid,password)Values('"&rsRead.Fields("userid")&"','" &rsRead.Fields("password") &"')" )rsRead.MoveNextloop%>数据库data.mdb表usersid,uesrid,passwordExcel文件data.xls数据userid passwordwang w521zhange z254hong h112ASP读取EXCEL注事项!'i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致

---