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

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

ОкноExcel.visible=1;
КонецПроцедуры  
  "
Спасибо
Читают тему
(гостей: 1)

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