用VBA实现两个工作簿数据的匹配

jiuri0221

工作簿表1和工作簿表2 都有一个相同的编码，想把工作簿2中的数据匹配到工作簿1中。
如果2和1匹配上，就在1的接通日期写上当前日期。
                            地址列匹配上。
                            登记时间列匹配上。
如果2的数据在1中没有找到，没有匹配上的数据，它所在各列空着。
麻烦各位高手指点。这个是不是涉及到调用其他工作簿中的数据呀，小的不行了。求助！！

jiuri0221

感觉应该用ADO和SQL语言。请大神路过指点迷津

zax010

Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    Workbooks.Open (ThisWorkbook.Path & "\大表2.xlsx")
    ar = ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion
    ActiveWorkbook.Close False
    For i = 2 To UBound(ar)
        d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))
    Next
    With Sheet1
        For i = 2 To .[a1048576].End(3).Row
            If d.exists(.Cells(i, 1).Value) Then
                .Cells(i, 2) = Date
                .Cells(i, 3).Resize(1, 2) = d(.Cells(i, 1).Value)
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>>


V表.rar (23.22 KB, 下载次数: 541)

2015-3-31 13:26 上传

点击文件名下载附件

jiuri0221

zax010 发表于 2015-3-31 13:27
>>>>>>>>>>>>>>>>>>>>>>

学习了，好用。我得好好研究一下。谢谢zax010

jiuri0221

我的想法：
            在工作簿2关闭的情况下进行查询匹配，因为我还有其他工作簿要匹配。所以为了一会添加程序方便。
            大表1和大表2放在  文件夹 C:\Users\my\Desktop\V表
            不知道能不能用getfile拿到表2里的数据呢？怎么才能在表2关闭的情况下抓取数据。谢谢。以下是我的思路编的，帮我看看

Public Sub VES()
Dim fso, fld,wb
Set fso = CreateObject("Scripting.FileSystemObject")  
'Application.ScreenUpdating = False
'Application.diplayalerts = False
On Error Resume Next
Dim strpath As String
strpath = "C:\Users\my\Desktop\V表" & "\"
Dim strfile, strsheet As String
strfile = "大表2.xlsx"
strsheet = "工单明细报表"

Set fld = fso.getfolder(strpath)   ‘找到放表2这个文件夹

wb = Getfile("C:\Users\my\Desktop\V表\大表2.xlsx")
Dim i, j As Integer
Dim lrow2 As Integer
lrow2 = wb.Worksheets(strsheet).Range("a65536").End(xlUp).Row  ’找到表2的最后一行
With workbooks("大表1").Worksheets("sheet1")
    For i = 2 To .Range("j65536").End(xlUp).Row
    rng = wb.Worksheets(strsheet).Range("a1:a" & lrow2).Find(what:=.cell(i, 1))    ‘在表1中的数据与表2匹配
   
    If Not rng Is Nothing Then
    .Cells(i, 2) = Date
    .Cells(i, 3) = rng.Offset(0, 1).Value
    .Cells(i, 4) = rng.Offset(0, 2).Value
        End If
    Next
End With
Application.ScreenUpdating = False
Application.diplayalerts = False
End Sub

能帮我看一下这个程序为什么提取不了表2内容呀？错在哪里了？

ranger丶亦

我也想要跨表引用数据，看看学习一下

会飞的土豆宏宏

zax010 发表于 2015-3-31 13:25
Sub zz()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")

d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))这一句看不懂。。。。

hacker85

会飞的土豆宏宏 发表于 2022-11-24 15:12
d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))这一句看不懂。。。。

这是字典用法。一句两句说不清楚，你可以到抖音、B站等VBA播主的页面上去学习一下字典的用法，就明白了。   

这句，说白了，就是利用字典key值的唯一性，将ar(i,2),ar(i,3)作为key值的item值，此时的key 和 item，是一对一对对应的。在本例，就是一个编号对应着一个地址和日期。   把它们作为字典的一组数据存起来，然后去表1中查找，以编号为索引，找到后就将对应的地址和日期赋值给后面的单元格。

hacker85

jiuri0221 发表于 2015-4-3 15:04
我的想法：
            在工作簿2关闭的情况下进行查询匹配，因为我还有其他工作簿要匹配。所以为了一会 ...

1、楼上那个网友的程序，就可以实现在关闭工作簿的情况下，程序正常运行。
2、你这个程序用得是getfile，这个函数不是打开文件，它返回的是file文件对象，这是一个关于某个文件的各种属性的信息集合。  我记得是这样。所以，实际上，你并没有打开工作表。