делал так:
Столб2 = СокрЛП(xl.Cells(row,2).Value);
Если СтрДлина(Столб2)>0 Тогда
   Спр1 = СоздатьОбъект("Справочник."+Счет.ВидСубконто(1));
   Если Спр1.НайтиПоКоду(Сред(Столб2,2)) = 1 Тогда .....

Но Счет.ВидСубконто(1) это синоним идентификатора ...

ТипЗнч (TypeOf)
Синтаксис:

ТипЗнч(<Значение>)
Параметры:

<Значение> (обязательный)

Тип: Произвольный.
Значение, тип которого необходимо получить.
Возвращаемое значение:

Тип: Тип.

Описание:

Получает тип значения.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Пример:

Если ТипЗнч(ТекОбъект) = Тип("СправочникСсылка.Номенклатура") Тогда
   ...
КонецЕсли;

(1) 7-ку с 8-кой перепутал? :-)

(0) У вида субконто есть метод ТипСубконто().

Счет.ВидСубконто(1).ТипСубконто()  -- получилося
Огромное спасибо