用VBA指定工作表另存为xlsx并发电邮给多个指定人员
时间: 2023-02-21 11:31:44 浏览: 53
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 格式,并通过电子邮件发送给指定的收件人。
相关推荐
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)