Vlookup到不同用户选择的文件VBA宏上的表

Sub VlookupOnSelectedFile()
    Dim selectedFile As String
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim result As Variant
    
    ' 获取用户选择的文件路径
    selectedFile = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
    
    ' 如果用户选择了文件
    If selectedFile <> "False" Then
        ' 打开选择的文件
        Workbooks.Open selectedFile
        
        ' 获取用户输入的查找值
        lookupValue = InputBox("请输入要查找的值：")
        
        ' 如果用户输入了查找值
        If lookupValue <> "" Then
            ' 设置查找范围
            Set lookupRange = ActiveSheet.Range("A1:B10") ' 这里假设查找范围是A1:B10
            
            ' 设置结果范围
            Set resultRange = ActiveSheet.Range("C1:C10") ' 这里假设结果范围是C1:C10
            
            ' 使用Vlookup函数进行查找
            result = Application.VLookup(lookupValue, lookupRange, resultRange.Column - lookupRange.Column + 1, False)
            
            ' 如果找到了匹配的值
            If Not IsError(result) Then
                ' 在当前活动工作表的第一行第一列单元格中显示结果
                Cells(1, 1).Value = result
            Else
                ' 如果未找到匹配的值
                MsgBox "未找到匹配的值。"
            End If
        Else
            ' 如果用户未输入查找值
            MsgBox "请输入要查找的值。"
        End If
        
        ' 关闭选择的文件
        ActiveWorkbook.Close SaveChanges:=False
    End If
End Sub