关于vba：VLookup在另一本工作簿上

VLookup On Another Workbook

尝试创建一个宏，该宏将从单元格A7，A8，A9等那里获取输入(13位数字)，直到到达空白单元格，然后针对另一个工作簿运行vlookup。

但是，我只是遇到#N / A错误，我无法弄清原因。

我当前的代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

Sub getData()

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlManual

Dim wb As Workbook, src As Workbook
Dim srcRange As Range
Dim InputString
Dim OutputString
Dim i As Long

Set wb = ActiveWorkbook
Set src = Workbooks.Open("D:\\Files\\test1.csv", True, True)
Set srcRange = src.Sheets(1).Range("A1:H1").End(xlDown)

i = 7

Do While wb.ActiveSheet.Cells(i, 1) <>""

InputString = wb.Worksheets("Sheet 1").Cells(i, 1)

OutputString = Application.VLookup(InputString, srcRange, 3, False)

wb.Worksheets("Sheet 1").Cells(i, 2) = OutputString

i = i + 1

Loop

src.Close (False)

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlAutomatic

End Sub

我认为值得注意的是，我正在查找的引用(" InputString ")在" src "文件中定义为自定义格式#0。我真的不知道这是否太大，它应该仍然是整数吗？

此外，" OutputString "可以是数字，也可以是文本，这就是为什么我故意将其定义为未定义。我尝试将其定义为\\'Variant \\'，\\'String \\'和\\'Integer \\'，但这并没有真正改变任何内容。

谢谢。