IDC资讯中心
将excel中的数据导入到access中，前提是在access中的表已经建好。
dim conn
dim conn2
set conn=createobject(“adodb.connection”)
conn.open “provider=microsoft.jet.oledb.4.0;jet oledb:database password=;data source=c:\book1.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=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
导入到sql server数据库中时，如果excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用excel中的第一行数据做为表的字段名）：
dim conn
set conn=createobject(“adodb.connection”)
conn.open (“driver={sql server};server=localhost;uid=sa;pwd=sa;database=hwtemp;”)
sql = “select * into newtable from opendatasource( microsoft.jet.oledb.4.0,data source=””c:\book1.xls””;user id=admin;password=;extended properties=excel 5.0)…[sheet1$] ”
conn.execute(sql)
conn.close
set conn = nothing
选择自 sxycgxj 的 blog
