我在网上找了个用asp将excle数据导入access数据库~~
代码如下：
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "rovider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;Data Source=c:\book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "rovider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"

sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values(';"& fixsql(rs(0)) &"';,';"& fixsql(rs(1)) &"';,';"& fixsql(rs(2)) &"';,';"& fixsql(rs(3)) &"';)"
conn.execute(sql)
rs.movenext
wend
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"';","';';")
end if
fixsql = newstr
end function
我在c盘下新建了个book1.mdb的文件，同时将book1.xle文件放在同一目录下~可是无法显示~~各位大哥帮忙指点下~
小弟不胜感激

我做过测试了，是没有问题的。这是你的代码，我只修改了部分文件名称： <% dim conn dim conn2 set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;Data Source=c:\book.mdb" set conn2=CreateObject("ADODB.Connection") conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;Extended properties=Excel 5.0;Data Source=c:\book.xls" sql = "SELECT * FROM [Sheet1$]" set rs = conn2.execute(sql) while not rs.eof sql = "insert into xxx([aaa],[bbb]) values(';"& fixsql(rs(0)) &"';,';"& fixsql(rs(1)) &"';)" conn.execute(sql) rs.movenext wend conn.close set conn = nothing conn2.close set conn2 = nothing function fixsql(str) dim newstr newstr = str if isnull(newstr) then newstr = "" else newstr = replace(newstr,"';","';';") end if fixsql = newstr end function %>