Question

对于我的发送电子邮件宏，我想使用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

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

工作表名称作为Vlookup的寻求值

1 个答案: