将excel中的数据导入到access中，前提是在access中的表已经建好。

dim conn <p>dim conn2 <p>set conn=createobject("adodb.connection") <p>conn.open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=;data source=c:\book1.mdb" <p> <p>set conn2=createobject("adodb.connection") <p>conn2.open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=;extended properties=excel 5.0;data source=c:\book1.xls" <p> <p> <p>sql = "select * from [sheet1$]" <p>set rs = conn2.execute(sql) <p>while not rs.eof <p> sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" <p> conn.execute(sql) <p> rs.movenext <p>wend <p> <p>conn.close <p>set conn = nothing <p>conn2.close <p>set conn2 = nothing <p> <p>function fixsql(str) <p> dim newstr <p> newstr = str <p> if isnull(newstr) then <p> newstr = "" <p> else <p> newstr = replace(newstr,"'","''") <p> end if <p> fixsql = newstr <p>end function

　　导入到sql

server数据库中时，如果excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用excel中的第一行数据做为表的字段名）：

dim conn <p>set conn=createobject("adodb.connection") <p>conn.open ("driver={sql server};server=localhost;uid=sa;pwd=sa;database=hwtemp;") <p>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$] " <p>conn.execute(sql) <p> <p>conn.close <p>set conn = nothing