引用特定范围内的子电子邮件

Question

我使用以下内容作为宏的一部分，将一些数据透视数据通过电子邮件发送给客户列表。但目前只有一个电子邮件地址。我试图修改它以查找超链接的特定范围，它出错并且不会发送电子邮件。在J1范围内，我还运行了一个Vlookup公式来匹配交流和电子邮件地址。任何帮助都会很棒。

Receiver = Sheets ("Pivot").Select Range("J1").value 'it errors on this line           
Topic = "Backorder overview" 
Attachment = strFilename

Answer 1

避免使用.Select。见这个

How to avoid using Select in Excel VBA macros

更改行

Receiver = Sheets ("Pivot").Select Range("J1").value

到

Receiver = Sheets("Pivot").Range("J1").value