工作表名称为Vlookup的搜索值

Question

对于我发送电子邮件宏，我想使用vlookup，其中seeked value是选项卡名称。通过使用选项卡名称，我将从其中一个工作表中获取电子邮件地址。不幸的是，我的代码不起作用：

Sub znajdzadres()
Dim ws As Worksheet
Dim eadr As Variant
Dim nameW As Variant
nameW = ws.Name

eadr = "Application.WorksheetFunction.VLookup([nameW],DOSTAWCY!R2C1:R83C3,3,0)"




End Sub

Answer 1

在应用工作表函数时不要引用公式，并将字符串var原样应用于相应的工作表/范围引用。

Dim eadr As Variant
Dim nameW As Variant

nameW = ActiveSheet.Name

eadr = Application.WorksheetFunction.VLookup(nameW, worksheets("DOSTAWCY").range("A2:C83"), 3, 0)

debug.print eadr