Microsoft Excel'de Dizi VBA kullanan Posta Sayfası

Anonim
  • SheetsArray ile yeni bir çalışma kitabı oluşturun.
  • Çalışma kitabını postalamadan önce kaydedin.
  • Dosyayı gönderildikten sonra sabit diskinizden silin.
Sub Mail_SheetsArray() Dim strDate As String Sheets(Array("Sayfa1", "Sayfa3")).Copy strDate = Format(Date, "gg-aa-yy") & " " & Format(Time, "s-dd- ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "[email protected]", _ "Bu Konu satırı" ActiveWorkbook.ChangeFileAccess xlReadOnly ActiveWorkbook'u öldür .FullName ActiveWorkbook.Close False End Sub