在做项目时，经常遇到要将excel中的大量数据导入到access数据库中，原来的做法是读一条写一条，若导入上万条的数据需要几分仲时间，速度很慢。有没有最快的方法呢？经本人研究、反复的实验，终于写出了最快速的批量导入大批量数据的方法，上万条数据只需几秒钟就可全部导入，够快了吧。代码公布出来与大家分享。
set conn = server.createobject("adodb.connection")
connstr = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("test.mdb")
conn.open connstr
sql = "insert into userinfo select username,useraccount,userstatus from [userinfo$] in '" & server.mappath("hbwluserinfo.xls")
& "' 'excel 8.0;' where useraccount is not null"
conn.execute (sql)