与vlookup连用的Application.WorksheetFunction和application

chamyamy

请教各位

如果是
Public Sub test()
k = Application.WorksheetFunction.VLookup([C1], [a1:b10], 2, False)
If IsError(k) Then
[f1] = "没有此user"
Else: [f1] = k
End If
End Sub
结果：报错不能取得vlookup属性

如果是
Public Sub test()
k = Application.VLookup([C1], [a1:b10], 2, False)
If IsError(k) Then
[f1] = "没有此user"
Else: [f1] = k
End If
End Sub
也就是Application.WorksheetFunction改成application就可以了。
请问在这里Application.WorksheetFunction.与application有什么根本性差异吗？
为什么会有这种区别。
谢谢

看见星光

如果VLOOKUP能找到值，两个语句应该都没问题的。如果VLOOKUP找不到查找值，问题才会出现吧。
application.vlookup是直接调工作表原始函数，没有经过中间方，当vlookup找不到结果时，k就返回错误值。
Application.WorksheetFunction.VLookup是调工作表函数为了和VBA对接而封装后的函数，有一个中间方，当VLOOKUP返回错误值时，到中间方那里就挂了，传不到K那。

chamyamy

看见星光 发表于 2018-3-11 10:37
如果VLOOKUP能找到值，两个语句应该都没问题的。如果VLOOKUP找不到查找值，问题才会出现吧。
application. ...

原来如此，谢谢！

stoncold

看见星光 发表于 2018-3-11 10:37
如果VLOOKUP能找到值，两个语句应该都没问题的。如果VLOOKUP找不到查找值，问题才会出现吧。
application. ...

学习了，还有这操作啊。

cui26896

看见星光 发表于 2018-3-11 10:37
如果VLOOKUP能找到值，两个语句应该都没问题的。如果VLOOKUP找不到查找值，问题才会出现吧。
application. ...

权威就是权威，不服不行，我在用k = Application.WorksheetFucntion.Large(rng, 4)时，总是显示运行时错语'438‘，对象不支持该属性和方法，改用k = WorksheetFucntion.Large(rng, 4)，显示编译错误，变量未定义，只有k = Application.Large(rng, 4)可以顺利通测试，百思不得其解，今天看到看见星光老师的权威解释，算是明白了！！

yepulu

学习学习留下脚印

myail

cui26896 发表于 2019-9-21 09:44
权威就是权威，不服不行，我在用k = Application.WorksheetFucntion.Large(rng, 4)时，总是显示运行时错 ...

既然 Application.Large(rng, 4)不经过中间商可以顺利通测试，，那么为什么Application.WorksheetFucntion.Large(rng, 4)时，总是显示运行时错语'438‘对象不支持该属性和方法？

takf

学习了留下脚印

lss001

myail 发表于 2020-1-24 14:21
既然 Application.Large(rng, 4)不经过中间商可以顺利通测试，，那么为什么Application.WorksheetFucntio ...

set rng = [a1:a10]
k = Application.WorksheetFunction.Large(Rng, 4) ' 正确拼写
'k = Application.WorksheetFucntion.Large(rng, 4)' 5楼单词拼写错误

qsxz

看见星光 发表于 2018-3-11 10:37
如果VLOOKUP能找到值，两个语句应该都没问题的。如果VLOOKUP找不到查找值，问题才会出现吧。
application. ...

请教：
在不打开文件的情况下查找，为什么报错呢，
aaa = Application.VLookup("星期日", "'D:\[测试.xls]sheet1'!$C$6:$D$15", 2, False)
"'D:\[测试.xls]sheet1'!$C$6:$D$15" 就是这一句错了，该怎么表示呢

但如果用workbooks("测试.xls").sheets("Sheet1").[C6:D6] 则能正确查找
bbb= Application.VLookup("星期日", workbooks("测试.xls").sheets("Sheet1").[C6:D6], 2, False)

我想不打开文件进行查找，能用第一种方式查找吗