access中怎样导入excel数据

【www.kvc13.com--热门资讯】

这是段ASP代码，可以将excel数据导入access

<%

dimconn'定义一个连接变量

dimconn2'定义第二个连接变量

'OnErrorResumeNext

Server.ScriptTimeOut=999999'超时时间

setconn=CreateObject("ADODB.Connection")

conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;DataSource="&Server.MapPath("../../mdb/etwldbs.mdb")'要导入的Access数据库名称，这里是etwldbs.mdb

setconn2=CreateObject("ADODB.Connection")

conn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;Extendedproperties=Excel5.0;DataSource="&Server.MapPath("../../mdb/HAVEN.xls")'要导入的EXCEL表名称TEST.xls

'-----------------------------------------------------------------------------------------

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

'-----------------------------------------------------------------------------------------

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

setrs=conn2.execute(sql)

dowhilenotrs.eof

i=1

sql="insertintohaven([haven])values('"&fixsql(rs(0))&"')"

'其中的price是要导入的目标表，其后的company，fromhaven是price表中的字段名，但是要和后面的fixsql（rs（数字））要对应！

'response.writesql

'response.end

conn.execute(sql)

i=i+1

rs.movenext

Response.Write"<fontface=宋体size=2>正在插入"&sql&"</font><Br>"

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

Response.Flush

loop

conn.close

setconn=nothing

conn2.close

setconn2=Nothing

IfErr=0Then

Response.Write"<script>alert('导入成功'),window.open('havenmanage.asp','_self')</script>"

Else

Response.Write"导入失败!"

EndIf

functionfixsql(str)

dimnewstr

newstr=str

ifisnull(newstr)then

newstr=""

else

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

endif

fixsql=newstr

endFunction

%>

本文来源：http://www.kvc13.com/news/146587/