五万行excel 数据导入ACCESS，需要半小时，如何提速？

一执成念

跟着学习一下

ALISA11

zhaogang1960 发表于 2013-4-9 21:37
5万行数据仅需5秒钟，请参考：

菜鸟一枚，能麻烦您解释一下代码吗。如果有几百万条数据，能导入access中吗

wangchangping

赵版的解决方法太神了

忘得快

zhaogang1960 发表于 2013-4-9 21:37
5万行数据仅需5秒钟，请参考：

赵老师：国庆节快乐！
赵老师，您5楼的代码插入50000行数据没问题，但插入130000行以上数据时出错（Excel2007）,不知有否解决办法？谢谢！

忘得快

zhaogang1960 发表于 2015-7-31 22:42
在Excel2007或以上版本中运行：
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & Thi ...

赵老师您好！
改用你70楼的代码后还是不能导入130000以上的数据，请教如何解决？谢谢！

zhaogang1960

忘得快 发表于 2016-10-2 09:33
赵老师您好！
改用你70楼的代码后还是不能导入130000以上的数据，请教如何解决？谢谢！

哦，这应该是微软的一个Bug，解决方法有两种：

一、去掉$后面的区域，如：Sheet1$

或者

二、如果坚持要区域，该工作簿不能处于打开状态，必须把它另存为一个单独的工作簿，并处于关闭状态

忘得快

zhaogang1960 发表于 2016-10-2 22:43
哦，这应该是微软的一个Bug，解决方法有两种：

一、去掉$后面的区域，如：Sheet1$

谢谢老师指点！请教：SQL = "insert into 导入明细 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"的语句应如何修改呢？

忘得快

zhaogang1960 发表于 2016-10-2 22:43
哦，这应该是微软的一个Bug，解决方法有两种：

一、去掉$后面的区域，如：Sheet1$

谢谢老师指点！请教：SQL = "insert into 导入明细 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"的语句应如何修改呢？

忘得快

zhaogang1960 发表于 2016-10-2 22:43
哦，这应该是微软的一个Bug，解决方法有两种：

一、去掉$后面的区域，如：Sheet1$

我将SQL = "insert into 导入明细 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"改为
SQL = "insert into 导入明细 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" &  "]"提示数据类型错误！

zhaogang1960

忘得快 发表于 2016-10-3 09:45
我将SQL = "insert into 导入明细 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "]. ...

建议把数据源另存为单独工作簿，并处于关闭状态，否则速度太慢：
工作表数据上传Access.rar (1.52 MB, 下载次数: 111)

2016-10-3 14:25 上传

点击文件名下载附件