怎样跨工作簿提取手机号码到当前表里面

woniu3721

两个表都有若干条信息。当前这个订单表里面没有客户电话号码，要从另一个工作簿提取，怎样跨工作簿导入对应客户的手机号码。要手动选择工作簿，因名称随时都在变，谢谢！


提手机号.zip (17.89 KB, 下载次数: 11)

2022-12-12 19:38 上传

点击文件名下载附件

gwjkkkkk

Sub TEST()
    Dim strFileName$, strPath$, wkb As Workbook
    Dim arr, i&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    strPath = ThisWorkbook.Path & "\"
    strFileName = Dir(strPath & "客户信息20211128.xlsx")
    If strFileName = "" Then MsgBox "读取文件不存在，请检查！": Exit Sub
   
    Set wkb = GetObject(strPath & strFileName)
    With wkb.Sheets(1)
       arr = .[A1].CurrentRegion
       For i = 2 To UBound(arr)
         dic(arr(i, 1)) = arr(i, 2)
       Next i
    End With
    wkb.Close False
   
    arr = [A1].CurrentRegion
    For i = 2 To UBound(arr)
       arr(i, 10) = dic(arr(i, 3))
    Next i
    [A1].CurrentRegion = arr
   
    Set wkb = Nothing
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

gwjkkkkk

上贴没有考虑选择方式，已更正，请楼主参考

woniu3721

gwjkkkkk 发表于 2022-12-12 22:19
上贴没有考虑选择方式，已更正，请楼主参考

完全正确，谢谢！

ykcbf1100

参与一下，练个手

Hontyu

    抄一个

woniu3721

Hontyu 发表于 2022-12-13 11:18
抄一个

其实是上一个帖子遗漏了的，上一次是两个工作簿的表合一个，漏了客户信息，我看你用的方法和代码跟他回答的差不多，那你帮改一下，改成三个表合一个的，就一次性就完成了合并。

woniu3721

ykcbf1100 发表于 2022-12-13 09:52
参与一下，练个手

不错，速度快

Hontyu

woniu3721 发表于 2022-12-13 14:35
其实是上一个帖子遗漏了的，上一次是两个工作簿的表合一个，漏了客户信息，我看你用的方法和代码跟他回答 ...

请用其他老师的字典完成,我是纯练手,还没入门,不太懂