无法使用 vba vlookup 查找日期

我有一个 Excel 工作表，其中 A 列包含日期，B 列包含相应的日期。 例如。 A2=01/01/14 且 B2=星期三，依此类推。

我尝试使用示例 vba 代码检索 B2 中的日期，但我不断收到错误消息 ”运行时错误“1004” 无法获取worksheetFunction类的Vlookup属性"

请查看我的代码并指出哪里出了问题。谢谢。

 Sub Button1_Click()


Dim lookup_value As String
Dim lookup_table As Range

Let lookup_value = "1/1/2014"
Set lookup_table = Range("A:B")

the_day = WorksheetFunction.VLookup(CDate(lookup_value), lookup_table, 2, False)


Range("D7") = the_day

End Sub

请注意，我想手动传递lookup_value，而不是查找单元格A2。

VLookup 对数据类型敏感。您的 VBA 例程正在查找 DATE 数据类型，但 Excel 工作表上不存在此类数据类型。因此，您需要将字符串 Lookup_value 转换为与工作表上的内容兼容的数据类型。这可以是 Long （对于整个日期）或 Double （如果您包括时间。

Try:

the_day = WorksheetFunction.VLookup(CLng(CDate(lookup_value)), lookup_table, 2, False)