根据excel表数据更新有重复记录的数据库并插入数据库中不存在的记录

圣手智多星

excel表中的数据从access中某些列中导出来的，然后在最后三列（排版人，完工日期，备注说明）填写数据。现在需要按制令单号对号入座返写排版人，完工日期，备注说明中的数据到access中去，但其它access的数据不变。

圣手智多星

没有人可以解决问题吗？

圣手智多星

怎么样才可以让高手来给予解答呢？

圣手智多星

怎么样才可以把问题推广，让更多的人来解决问题

圣手智多星

版主可以出来耍哈哈，露两手。

圣手智多星

版主可以出来耍哈哈，露两手。

圣手智多星

版主可以出来耍哈哈，露两手。

魂断蓝桥

圣手智多星 发表于 2016-8-1 00:54
版主可以出来耍哈哈，露两手。

楼主可以试一下，行不行。

Sub up()
    Dim cn As Object, sql As String, arr, i%, j%, m%, t%
    Set cn = CreateObject("ADODB.Connection")
    cn.Mode = adModeShareDenyNone
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        For j = 9 To 11
            sql = sql & arr(1, j) & "='" & arr(i, j) & "',"
        Next
            sql = Left(sql, Len(sql) - 1)
            sql = "update 制令单 SET " & sql & " WHERE 制令单号='" & arr(i, 1) & "'"
            cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\制令单总表.accdb"
            cn.Execute sql, m, 1
            t = m + t
            cn.Close
            sql = ""
    Next
    Set cn = Nothing
    MsgBox "更新" & t & "条数据"
End Sub

圣手智多星

魂断蓝桥 发表于 2016-8-1 09:11
楼主可以试一下，行不行。

Sub up()

感谢版主，几千条数据，也许只有一俩个数据更新，更新到access中要用很长的时间。有没有办法仅限于工作表有更新的行才更新到access中。

魂断蓝桥

圣手智多星 发表于 2016-8-2 19:11
感谢版主，几千条数据，也许只有一俩个数据更新，更新到access中要用很长的时间。有没有办法仅限于工作表 ...

我不是版主啊

Sub up()
Dim cnn, Sql As String,  mypath$, m%
Set cnn = CreateObject("adodb.connection")
mypath = ThisWorkbook.Path & "\制令单总表.accdb"
i = sheet1.[a9999].End(3).Row
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & mypath
Sql = "select COUNT(a.制令单号) from 制令单 A INNER JOIN [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[制令单$a1:k" & i & "] B" _
        & " ON A.制令单号=B.制令单号"
m = cnn.Execute(Sql)(0)
Sql = "update 制令单 A,[Excel 12.0;imex=0;Database=" & ActiveWorkbook.FullName & "].[制令单$a1:k" & i & "] B" _
        & " SET A.排版人=B.排版人,A.完工日期=B.完工日期,A.备注说明=B.备注说明 WHERE A.制令单号=B.制令单号"
    cnn.Execute Sql
cnn.Close
Set cnn = Nothing
MsgBox "更新 " & m & " 条记录"
End Sub