v7: посоветуйте хорошую литературу

посоветуйте пожалуйста хорошую литературу, чтобы во всем этом разобраться

Процедура Сформировать()
Если (н_стр<1)
или (к_стр<1)
или (н_стлб<1)
или (к_стлб<1)
Тогда Предупреждение("Заданы не все параметры!!!");Возврат;
КонецЕсли;
ТЗ=СоздатьОбъект("ТаблицаЗначений"); кол=1; стр=1;
Если к_стлб<10
Тогда кол_стлб=10;
Иначе кол_стлб=к_стлб; КонецЕсли;
Если к_стр<10
Тогда кол_стр=10;
Иначе кол_стр=к_стр; КонецЕсли;
Пока стр<=кол_стр
Цикл ТЗ.НоваяСтрока(); стр=стр+1;КонецЦикла;
Пока кол<=кол_стлб Цикл ТЗ.НоваяКолонка(); кол=кол+1; КонецЦикла;
фл=СоздатьОбъект("Excel.Application");//КП=КаталогПользователя();
КП="C:/";Файл="";Если ФС.ВыбратьФайл(0,Файл,КП,"Открыть файл","Файлы MS Excel|*.xls")=0 Тогда Возврат;КонецЕсли;
Для а=1 По фл.Workbooks.Count Цикл б=фл.Workbooks(а);Если б.Name=Файл Тогда Эксель=б;Прервать;КонецЕсли;КонецЦикла;
Если ПустоеЗначение(Эксель)=1 Тогда Эксель=фл.Workbooks.Open(КП+Файл);КонецЕсли;фл.Visible=1;Если Эксель.Worksheets.Count=1 Тогда у=1;Иначе
сз=СоздатьОбъект("СписокЗначений");Для а=1 По Эксель.Worksheets.Count Цикл сз.ДобавитьЗначение(а,Эксель.Worksheets(а).Name);КонецЦикла;
Если сз.ВыбратьЗначение(у,"Выбор листа - "+Эксель.Name)=0 Тогда Возврат КонецЕсли; КонецЕсли;пер1=Эксель.Worksheets(у);пер1.Activate();пер2=Эксель.Worksheets(у).Cells.CurrentRegion;
пер3=6;стр=1;строки=н_стр+к_стр;колонки=н_стлб+к_стлб;РезТ="";Пока стр<=к_стр Цикл кол=1;Пока кол<=к_стлб Цикл яч=пер2.Cells(стр+н_стр-1,кол+н_стлб-1).Value;ТЗ.УстановитьЗначение(стр,кол,яч);
кол=кол+1; КонецЦикла;стр=стр+1;КонецЦикла;Эксель.Close();Таб = СоздатьОбъект("Таблица");Таб.ИсходнаяТаблица("Форма");Таб.ВывестиСекцию("Шапка");нс=1;Пока нс<11 Цикл
Таб.ВывестиСекцию("Строка");нс=нс+1;КонецЦикла;Таб.Опции(0,0,0,0);Таб.ТолькоПросмотр(1);Таб.Показать("Выходная Форма","");КонецПроцедуры