Pašto lapas naudojant „Array VBA“ „Microsoft Excel“

Anonim
  • Sukurkite naują darbaknygę naudodami „SheetsArray“.
  • Prieš išsiųsdami darbo knygą, ją išsaugokite.
  • Išsiuntę failą, ištrinkite jį iš kietojo disko.
Sub Mail_SheetsArray () Dim strDate kaip String Sheets (Masyvas ("Sheet1", "Sheet3")). Kopijuoti strDate = Format (Data, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" dalis .FullName ActiveWorkbook.Close False End Sub