我希望将单元格值和数据透视表的选择添加到我生成的电子邮件正文中。
我有一个 Excel 工作簿,其中的单元格允许我填写电子邮件中的某些值(例如:.To、.CC、主题和正文)。
在我的身体里,我想要两件事。
第一个是包含文本的单元格中的值。该文本是通过在工作表中选择值而生成的(例如:如果我在单元格 A1 前面输入“是”,则单元格 E19 中就有 A1。)因此,我生成了以下几种情况的结果:单个细胞)。与这一代相关的是,我在 oObjetWord.Range(0) 中的 Range 值无法定义,因为它有所不同。
其次,我有一个数据透视表,显示工作表的详细值。我希望单元格 E19 中生成的文本和数据透视表按以下顺序显示:文本然后表格。
Sub MailSoir()
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim OutMail As Object
Set OutMail = OutApp.CreateItem(0)
With OutMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
Selection.Copy
.To = Worksheets("Soir").Range("E10")
.CC = Worksheets("Soir").Range("E13")
.Subject = Worksheets("Soir").Range("E16")
.Body = Worksheets("Soir").Range("E19")
oObjetWord.Range(0).Paste
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
我尝试增加范围,但由于它根据文本选择而变化,所以这是不可能的。
我目前的结果是我的表格显示在文本上方,并且我无法让两者在我的电子邮件中共存。
我想要我的单元格值,然后是我的选择。
尝试这部分代码而不是
oObjetWord.Range(0).Paste
With oObjetWord
.Content.Paragraphs.Add
.Paragraphs.Last.Range.Paste
End With
它在文档/邮件的末尾添加一个新段落 - 然后粘贴到最后一段。