使用VBA在电子邮件的附件中发送两个单独的行

Question

我试图在我的Excel电子表格（包含我的Labels）和最后一行（这是最后一个条目）的最上一行发送电子邮件{{1 }}。

现在我只能发送一行。这是我的电子邮件代码中的代码：

VBA

如何将Set Source = Rows(emptyrow).SpecialCells(xlCellTypeVisible) ] 添加到此Rows(1)

Answer 1

必须有一个更好的解决方案，但这是一个很快就会浮现在脑海中的解决方案：

set source = range(Rows(1).address & "," & Rows(emptyrow).address).SpecialCells(xlCellTypeVisible)

恶心，但有效（如果我理解你需要的话）。

编辑：找到另一个解决方案：

set source = Application.Union(rows(1),rows(emptyrow)).SpecialCells(xlCellTypeVisible)