Подскажите как загрузить данные из Excel в 1с бух

Новая тема
Нужно загрузить в справочники номенклатура
"Описание встроенного языка. Часть 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>   "
Спасибо
Читают тему
(гостей: 1)

Быстрый переход