目录 1. 通过浏览文件夹选择 PDF 保存位置并发送 2. 固定的PDF保存位置,读取单元格中的邮件内容并发送 1. 通过浏览文件夹选择 PDF 保存位置并发送 Sub Saveaspdfandsend() Dim xSht As Worksheet Dim xFileDlg As FileDialog Dim xFolder As String Dim xYesorNo