如何用VBA来执行vlookup，是否用find来执行？

allwin88

各位老师晚上好！

小弟不才，如附件，想在“查询”的EXL中找到料号对应的型号。基表文件名“时间节点导出20170426214406”(这个文件名是按时间来保存的)

用vba打开基表文件“时间节点导出20170426214406”：
Sub test()
    Dim myfile As String
    Dim myfile2 As String
    Dim mypaht As String
    Dim wb As Workbook
    mypath = ThisWorkbook.Path & "\"
    myfile = Dir(mypath  & "时间节点导出*.xls*")
    Do While myfile <> ""
        If myfile > myfile2 Then myfile2 = myfile
        myfile = Dir
    Loop
    Set wb = Workbooks.Open(mypath & myfile2)





End Sub

如何完善代码？麻烦老师指教，谢谢！

lr116529111

用字典试试吧

allwin88

lr116529111 发表于 2017-4-26 22:13
用字典试试吧

初学，，还不会用字典。

lsc900707

晚一点给你写，就是跨工作簿查询嘛。

lsc900707

allwin88 发表于 2017-4-26 22:36
初学，，还不会用字典。

工作表事件触发的：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Set wb = GetObject(ThisWorkbook.Path & "\" & "时间节点导出20170426214406.xlsx")
    Set d = CreateObject("scripting.dictionary")
    With Workbooks("时间节点导出20170426214406.xlsx")
        arr = .Sheets(1).UsedRange
        For i = 2 To UBound(arr)
            d(arr(i, 1)) = arr(i, 2)
        Next
    End With
    If d.exists(Target.Value) Then
        Target.Offset(, 1) = d(Target.Value)
    Else
        MsgBox "对不起，没有此料号！"
    End If
    Set wb = Nothing
    Set d = Nothing
End If
End Sub

lsc900707

allwin88 发表于 2017-4-26 22:36
初学，，还不会用字典。

Sub lsc()
    Set wb = GetObject(ThisWorkbook.Path & "\" & "时间节点导出20170426214406.xlsx")
    Set d = CreateObject("scripting.dictionary")
    With Workbooks("时间节点导出20170426214406.xlsx")
        arr = .Sheets(1).UsedRange
        For i = 2 To UBound(arr)
            d(arr(i, 1)) = arr(i, 2)
        Next
    End With
    brr = [a1].CurrentRegion
    For i = 2 To UBound(brr)
        Cells(i, 2) = d(brr(i, 1))
    Next
    Set wb = Nothing
    Set d = Nothing
End Sub

lsc900707

allwin88 发表于 2017-4-26 22:36
初学，，还不会用字典。

代码审核中，请稍候>>>>>>>>

allwin88

lsc900707 发表于 2017-4-27 09:19
代码审核中，请稍候>>>>>>>>

老师辛苦了，真是填麻烦了，等下班后我慢慢研究。

allwin88

lsc900707 发表于 2017-4-27 09:18
Sub lsc()
    Set wb = GetObject(ThisWorkbook.Path & "\" & "时间节点导出20170426214406.xlsx")
   ...

老师您好！

文件名怎么支持模糊打开？因为对应的“时间节点导出XXXXXX”是按照导出的时间分秒来命名的。如何优先打开时间最近的该文件？

谢谢！

lsc900707

allwin88 发表于 2017-4-29 10:34
老师您好！

文件名怎么支持模糊打开？因为对应的“时间节点导出XXXXXX”是按照导出的时间分秒来命名的 ...

不知道，要不加个对话框自己选择文件