Lähetä jokainen laskentataulukko, jonka osoite on solussa A1, käyttämällä Microsoft Excelin VBA: ta

Anonim

Tämä makro lähettää jokaisen taulukon yhdelle henkilölle.

  • Luo uusi työkirja Sheetin avulla.
  • Tallenna työkirja ennen sen lähettämistä
  • Poista tiedosto kiintolevyltä sen lähettämisen jälkeen.
Sub Mail_every_Worksheet () Dim strDate merkkijonona Dim sh kuin laskentataulukko Application.ScreenUpdating = False for each sh in ThisWorkbook.Worksheets If sh.Range ("a1"). Arvo kuten "*@*" Sitten sh.Copy strDate = Format (Date , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Osa" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Arvo, _ "Tämä on otsikkorivi" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub