Загружаю из Эксель в спр.Номенклатура файл, содержащий два столбца:
"КодТовара" и "НовыйРеквизит" (этот реквизит мы завели в спр.Номенклатура и теперь его надо заполнить данными из файла). Все загружает нормально, только когда доходит до последнего элемента, выдает ошибку:

{Форма.Форма(114)}: Ошибка при вызове метода контекста (ПолучитьОбъект): Элемент не выбран!
       Товар = Товар.ПолучитьОбъект();
по причине:
Элемент не выбран!

И Эксель зависает, хотя все подгрузил без ошибок...

Вот мой код:

НомерЛиста  = 1;
   Попытка
       Excel = новый COMОбъект("Excel.Application");
   Исключение
       Сообщить("Excel на компьютере не установлен.");
       Возврат;
   КонецПопытки;    
   
   Excel.Workbooks.Open(ИмяФайла);
   Excel.Sheets(НомерЛиста).select();  
   Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
   Если Версия = "8" тогда
       ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
       ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
   Иначе
       ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
       ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;  
   Конецесли;
   
   НомерКолонкиКодаТовара = 1;
   НомерКолонкиНовогоРеквизита = 2;
   
   Для а = 2 По 469 Цикл
       КодТовара             = СокрЛП(Excel.Cells(а,НомерКолонкиКодаТовара).Value);
       НовыйРеквизит = СокрЛП(Excel.Cells(а,НомерКолонкиНовогоРеквизита).Value);
       Товар = Справочники.Номенклатура.НайтиПоКоду(КодТовара);
       Сообщить("Нашел Код номенклатуры" + КодТовара);
       Товар = Товар.ПолучитьОбъект();
       Товар.НовыйРеквизит = НовыйРеквизит;
       Товар.Записать();
   Конеццикла;
   
   Excel.ActiveWorkbook.Close();

С чего это такая уверенность, что "Нашел Код номенклатуры"?

А кто будет проверять нашелся товар по коду или нет?

(2) а как?

Товар.ПустаяССылка()

СП:
Пример:
СтрокаКода = "840";
Валюты = Справочники.Валюты;
НайденнаяСсылка = Валюты.НайтиПоКоду(СтрокаКода);
Если НайденнаяСсылка = Валюты.ПустаяСсылка() Тогда
   Сообщить("Валюты """ + СтрокаКода + """ еще нет");
КонецЕсли;

(5)полный пипец

(6) Это пример из СП.
Полный пипец - это (4).
Если уж так, как ты предлагаешь проверять, то: Товар.Пустая()

(4), (6) а как надо правильно, применительно к моему коду в (0)???

(8) Ну-ну...

(7)ну да согласен ... затупил с сылкой

Так будет правильно?

......
Товар = Справочники.Номенклатура.НайтиПоКоду(КодТовара);
Если Товар = Справочники.Номенклатура.ПустаяСсылка() Тогда
Сообщить("Строка НЕ ЗАГРУЖЕНА. Код Номенклатуры "+КодТовара+" не  найден в справочнике.");
Продолжить;
КонецЕсли;
Сообщить("Нашел Код номенклатуры" + КодТовара);
Товар = Товар.ПолучитьОбъект();
Товар.НовыйРеквизит = НовыйРеквизит;
Товар.Записать();
Конеццикла;

сойдет

Еще подскажите пож-та, т.к. даже если в файле меньше 469 строк, он все равно обрабатывал все 469 строчки, то я исправила строчки:
Было:

Для а = 2 По 469 Цикл
...
КонецЦикла;

Стало:

Для а = Excel.Cells(2,1).SpecialCells(21).Row по ФайлСтрок Цикл
...
КонецЦикла;

Стал выдавать ошибку:

{Форма.Форма(114)}: Ошибка при вызове метода контекста (SpecialCells): Произошла исключительная ситуация (Microsoft Office Excel): Unable to get the SpecialCells property of the Range class
   Для а = Excel.Cells(2,1).SpecialCells(21).Row по ФайлСтрок Цикл
по причине:
Произошла исключительная ситуация (Microsoft Office Excel): Unable to get the SpecialCells property of the Range class

Вот мой текст итоговый:

НомерЛиста  = 1;
   Попытка
       Excel = новый COMОбъект("Excel.Application");
   Исключение
       Сообщить("Excel на компьютере не установлен.");
       Возврат;
   КонецПопытки;    
   
   Excel.Workbooks.Open(ИмяФайла);
   Excel.Sheets(НомерЛиста).select();  
   
   Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
   Если Версия = "8" тогда
       ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
       ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
   Иначе
       ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
       ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;  
   Конецесли;
   
   НомерКолонкиКодаТовара = 1;
   НомерКолонкиНовогоРеквизита = 2;
   
   
   //Для а = 2 По 469 Цикл
   Для а = Excel.Cells(2,1).SpecialCells(21).Row по ФайлСтрок Цикл
       
       КодТовара             = СокрЛП(Excel.Cells(а,НомерКолонкиКодаТовара).Value);
       НовыйРеквизит = СокрЛП(Excel.Cells(а,НомерКолонкиНовогоРеквизита).Value);
       Товар = Справочники.Номенклатура.НайтиПоКоду(КодТовара);
       Если Товар = Справочники.Номенклатура.ПустаяСсылка() Тогда
           Сообщить("Строка НЕ ЗАГРУЖЕНА. Код Номенклатуры "+КодТовара+" не  найден в справочнике.");
           Продолжить;
       КонецЕсли;
       
       Сообщить("Нашел Код номенклатуры" + КодТовара);
       Товар = Товар.ПолучитьОбъект();
       Товар.НовыйРеквизит = НовыйРеквизит;
       Товар.Записать();
   Конеццикла;

up!

SpecialCells(11)

Для а = 2 по ФайлСтрок Цикл

Попробуй так

хотя ...
нафига Excel.Cells(2,1).SpecialCells(21).Row
просто 1

ИМХО
предположу что нет 21 колонки


КМК должно быть так:


  Для а = 2 По ФайлСтрок Цикл

(19) это не колонка

(20) а что?

открой для себя справку по VBA )

(22) XlCellType constants    Value
xlCellTypeAllFormatConditions. Cells of any format    -4172
xlCellTypeAllValidation. Cells having validation criteria    -4174
xlCellTypeBlanks. Empty cells    4
xlCellTypeComments. Cells containing notes    -4144
xlCellTypeConstants. Cells containing constants    2
xlCellTypeFormulas. Cells containing formulas    -4123
xlCellTypeLastCell. The last cell in the used range    11
xlCellTypeSameFormatConditions. Cells having the same format    -4173
xlCellTypeSameValidation. Cells having the same validation criteria    -4175
xlCellTypeVisible. All visible cells    12


ну и где там 21 ?

может надо было указать 12 ?
xlCellTypeVisible. All visible cells    12

или 4 ?

а вообще (14) сильно корявый код хоть и рабочий частично
Книга = Excel.Workbooks.Open(ИмяФайла);
Лист = Книга.Sheets(НомерЛиста);
НовыйРеквизит = СокрЛП(Лист.Cells(а,НомерКолонкиНовогоРеквизита).Value);
ФайлКолонок = Лист.SpecialCells(11).Column;
и т.д. и т.п.

(22) я смотрю ты открывать то умеешь, вот только пользоваться не очень

(23) XlCellType <> номер колонки? ))

))

(28) да я вообще VBA в глаза не видел ....
раза 2 за 10 лет открывал, откуда мне знать? я просто предположил..

и кстати угадал

тебе виднее )