ASP中将Excel数据导入到Access

<%

dim conn     ’定义一个连接变量

dim conn2        ’定义第二个连接变量

’On Error Resume Next

Server.ScriptTimeOut = 999999       ’超时时间

set conn=CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb")  ’要导入的数据库名称，这里是Fang.mdb

set conn2=CreateObject("ADODB.Connection")

conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Fang.xls") ’要导入的EXCEL表名称Fang.xls

’-----------------------------------------------------------------------------------------------------------------

’这里要说明的是，数据库和Excel表和该文件必须在网站同一目录里

’-----------------------------------------------------------------------------------------------------------------

sql = "SELECT * FROM [Sheet1$]"      ’要导入的Excel数据里面的表的名称，后面一定要加$

set rs = conn2.execute(sql)

while not rs.eof

sql = "insert into zhenya([country],[mobile]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’)"

’其中的zhenya是要导入的目标表，其后的country，mobile是zhenya表中的字段名，但是要和后面的fixsql（rs（数字））要对应！

’response.write sql

’response.end

conn.execute(sql)

rs.movenext

Response.Write "正在插入 "&sql&"<Br>"

’在这里输出执行的语句，可以去掉的！

Response.Flush

wend

conn.close

set conn = nothing

conn2.close

set conn2 = Nothing

If Err = 0 Then

Response.Write "导入成功"

Else

Response.Write "导入失败!"

End If

function fixsql(str)

dim newstr

newstr = str

if isnull(newstr) then

newstr = ""

else

newstr = replace(newstr,"’","’’")

end if

fixsql = newstr

end Function

%>