用VBA指定工作表另存为xlsx并发电邮给多个指定人员

VBA 可以用来实现指定工作表另存为 xlsx 格式的文件，并通过电子邮件发送给多个指定的收件人。

以下是 VBA 代码的示例：

Sub SaveAndSendWorkbook()

Dim FilePath As String
Dim Recipients As String
Dim Subject As String
Dim Message As String

' 设置文件保存路径
FilePath = "C:\Workbook.xlsx"

' 指定收件人，多个收件人用分号隔开
Recipients = "recipient1@example.com;recipient2@example.com"

' 设置邮件主题
Subject = "Workbook"

' 设置邮件正文
Message = "Please find attached the latest version of the workbook."

' 另存为 xlsx 格式
ActiveWorkbook.SaveAs FilePath, FileFormat:=xlOpenXMLWorkbook

' 发送邮件
With CreateObject("Outlook.Application").CreateItem(0)
    .To = Recipients
    .Subject = Subject
    .Body = Message
    .Attachments.Add FilePath
    .Send
End With

End Sub

在运行该代码后，当前活动的工作簿将被另存为 xlsx 格式，并通过电子邮件发送给指定的收件人。