Отобразить часть диапазона в теле письма vba

Question

Я хотел бы добавить диапазон от моего листа до тела письма, которое генерируется, но vba.Я продолжаю получать ошибки, и любая помощь будет оценена

myRange = Range("A12:A12.End(xlDown)").SpecialCells(xlCellTypeVisible)

'This will extract the info for the worksheet
'This extracts the subject title from the worksheet

EmailSubject = "STOCKS " & Type1 & " - " & Left(Trade, 6) & " [" & _ 
               Range("A12").Value & "/" & Range("A12").End(xlDown).Value _
               & "]: % at %"

Body = "<b>" & Range("A8").Value & "</b><br/>" & Range("A9").Value & "<br/>" _ 
       & Range("A10").Value & "<br/><br/>" _
       & myRange

Answer 1

Ваша ошибка в том, как вы объявляете диапазон.

• Диапазон - это объект, и он должен быть Set
• End(xlDown) не может быть передан в виде строки
• Попробуйте определить начало и конецячейка диапазона, а затем диапазон будет определен правильно:

---

Option Explicit

Sub TestMe()

    Dim myRange As Range
    Dim firstCell   As Range
    Dim lastCell As Range

    Set firstCell = Range("A12")
    Set lastCell = firstCell.End(xlDown)
    Set myRange = Range(firstCell, lastCell).SpecialCells(xlCellTypeVisible)

End Sub

Как только вам удастся получить правильный диапазон, будет проще - Вставить конкретный Excelдиапазон в перспективе