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

zhaogang1960

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

2013-4-10 22:53 上传

点击文件名下载附件

沉默的流星

首先非常感激您的帮助：
1：我不知道您怎么做到的，但是我先前也是在您同样的位置添加了“and a.手机=b.手机”，但是运行出错？您可以帮我判断一下，我为什么出错吗？我很想明白
2：下午我会试着把您的方法，运用到自己的工作中。
再次感激您的帮助，希望您继续帮助那些需要您答疑解惑的人

沉默的流星

1：我找到原因了，是我改变“手机”号码时，数据格式由文本变成了数字，这是我运行出错的原因
2：我已经您的方法运用到我自己的程序
谢谢您的帮助！！！{:soso_e160:}

沉默的流星

老师，您好！还是上次那问题，我们解决了，当前工作表的数据和数据库里的数据，某些列值相同时，可以不导入了；但是我现在发现，还有个问题没有解决，请您指教！！！就是EXCEL工作表中的五万个数据，相同的，也不可以导入数据库，这个怎么实现啊？打个比方，您的那个通讯录，有五万行数据，但是如果有相同的名字和手机号的，则导入数据库时，只需要导入一行，即导入的数据，是唯一的，您明白我的意思吗？

zhaogang1960

沉默的流星 发表于 2013-4-16 18:48
老师，您好！还是上次那问题，我们解决了，当前工作表的数据和数据库里的数据，某些列值相同时，可以不导入 ...

请上传附件说明

沉默的流星

老师，请您带我走过难关{:soso_e100:}

zhaogang1960

沉默的流星 发表于 2013-4-16 22:16
老师，请您带我走过难关

本代码插入姓名和电话不重复记录，如果要不检查是否重复：
Sub 插入数据()
    Dim cnn As Object, rs As Object, SQL$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
        SQL = "insert into 通讯录 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"
        cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

好像理解错了，应该是先去掉工作表中的重复记录？如果是请测试：

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

复制代码

zhaogang1960

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

2013-4-16 23:41 上传

点击文件名下载附件

沉默的流星

老师，提个疑惑，如果数据表几万行数据，您的那种去掉工作表重复的姓名和手机的方法，可用吗？那么长的字符串，可以不？