在本文中,我们将创建一个宏,以将工作表作为附件发送到电子邮件中。

在运行宏之前,我们需要指定电子邮件ID和电子邮件主题。

ArrowMain

在此示例中,我们希望将“ DataSheet”作为附件发送到电子邮件中。

ArrowSentMail

逻辑解释

我们创建了“ MailSheet”宏,该宏从文本框中获取电子邮件ID和电子邮件主题。它创建“ DataSheet”的新副本,将其保存并作为附件发送。

代码说明

Sheets(“ DataSheet”)。Copy上面的代码用于在新工作簿中创建“ DataSheet”的副本。

ActiveWorkbook.SaveAs“&ThisWorkbook.Name _&”“&StrDate&” .xls“的一部分

上面的代码用于保存新工作簿。

ActiveWorkbook.SendMail EmailID,MailSubject上面的代码用于将活动工作簿作为指定电子邮件ID的附件发送给指定主题。

ActiveWorkbook.Close False上面的代码用于关闭活动工作簿而不保存它。

请遵循以下代码

Sub MailSheet()

'Declaring variables

Dim StrDate, EmailID, MailSubject As String

'Getting value for Email ID and subject from textboxes

EmailID = Sheet1.TextBox1.Value

MailSubject = Sheet1.TextBox2.Value

'Copying "DataSheet" to new workbook

Sheets("DataSheet").Copy

'Formatting date and time to particular format

StrDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm")

'Saving active workbook with new name

ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _

& " " & StrDate & ".xls"

'Sending mail

ActiveWorkbook.SendMail EmailID, MailSubject

'Close the active workbook

ActiveWorkbook.Close False

End Sub

如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]