Здравствуйте, помогите пожалуйста сделать циклы, так чтобы из табличной части документа 1с(версия 8.1) передавались данные в Excel.

//*********************************************************


Процедура ДействияФормыЗаполнитьЗаявку(Кнопка)
         
         СтрокаТабЧасти = ЭлементыФормы.Данные.ТекущиеДанные;
      кол = данные.Количество();
        число= кол+10;
             
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.ПолноеИмяФайла="";
Фильтр="Excel(*.xls)|*.xls";
Диалог.Фильтр=Фильтр;
Диалог.Заголовок="Выберете шаблон";


Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат;
    КонецПопытки;  


//Диалог

Если Диалог.Выбрать() Тогда
Книга= Excel.WorkBooks.Open(Диалог.ПолноеИмяФайла);
Иначе
Предупреждение("Файл не выбран!");
КонецЕсли;

         
             
//Выбор листа книги для работы с ним:
Лист = Книга.WorkSheets(1);


 //очищение ячеек
  для стр=11 по 25 цикл
     для колон=2 по 25 цикл
        Лист.Cells(стр,колон).Clear() ;
    конеццикла;
  конеццикла;
    
   Лист.Cells(3,5).Value=Строка( Ответственный ) ;
  Лист.Cells(4,5).Value=Строка( Email);
   
  
      //цикл для перебора строк в экселе
       для Строка=11 по число цикл
          
           Лист.Cells(Строка,2).Value=Строка(СтрокаТабЧасти.КодПартнера);
            конеццикла;
            
  
      Попытка
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки; 
Excel.Application.Quit(); 

КонецПроцедуры

//************************************************************

Для начала посмотри тут: http://forum.vingrad.ru/topic-141284.html
Если останутся конкретные непонятные вопросы, то их пиши. Весь текст программы переписывать ненужно.