将活动工作表生成 PDF，并通过电子邮件发送

---

1. 通过浏览文件夹选择 PDF 保存位置并发送

Sub Saveaspdfandsend()
    Dim xSht As Worksheet
    Dim xFileDlg As FileDialog
    Dim xFolder As String
    Dim xYesorNo As Integer
    Dim xOutlookObj