Šajā rakstā mēs izveidosim makro, lai nosūtītu lapu kā pielikumu e -pastā.
Pirms makro palaišanas mums ir jānorāda e -pasta ID un e -pasta tēma.
Šajā piemērā mēs vēlamies nosūtīt “DataSheet” kā pielikumu e -pastā.
Loģisks skaidrojums
Mēs esam izveidojuši makro “MailSheet”, kas no tekstlodziņiem ņem e -pasta ID un e -pasta tēmu. Tas izveido jaunu datu lapas kopiju, saglabā to un nosūta to kā pielikumu.
Koda skaidrojums
Izklājlapas ("Datu lapa"). Kopēt
Iepriekš minēto kodu izmanto, lai izveidotu “DataSheet” kopiju jaunā darbgrāmatā.
ActiveWorkbook.SaveAs kā daļa no šīs darbgrāmatas.Nosaukums _
& "" & StrDate & ".xls"
Iepriekš minētais kods tiek izmantots, lai saglabātu jauno darbgrāmatu.
ActiveWorkbook.SendMail EmailID, MailSubject
Iepriekš minēto kodu izmanto, lai nosūtītu aktīvo darbgrāmatu kā pielikumu norādītajam e -pasta ID ar norādīto tēmu.
ActiveWorkbook. Aizvērt nepatiesu
Iepriekš minēto kodu izmanto, lai aizvērtu aktīvo darbgrāmatu, to nesaglabājot.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub MailSheet () 'Declaring mainiables Dim StrDate, EmailID, MailSubject As String' E -pasta ID un tēmas vērtības iegūšana no tekstlodziņiem EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopēt "DataSheet" uz jaunām darbgrāmatas lapām (" Datu lapa "). Kopējiet" Datuma un laika formatēšana noteiktā formātā StrDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm") 'Aktīvās darbgrāmatas saglabāšana ar jaunu nosaukumu ActiveWorkbook. SaveAs "Part of" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'E -pasta sūtīšana ActiveWorkbook.SendMail EmailID, MailSubject' Aizvērt aktīvo darbgrāmatu ActiveWorkbook.Close False End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē