Установить в Excel свойство класса.

"Через 1С в Excel необходимо установить несколько свойств класса OutLine.<br><br>Делаю так:<br><br><br><br>1. ApplicationObj = СоздатьОбъект ("Excel.Application");<br><br>2. РабКнига = ApplicationObj.Workbooks.Open(Файл); <br><br>3. Лист = РабКнига.WorkSheets("Sheet1");<br><br>4. РабКнига.ActiveSheet.Outline.AutomaticStyles = "False";<br><br>5. РабКнига.ActiveSheet.Outline.SummaryRow = "xlAbove";<br><br>6. РабКнига.ActiveSheet.Outline.SummaryColumn = "xlRight";<br><br><br><br>Но в результате на строчки: 4, 5, 6 выдается одна и та же ошибка - Нельзя установить свойство (AutomaticStyles, SummaryRow, SummaryColumn) класса OutLine</b><br><br>Хотя в excelевском хелпе указано, что эти свойства Read/Write<br><br><br><br>Как правильно установить эти свойства ?"

"В 4 пункте попробуй <br><br>РабКнига.ActiveSheet.Outline.AutomaticStyles = 0;"

"xlAbove и xlRight - эти имена констант понимает только Excel Visual Basic в текстах своих модулей. Через OLE нужно передавать их числовое значение.<br><br>xlAbove = 0<br><br>xlRight = -4152<br><br>Чтобы узнать числовые значения этих констант, я написал следующий код в редакторе Visual Basic:<br><br>Cells(1,1).Value = xlAbove<br><br>Cells(1,2).Value = xlRight<br><br>и запустил его.<br><br>А про True и False в документации по языку 1С сказано:<br><br>"В OLE Automation TRUE и FALSE имеют соответственно значе­ния: -1 (минус единица) и 0"<br><br>Итак, вот правильный код:<br><br>ApplicationObj = СоздатьОбъект ("Excel.Application"); <br><br>РабКнига = ApplicationObj.Workbooks.Open(Файл); <br><br>Лист = РабКнига.WorkSheets("Sheet1"); <br><br>РабКнига.ActiveSheet.Outline.AutomaticStyles = 0; <br><br>РабКнига.ActiveSheet.Outline.SummaryRow = 0; <br><br>РабКнига.ActiveSheet.Outline.SummaryColumn = -4152<br><br><br><br>"

Все заработало.<br><br>В очередной раз, покорно благодарю за разъяснение.