excel 2010 update 不能更新 excel 数据

学生甲1

excel 2010 update 不能更新 excel 数据
代码如下，详情请参附件，谢谢！
之前试过2003是可以的。

Sub 根据另一个工作簿更新数据update2010()

    Dim cnn As Object
    Dim sql As String
    Dim p  As String, f As String
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "B.xlsx")
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0 macro;Data Source=" & ThisWorkbook.FullName
    sql = "update [Excel 12.0;Database=" & p & f & "].[Sheet1$] a,[Sheet$] b set a.DES=b.DES where a.awb=b.awb"
    cnn.Execute sql
    cnn.Close
    Set cnn = Nothing

End Sub

学生甲1

跳出来这个框，不知道怎么回事，
有急用，麻烦帮帮忙。

学生甲1

各位高手有没有遇到过同类情况，请帮帮忙。

microyip

Excel没打开状态下，能Update的吗？如果你Update b（当前这个已打开状态）的话，估计是没问题的

学生甲1

microyip 发表于 2016-10-21 15:42
Excel没打开状态下，能Update的吗？如果你Update b（当前这个已打开状态）的话，估计是没问题的

我打开也不行，你看一下我的附件，帮我看看，谢谢！

学生甲1

我还没有找到答案，请各位帮帮忙。

xd3210

sql = "update [Excel 12.0;hdr=yes;imex=0;Database=" & p & f & "].[Sheet1$] a,[Sheet$] b set a.DES=b.DES where a.awb=b.awb"

学生甲1

xd3210 发表于 2016-10-23 12:10
sql = "update [Excel 12.0;hdr=yes;imex=0;Database=" & p & f & "].[Sheet1$] a,[Sheet$] b set a.DES=b. ...

excel 2003 hdr=yes;imex=0;不加，为什么2010要加。