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

沉默的流星

感激老师您的无私帮助，我下载下来，好好体会

沉默的流星

老师：数据库里的更新，而且保证是唯一的值，这个效果已经达到了，但是还有个问题没有解决，就是工作表里，虽然取的也是唯一的姓名和手机，但是不是最后一行的，而是第一行的值，不知道您是否听的懂，（比如说：当前工作表里，有四行数据，其中有两行的姓名和手机是相同的，但是我需要的是取，最后两行的数据），不知道您是否明白我的意思？
也就是说，工作表中有相同的姓名和手机时，我们只取最后面那一行的值，添加到数据库，或者更新数据库？
         很感激您无私的帮助，让我走到了这里，真的很幸运！

zhaogang1960

沉默的流星 发表于 2013-4-18 05:47
老师：数据库里的更新，而且保证是唯一的值，这个效果已经达到了，但是还有个问题没有解决，就是工作表里， ...

1. Sub 插入数据()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, rs As Object, SQL$
   
5.     Dim arr, i&, s$, s2$, t$
   
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
   
9.             s = s & ",last(" & arr(1, i) & ") as " & arr(1, i)
   
10.             s2 = s2 & ",a." & arr(1, i) & "=b." & arr(1, i)
    
11.         Else
    
12.             s = s & "," & arr(1, i)
    
13.         End If
    
14.     Next
    
15.     Set cnn = CreateObject("adodb.connection")
    
16.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
    
17.     SQL = "update 通讯录 a,[Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "] b set " & Mid(s2, 2) & " where a.姓名=b.姓名 and a.手机=b.手机"
    
18.     cnn.Execute SQL '不判断，更新可能存在的姓名和手机记录
    
19.     SQL = "select a.* from (select " & Mid(s, 2) & " from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
    
20.         & "] group by 姓名,手机) a  left join 通讯录 b on a.姓名=b.姓名 and a.手机=b.手机  where b.姓名 is null"
    
21.     Set rs = CreateObject("adodb.recordset")
    
22.     rs.Open SQL, cnn, 1, 3
    
23.     If rs.RecordCount Then
    
24.         SQL = "insert into 通讯录 " & SQL
    
25.         cnn.Execute SQL
    
26.         MsgBox rs.RecordCount & "行数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
    
27.     Else
    
28.          MsgBox "工作表的数据数据库中已经存在。", vbInformation
    
29.     End If
    
30.     rs.Close
    
31.     cnn.Close
    
32.     Set rs = Nothing
    
33.     Set cnn = Nothing
    
34. End Sub
    

复制代码

zhaogang1960

说明：按照最后出现的记录插入到数据库可以实现，但根据工作表内容更新数据库却不是按照最后出现的记录，因为更新语句不能使用查询
请看附件
工作表数据上传Access.rar (204.74 KB, 下载次数: 188)

2013-4-18 13:04 上传

点击文件名下载附件

LMY123

zhaogang1960 发表于 2013-4-18 13:04
说明：按照最后出现的记录插入到数据库可以实现，但根据工作表内容更新数据库却不是按照最后出现的记录，因 ...

感谢版主耐心指导，EXCEL做前台，ACCESS数据库做后台，学习中

bluexuemei

把EXCEL内容添加到ACCESS中，学习！

YincyHe

zhaogang1960 发表于 2013-4-18 13:01

赵老师您好，您能解释一下这个代码吗？[iv1].end(1)这是什么啊？然后就是那个s字符串中的last是什么意思呢？谢谢啦

zhaogang1960

YincyHe 发表于 2013-4-18 17:25
赵老师您好，您能解释一下这个代码吗？.end(1)这是什么啊？然后就是那个s字符串中的last是什么意思呢？谢 ...

[iv1].end(1)——光标定位在IV1，按住Ctrl，同时按下向左键，下面是录制宏：
Sub Macro1()
    Range("IV1").Select
    Selection.End(xlToLeft).Select'xlToLeft可用1表示
End Sub
last函数——取分组中本字段最后一个，楼主的记录有重复，去掉重复要保留最后一个

沉默的流星

老师：您好！
      我想了好久，你看可不可以这样，我在数据库中建一个“temp”表，第一步：这个表接收当前工作表中唯一的姓名和手机，（如果有重复的姓名和手机，去最后一个的值），第二步：将“temp”表的值，追加或者更新到“通讯录”表中，我改了一下，您帮我看看，是否可行？是否可以优化？我试了一下，五万行数据，进行这样的操作，大概需要30秒，不过已经可以满足我的需求了。还有一个问题，为什么，导入到“temp”表的数据，是按姓名排序的啊，我没有进行排序啊，这是什么原因呢？谢谢您的帮助和及时的讲解，你的那些语句，我还没完全懂，我会好好的消化的，呵呵，我把附件上传，您帮我把把脉！！！

zhaogang1960

沉默的流星 发表于 2013-4-18 18:48
老师：您好！
      我想了好久，你看可不可以这样，我在数据库中建一个“temp”表，第一步：这个表接收当 ...

有个概念性错误，你导入临时表的数据不是工作表表不重复记录(相同记录取最后的)，而是数据库中不存在的记录，这样会导致更新语句无效