Подскажите, почему из всех данных которые находятся в книге Excel берется только 3 записи???
Вот код обработки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
Процедура КнопкаВыполнитьНажатие(Кнопка)
//Номер листа в книге Excel для получения данных
НомерЛиста = 1 ;
//Пытаемся подключиться к Excel
Попытка
Excel = новый COMОбъект("Excel.Application");
Исключение
Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
Возврат;
КонецПопытки;
//Подключились удачно, открываем файл
Excel.Workbooks.Open("D:\Марина\Всё для работы\Excel\Книга2.xls");
//Открываем необходимый лист
Excel.Sheets( 1 ).select();
//Определяем количество строк и колонок в листе
ВсегоКолонок = Excel.Cells ( 1 , 1 ).SpecialCells ( 11 ).Column;
ВсегоСтрок = Excel.Cells ( 1 , 1 ).SpecialCells ( 11 ).Row;
//определим по файлу в каких колонках необходимые данные
НомерКолонкиКод = 1 ;
НомерКолонкиНаименование = 2 ;
НомерКолонкиГруппа_ОКВЭД_или_иной_источник_требования = 3 ;
//НомерКолонкиСсылка_на_форму_нормативный_документ = 4 ;
// Выбираем данные из файла
Для ВсегоСтрок= 1 по ВсегоКолонок Цикл
//Полуим данные из соответсвующих ячеек
Код = Строка(Excel.Cells(ВсегоСтрок,НомерКолонкиКод).Value);
Наименование = Строка(Excel.Cells(ВсегоСтрок,НомерКолонкиНаименование).Value);
Группа_ОКВЭД_или_иной_источник_требования = Строка(Excel.Cells(ВсегоСтрок,НомерКолонкиГруппа_ОКВЭД_или_иной_источник_требования).Value);
//Ссылка_на_форму_нормативный_документ = Строка(Excel.Cells(ВсегоСтрок,НомерКолонкиСсылка_на_форму_нормативный_документ).Value);
Виды_деятельности = Справочники.Виды_деятельности.ПустаяСсылка();
// Ищем товар в справочнике по коду
Виды_деятельности = Справочники.Виды_деятельности.НайтиПоКоду(Код);
// // Если не нашли по коду, то ищем по наименованию
Если Виды_деятельности.Пустая() Тогда
Виды_деятельности = Справочники.Виды_деятельности.НайтиПоНаименованию(Наименование, Истина);
Конецесли;
// //Если не нашли создаем новый
Если Виды_деятельности.Пустая() Тогда
Виды_деятельности = Справочники.Виды_деятельности.СоздатьЭлемент();
Виды_деятельности.Код = Код;
Виды_деятельности.Наименование = Наименование;
Виды_деятельности.Группа_ОКВЭД_или_иной_источник_требования = Группа_ОКВЭД_или_иной_источник_требования;
//Группы_контрагентов.Ссылка_на_форму_нормативный_документ = Ссылка_на_форму_нормативный_документ;
Виды_деятельности.Записать();
Конецесли;
Конеццикла;
//Закрываем Excel
Excel.ActiveWorkbook.Close();
КонецПроцедуры
Зарание спасибо за помощь!
