将excel中的数据更新到access

zhaogang1960

wind_myths 发表于 2014-2-27 15:49
出状态外的其他所有字段来修改，即日期        类型        型号        产线        工序号        移入 ...

1. Sub pass()
   
2.     Dim cnn As Object
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     Dim s$, Arr, i%, SQL$
   
5.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\数据库.accdb"
   
6.     Arr = Range("A1").CurrentRegion
   
7.     For i = 1 To UBound(Arr, 2) - 1
   
8.         s = s & " and a." & Arr(1, i) & "=b." & Arr(1, i)
   
9.     Next
   
10.     SQL = "update 记录 a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
    
11.         & Range("a1").CurrentRegion.Address(0, 0) & "] b set a.状态=b.状态 where " & Mid(s, 6)
    
12.     cnn.Execute SQL
    
13.     MsgBox "修改完毕。"
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. 
    

复制代码

wind_myths

zhaogang1960 发表于 2014-2-27 15:57
工作表中的最后2行数据是重复的，只能按照最后1行修改状态，下面附件中我将最后一个状态改为批准2，你可以试 ...

谢谢赵老师，可能数据缺失有点问题，一般不会出现这么奇葩的现象。万分感谢