将Excel数据快速大批量导入Access数据库的代码

最新推荐文章于 2022-09-10 15:22:15 发布

最新推荐文章于 2022-09-10 15:22:15 发布 · 7k 阅读

文章标签：

#Excel #Access #SQL Server #SQL #Microsoft

本文介绍了一种高效的方法，可以实现从Excel批量导入数据到Access数据库，仅需几秒即可完成上万条数据的导入。通过使用ADODB连接及特定SQL语句，极大提升了数据迁移效率。

在做项目时，经常遇到要将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)