Pasta lapa, izmantojot masīvu VBA programmā Microsoft Excel

Anonim
  • Izveidojiet jaunu darbgrāmatu, izmantojot SheetsArray.
  • Pirms nosūtīšanas saglabājiet darbgrāmatu.
  • Pēc nosūtīšanas izdzēsiet failu no cietā diska.
Sub Mail_SheetsArray () Dim strDate kā virkņu lapas (masīvs ("Sheet1", "Sheet3")). Kopēt strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Daļa no "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Šī ir tēmas rinda "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook" .FullName ActiveWorkbook.Close False End Sub