如何使用Excel VBA将当前工作表保存为PDF并通过Outlook发送电子邮件？

Sub SaveAsPDFAndSendEmail()
    Dim ws As Worksheet
    Dim pdfPath As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 生成PDF文件的保存路径
    pdfPath = ThisWorkbook.Path & "\" & ws.Name & ".pdf"
    
    ' 将当前工作表保存为PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard
    
    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' 设置邮件的主题、收件人、正文和附件
    With outlookMail
        .Subject = "PDF文件"
        .To = "收件人邮箱地址"
        .Body = "请查收附件中的PDF文件。"
        .Attachments.Add pdfPath
        .Display ' 如果想直接发送邮件，请使用.Send方法代替.Display
    End With
    
    ' 释放对象
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub