关于在vba中使用vlookup的问题，出现 不能取得类worksheetfunction的vlookup属性

如图片，当进行下面的代码时，就出现报错，但结果还是能查出来，应该如何更改代码，就能顺利进行，或者欲实现这样的功能，可否有其他的办法
Sub s()
For a = 1 To 10Range("B" & a & "") = Application.WorksheetFunction.VLookup(Range("A" & a & ""), _Workbooks("vlookup2.xls").Worksheets("材料表").Range("$A$1", "$B$10"), 2, 0)Next a
End Sub但是要是单个单元格使用就没问题，如下代码
Range("B1") = Application.WorksheetFunction.VLookup(Range("A1"), _Workbooks("vlookup2.xls").Worksheets("sheet1").Range("$A$1", "$B$10"), 2, 0)

相关了解……