工作表名称作为 Vlookup 的搜索值
worksheets name as seeked value for Vlookup
对于我的发送电子邮件宏，我想使用 vlookup，其中查找的值是选项卡名称。通过使用选项卡名称，我将从其中一个工作表中获得一个电子邮件地址。不幸的是，我的代码不起作用：
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
在应用工作表函数时不要引用公式，而是按原样应用字符串变量和适当的 worksheet/range 引用。
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
对于我的发送电子邮件宏，我想使用 vlookup，其中查找的值是选项卡名称。通过使用选项卡名称，我将从其中一个工作表中获得一个电子邮件地址。不幸的是，我的代码不起作用：
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
在应用工作表函数时不要引用公式，而是按原样应用字符串变量和适当的 worksheet/range 引用。
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