两个工作簿3列进行比较

caoyan2680

这是两个工作簿，我需要的是：把两个工作簿进行比较，账单的C\D\H列分别与采购订单的Q\AB\O列进行比较，如果3列都相同，在“账单”的最后一列显示“采购订单”的B列内容，在“采购订单”的最后一列显示“账单”的A列内容。请大神们帮忙！！！！

LMY123

ado跨薄查询及update

caoyan2680

LMY123 发表于 2018-4-25 13:31
ado跨薄查询及update

是需要编写宏吗？

LMY123

caoyan2680 发表于 2018-4-26 13:38
是需要编写宏吗？

Sub 根据本表update外薄外表2003() '本表即内表
    Dim cnn As Object
    Dim SQL As String
    Dim p  As String, f As String
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "外薄.xls")
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;" _
    & "Data Source=" & ThisWorkbook.FullName
    SQL = "update [Excel 8.0;Database=" & p & f & "].[外表$] a," _
    & "[内表$] b " _
    & "set a.外表字段2=b.内表字段2 " _
    & "where a.外表字段1=b.内表字段1"
    cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
End Sub

LMY123

caoyan2680 发表于 2018-4-26 13:38
是需要编写宏吗？

Sub 根据外表update本表2003() '本表即内表
Dim conn
Dim sql As String
'-------------------------------------------------------
spath = ActiveWorkbook.FullName 'ActiveWorkbook.FullName为当前excel文件路径
sql = "update [内表$] A,[Excel 8.0;HDR=yes;imex=2;DATABASE=" & ActiveWorkbook.Path & "\外薄.xls].[外表$] B SET A.内表字段2=B.外表字段2 where A.内表字段1=B.外表字段1"
'-------------------------------------------------------
Set conn = CreateObject("adodb.connection") '创建ado对象
'Set rst = CreateObject("ADODB.recordset") '创建记录集

If Application.Version >= 15 Then
'调用数据库类型----------------------------------------
  '针对Excel2013数据引用微软引擎，最后添加数据库路径
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes;imex=3';data source=" & spath
ElseIf Application.Version >= 14 Then
  '针对Excel2010以前的数据引用微软引擎，最后添加数据库路径
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=YES;imex=3';data source=" & spath
ElseIf Application.Version >= 11 Then
  '针对Excel2003以前的数据引用微软引擎，最后添加数据库路径
  conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=YES;imex=3';data source=" & spath
End If

conn.Execute (sql)

conn.Close
Set conn = Nothing
End Sub
'http://club.excelhome.net/thread-1279303-1-1.html

caoyan2680

LMY123 发表于 2018-4-26 15:28
Sub 根据外表update本表2003() '本表即内表
Dim conn
Dim sql As String

不明白怎么用啊？望明确指导。

LMY123

caoyan2680 发表于 2018-4-27 13:47
不明白怎么用啊？望明确指导。

UPDATE.rar (44.72 KB, 下载次数: 43)

2018-4-27 15:42 上传

点击文件名下载附件