Отправить выбор из Excel по электронной почте в качестве вложения

Question

Я использую этот макрос, чтобы отправить книгу в виде вложения (Book1.xlsx)

Sub Macro2_SendByEMail() 

' Copy the sheet(1) 
ThisWorkbook.Sheets(1).Copy 

' Send Email 
With ActiveWorkbook 
.SendMail Recipients:=Array("address@company.com", "address2@company"), Subject:="Addresses [" & Format(Date, "dd/mm/yy") & "]" 
.Close SaveChanges:=False 
End With 

End Sub 

Но я не могу выяснить, как изменить код так, что я отправить только первые три столбца рабочей книги ...

Спасибо за помощь!

Answer 1

Вы можете попробовать это:

Option Explicit 

Sub Macro2_SendByEMail() 

' Copy the sheet(1) 
    Dim my_range As Range 
    Dim l_row  As Long 

    l_row = ThisWorkbook.Sheets(1).UsedRange.Rows.Count 
    With ThisWorkbook.Sheets(1) 
     Set my_range = .Range(.Cells(1, 1), .Cells(l_row, 3)) 
    End With 

    my_range.Copy 

    ' Send Email 
    With ActiveWorkbook 
    .SendMail Recipients:=Array("address@company.com", "address2@company"), Subject:="Addresses [" & Format(Date, "dd/mm/yy") & "]" 
    .Close SaveChanges:=False 
    End With 

End Sub 

Идея заключается в том, что вы берете последнюю строку используемого диапазона в первом листе, и на его основе можно определить выбор для копирования.