чуток доработал - автоматический подсчет количества строк на странице добавил:
КонСтрока=Лист.Cells(1,1).SpecialCells(11).Row;
Пропуск пустых строк:
Если ЗначениеЦены = "" Тогда
Продолжить;
КонецЕсли;
Добавил удаление пробелов в цене (например, если в ячейке стоит 3 007):
ЗначениеЦены = СтрЗаменить(ЗначениеЦены," ","");
В модуль объекта вот такую функцию (для регистрации в базе):
Функция СведенияОВнешнейОбработке() Экспорт
РегистрационныеДанные = Новый Структура;
РегистрационныеДанные.Вставить("Наименование", "Загрузка из Exel");
РегистрационныеДанные.Вставить("БезопасныйРежим", Ложь);
РегистрационныеДанные.Вставить("Версия", "1.0");
РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОбработка");
РегистрационныеДанные.Вставить("Информация", "Загрузка из Exel");
///////////// команды /////////////////////////
тзКоманд = Новый ТаблицаЗначений;
тзКоманд.Колонки.Добавить("Идентификатор");
тзКоманд.Колонки.Добавить("Представление");
тзКоманд.Колонки.Добавить("Модификатор");
тзКоманд.Колонки.Добавить("ПоказыватьОповещение");
тзКоманд.Колонки.Добавить("Использование");
строкаКоманды = тзКоманд.Добавить();
строкаКоманды.Идентификатор = "1";
строкаКоманды.Представление = "Загрузка_из_Exel";
строкаКоманды.ПоказыватьОповещение = Истина;
строкаКоманды.Использование = "ОткрытиеФормы";
РегистрационныеДанные.Вставить("Команды", тзКоманд);
Возврат РегистрационныеДанные;
КонецФункции Показать
