vba将工作表选定复制的范围复制到邮件正文

在VBA中，你可以使用Excel的对象模型结合Outlook，将工作表的一部分或整个选定区域复制到电子邮件的正文中。下面是一个简单的例子，假设你想复制A1:B10的范围并将其粘贴到邮件主体中：

Sub CopyRangeToEmail()
    Dim ExcelApp As Object
    Dim ExcelSheet As Worksheet
    Dim OlApp As Outlook.Application
    Dim OlMail As Outlook.MailItem
    Dim rngData As Range

    ' 创建Excel应用对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件（假设工作簿位于同一目录）
    Set ExcelSheet = ExcelApp.Workbooks.Open("YourWorkbook.xlsx").Worksheets("Sheet1") '<-- 替换为你的工作簿名和工作表名
    Set rngData = ExcelSheet.Range("A1:B10") ' 或者指定你想要复制的任意范围
    
    ' 如果有数据选择，复制数据
    If Not rngData Is Nothing Then
        rngData.Copy
        
        ' 创建Outlook应用程序对象
        Set OlApp = CreateObject("Outlook.Application")
        
        ' 新建邮件
        Set OlMail = OlApp.CreateItem(olMailItem)
        
        ' 获取邮件的 Word 版本编辑器
        With OlMail.GetInspector.WordEditor
            ' 将复制的数据粘贴到邮件正文
            .PasteSpecial xlPasteAll
            ' 清除剪贴板
            .CutCopyMode = False
        End With
        
        ' 发送邮件
        OlMail.Send
        
        ' 清理对象
        Set rngData = Nothing
        Set ExcelSheet = Nothing
        Set ExcelApp = Nothing
        Set OlMail = Nothing
        Set OlApp = Nothing
    Else
        MsgBox "No data selected."
    End If
End Sub

这个脚本首先打开包含选定范围的工作簿，然后复制数据，接着创建一个新的邮件，并将数据粘贴到邮件正文。记得替换工作簿名、工作表名以及需要复制的范围。

**注意**：
- 需确保Excel和Outlook都已经启动，且有相应的权限访问。