Siųskite kiekvieną darbalapį su adresu į langelį A1 naudodami VBA „Microsoft Excel“

Anonim

Ši makrokomanda siųs kiekvieną lapą vienam asmeniui.

  • Sukurkite naują darbaknygę naudodami lapą.
  • Prieš išsiųsdami darbo knygą, ją išsaugokite
  • Išsiuntę failą, ištrinkite jį iš kietojo disko.
Sub Mail_every_Worksheet () Dim strDate Kaip eilutė Dim sh kaip darbalapio programa.ScreenUpdating = Klaidinga kiekvienam šiam šioje darbo knygoje. Darbo lapai Jei sh.Range ("a1"). Vertė kaip "*@*" Tada sh.Copy strDate = Format (Date , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Reikšmė, _ "Tai yra temos eilutė" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub