Excel Vb将电子邮件发送给多个收件人

Question

我有这段代码可以将电子邮件发送给一个收件人。我有一个有三个收件人的表。

我尝试将代码更改为#[derive(Queryable)] pub struct User { pub id: uuid::Uuid, pub name: String, } XLUp.value，并更改了范围并尝试了范围名称。这些都不起作用。

这部分代码似乎不起作用

XLDown.value

Answer 1

Range("A1:A")是无效地址，因为末尾的行号丢失。

应该是类似...

Range("A" & Rows.Count).End(xlUp).Row

应为

SendTo = SendTo & Range("A" & BuildAddy).Value & ";"

还应该为该工作表中的所有Range(…)指定范围。像Worksheets("Emails").Range(…)一样，否则Excel无法知道。

Answer 2

用于查找row 1中的最后一个单元格

代码应为 lastCol = ActiveSheet.Cells(1,ActiveSheet.Columns.Count).End(xlToLeft).Column

它将返回Row 1中最后一个单元格的列号

然后您可以使用

For BuildAddy = 1 To lastCol SendTo = SendTo & Range("A" & BuildAddy).Value & ";" Next BuildAddy