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

沉默的流星

首先，我在excel VBA 中建立一个access数据库，然后将当前工作表的数据（五万多行），导入刚才建立的数据库中，为什么速度慢的像蜗牛，5000行较快，2万行大概5分钟，五万行就时间很长了，特别是数据库中含有（已导入的）数据时，速度会更慢；本人初学者（自己下载资料学习的，不太懂更深的），但工作需要处理大量数据，请各位前辈，老师指教！！！华为网盘附件：
【华为网盘】 创建数据库.zip

yczzwy

弄个下载衔接也好吗

jenselvcn

直接使用access导入text 文件即可。 很快的。

zhaogang1960

5万行数据仅需5秒钟，请参考：

1. Sub 插入数据()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, SQL$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
   
7.     SQL = "insert into 通讯录 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"
   
8.     cnn.Execute SQL
   
9.     MsgBox "数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    
13. 
    
14. 
    

复制代码

zhaogang1960

请看附件
工作表数据上传Access.rar (195.44 KB, 下载次数: 668)

2013-4-9 21:38 上传

点击文件名下载附件

沉默的流星

zhaogang1960 发表于 2013-4-9 21:38
请看附件

       非常神奇，非常感激！谢谢您了，有了您这样的前辈指引，我想我不会放弃学习的，因为我不是一个人在这条路上行走！我会好好消化您的东西的。
       但是对于您的答疑，我有个不明白的地方请指点：我第一次添加的时候，用了3秒，但是如果数据库已经有了那些数据，第二次添加的时候，您是直接添加到数据表的后面，其实我想要的结果是第二次添加到数据时，应该相同的数据，就不添加到数据库的表里，不相同的才添加。

zhaogang1960

沉默的流星 发表于 2013-4-9 22:34
非常神奇，非常感激！谢谢您了，有了您这样的前辈指引，我想我不会放弃学习的，因为我不是一个人在 ...

以姓名不能重复为例写代码，请注意，判断数据是否重复需要的时间和插入记录需要的时间几乎相等，即整个用时要增加一倍：

1. Sub 插入数据()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, rs As Object, SQL$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     Set rs = CreateObject("adodb.recordset")
   
7.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
   
8.     SQL = "select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
   
9.         & "] a  left join 通讯录 b on a.姓名=b.姓名 where b.姓名 is null"
   
10.     rs.Open SQL, cnn, 1, 3
    
11.     If rs.RecordCount Then
    
12.         SQL = "insert into 通讯录 " & SQL
    
13.         cnn.Execute SQL
    
14.         MsgBox rs.RecordCount & "行数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
    
15.     Else
    
16.          MsgBox "工作表的数据数据库中已经存在。", vbInformation
    
17.     End If
    
18.     rs.Close
    
19.     cnn.Close
    
20.     Set rs = Nothing
    
21.     Set cnn = Nothing
    
22. End Sub
    

复制代码

zhaogang1960

不提示是否有重复，仅插入不重复的记录：

1. Sub 插入数据不提示是否有重复()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, SQL$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
   
7.         SQL = "insert into 通讯录 select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
   
8.         & "] a  left join 通讯录 b on a.姓名=b.姓名 where b.姓名 is null"
   
9.         cnn.Execute SQL
   
10.         MsgBox "数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

zhaogang1960

两种方法效果一样，请看附件
工作表数据上传Access.rar (197.25 KB, 下载次数: 468)

2013-4-9 22:55 上传

点击文件名下载附件

沉默的流星

太感激您了，我会好好消化的，{:soso_e100:}