Первый пост здесь, так что go легко для меня.
Я прошел большой путь, но есть только одно небольшое ограничение форматирования, которое я хотел бы добавить в свой сценарий. Я беру диапазоны из моего листа Excel и вставляю их в новое письмо. Я не могу понять, как добавить строку, возвращающую каждый диапазон, который я вставляю в свою электронную почту. В следующем отрывке я вставляю первые два диапазона. Я прокомментировал вещи, которые я пробовал, которые не работали для меня. Либо я не правильно использую эти права, либо они мне не нужны. Пожалуйста, помогите мне! Я так близко, что могу попробовать
Set ws1 = ActiveSheet
Usr = ws1.Cells(7, 1).Value
Dat = ws1.Cells(3, 3).Value
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Recipients.Add ("email@email.com")
.Subject = "EOD Report - " & Usr & " - " & Dat
.display
Set objInsp = OutMail.GetInspector
Set pageEditor = objInsp.WordEditor
ws1.Range(Cells(5, 1), Cells(7, 3)).Copy
pageEditor.Application.Selection.Start = 1
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.Paste
'I have tried the following 2 lines but unfortunately it just appends this after my pasted range and before my signature block.
pageEditor.Application.Selection.Range.InsertAfter vbCrLf
pageEditor.Application.Selection.Collapse wdCollapseEnd
'I've tried the following two lines with very little success.
'pageEditor.Application.Selection.Start = ?
'pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.Paste
'There is about 5 more table/range pastes after this row. Excluding that for cleanliness
.display
End With
Вот пример изображения таблиц и где я пытаюсь поставить строку возврата:
