Прошу помощи. Пытаюсь динамически сделать в Excel отчете границы у ячеек.

Set xl = CreateObject("Excel.Application")
Set MyRange = xl.Range("A1", "G" & rs.RecordCount + 1)
    MyRange.Borders(xlDiagonalDown).LineStyle = xlNone
    MyRange.Borders(xlDiagonalUp).LineStyle = xlNone
With MyRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

MyRange.Borders(xlDiagonalDown).LineStyle = xlNone

выдетает ошибка

Application defined or object defined error

смотрела многие примеры, отличий не вижу, смотрела как макрос отрабатывает если создавать границы из самого Excel ... Все идентично.... может не хватает каких то описаний или подключённых библиотек

http://www.sql.ru/forum/1261705/dinamicheskiy-otchet-v-excel