VLOOKUP 来自另一个工作簿，但错误是 #value

Question

我从用户那里获取输入，并使用此输入从另一个工作簿中使用 vlookup。但是我无法获得正确的值，总是 #value 错误

Option Explicit

Sub SıraNo()
        Dim ResimNo As Long
        Dim Calc As Integer
        Dim p As Integer
        Dim k As Integer
        Dim n As Integer
        Dim strVariable As Integer
        Dim wa As Workbook
        Dim twb As Workbook
        Set twb = ThisWorkbook
        Dim j As Integer

Range("A2", Range("A2").End(xlDown)).Select
            Do
            If ActiveCell.Value = "" Then Exit Do
                ActiveCell.Offset(1, 0).Select
                n = n + 1
            Loop

p = 2
For k = 1 To n
            ResimNo = InputBox("Please Enter Resim No")

                         Cells(p, 2).Value = ResimNo
                          strVariable = Left(ResimNo, 4)
                         Cells(p, 3).Value = strVariable

              If strVariable = 5701 Then
               Set wa = Workbooks.Open("C:\Users\userpc\Desktop\Gökhan\makro\Teknik Resim Arsiv Listesi_5701.xls")
                     ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$1500"), , xlYes).Name = _
        "Table1"

                 j = k + 1

     With twb.Sheets("Sheet1")

                 .Cells(j, 4) = Application.VlookUp(.Cells(j, 2).Value2, "Table1", 6, False)

    End With
                    End If
         p = p + 1
Next k

End Sub

Answer 1

你可以试试这样的...

Dim tbl As ListObject
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$1500"), , xlYes).Name = _
        "Table1"

Set tbl = ActiveSheet.ListObjects("Table1")
With twb.Sheets("Sheet1")
    .Cells(j, 4) = Application.VLookup(.Cells(j, 2).Value2, tbl.Range, 6, False)
End With