动态vlookup vba代码没有填充数字

Question

请帮助建议它在哪里出错。想为其他工作簿创建一个VBA Vlookup，

Sub Executelookup1()
Dim wb As Workbook
Dim rng As Range


Workbooks.Open ("V:\Finance\Systems-Risk-ERM\OrderToCash\C2C\Corp Credit Control\3. Monthly Combined Aging\2022\Apr22\Top Segments & Top All _Apr22.xlsx")

Set ws = Sheet3
Set wb = ActiveWorkbook
ThisWorkbook.Activate

Set rng = ws.Range("K2", ws.Cells(ws.Rows.Count, "K").End(xlUp))

Dim i As Integer
For i = 2 To rng
'On Error Resume Next

Range("K" & i).Value = WorksheetFunction.VLookup(Range("F" & i).Value, wb.Sheets("TopSegments").Range("F:J"), 5, 0)

Next i

End Sub

我希望最终产品看起来像下面显示的图片。