Нужно загрузить в справочники номенклатура
Нужно загрузить в справочники номенклатура
"Описание встроенного языка. Часть 2. Стр. 905-908. Пример на странице 908.<br>Еще один маленький пример:<br>Перем м,мес,ном; <br>Процедура Сформировать() <br> Док=СоздатьОбъект("Документ.отсут");<br> Док.ВыбратьДокументы("01/01/2005","31/07/2005");<br> ОкноExcel=СоздатьОбъект("Excel.Application");<br> ОкноExcel.Caption="мой_отчет";<br> Новыерабочиекниги=ОкноExcel.workbooks;<br> рабочаякнига=Новыерабочиекниги.add();<br> Числорядов=100;<br> ЧислоСтолбцов=2;<br> Для ряд=1 по Числорядов цикл<br> Ячейка=ОкноExcel.cells(ряд+1,1);<br> Ячейка.value="СТР"+Строка(РЯД);<br> Конеццикла;<br> Для столбец=1 по Числостолбцов цикл<br> Ячейка=ОкноExcel.cells(1,столбец+1);<br> Ячейка.value="СТл"+Строка(столбец);<br> Конеццикла; <br> ряд=1;<br> Пока Док.получитьдокумент()=1 цикл<br> текдок=док.текущийДокумент();<br> Ячейка=ОкноExcel.cells(ряд+1,2);<br> Ячейка.value=Текдок.НомерДок;<br> Ячейка=ОкноExcel.cells(ряд+1,3);<br> Ячейка.value=Текдок.ДатаДок;<br> ряд=ряд+1;<br> Конеццикла; <br><br> ОкноExcel.visible=1;<br>КонецПроцедуры <br> "
Спасибо