2013-06-05 28 views
0

我有个下面的代码来从EXCELL其发送电子邮件具有活性纸在电子邮件的主体电子邮件选择的范围从EXCELL在VBA唯一可见的细胞

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 = "[email protected]" 
     .Item.subject = "Ticket status on " & ActiveSheet.Range("today").Value 
     .Item.Send 
    End With 
End Sub 

的选定范围内,但是也被发送在选定响隐藏的行不应该在邮件到来,可能在该范围内selectimg唯一可见的细胞有一个人帮助....

+1

'ActiveSheet.Range(“A12:J74 “)。选择,当然。您正在定义整个范围,无论它们是否隐藏都无关紧要。也许这可能是帮助[跳过隐藏的行](http://excel.tips.net/T002286_Skipping_Hidden_​​Rows_in_a_Macro.html) – CustomX

+2

你可以尝试'ActiveSheet.Range(“A12:J74”)。SpecialCells(xlCellTypeVisible).Select' –

回答

1

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