Nosūtiet katru darblapu ar adresi šūnā A1, izmantojot VBA programmā Microsoft Excel

Anonim

Šis makro nosūtīs katru lapu vienai personai.

  • Izveidojiet jaunu darbgrāmatu, izmantojot lapu.
  • Pirms nosūtīšanas saglabājiet darbgrāmatu
  • Pēc nosūtīšanas izdzēsiet failu no cietā diska.
Sub Mail_every_Worksheet () Dim strDate kā virkne Dim sh kā darblapas lietojumprogramma.ScreenUpdating = Nepareizi katrai shēmai šajā darbgrāmatā. Darba lapas Ja sh.Range ("a1"). Vērtība līdzīga "*@*" , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Vērtība, _ "Šī ir tēmas rinda" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End if Next sh Application.ScreenUpdating = True End Sub