通过电子邮件向所选范围仅发送来自vba中excel的可见单元格

Question

我有以下代码发送来自excell的电子邮件，其中包含邮件正文中活动工作表的选定范围

  Sub Ticke_status_mail()

   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A12:J74").Select

   ActiveWorkbook.EnvelopeVisible = True

   With ActiveSheet.MailEnvelope
      .Item.To = "xxxx@yyy.com"
      .Item.subject = "Ticket status on " & ActiveSheet.Range("today").Value
      .Item.Send
   End With
End Sub

但是也在发送选定范围内的隐藏行，这些行不应该通过邮件发送，有人可以帮助选择该范围内的可见单元格....

Answer 1

尝试使用ActiveSheet.Range("A12:J74").SpecialCells(xlCellTypeVisible).select