добрый день. нужно создать обработку по загрузке данных из Exel в табличную часть документа (номенклатура, склад, количество).
файл открывается. как дальше сделать привязку строки и колонки Exel и 1с


&НаКлиенте
Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
   ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ДиалогВыбора.Заголовок = "Выберите файл";
  
   Если ДиалогВыбора.Выбрать() Тогда
      ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
   КонецЕсли;
        Объект.ИмяФайла=ИмяФайла;
КонецПроцедуры

&НаКлиенте
Процедура Загрузить(Команда)
   ИмяФайла=Объект.ИмяФайла;
   ЗагрузитьДанные(ИмяФайла);  
КонецПроцедуры
  
Функция ЗагрузитьДанные(ИмяФайла)//Номер листа в книге Excel для получения данных
      
  
   НомерЛиста         = 1;
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат Ложь;
    КонецПопытки;    
    //Подключились удачно, открываем файл
    Excel.Workbooks.Open(ИмяФайла);
    //Открываем необходимый лист
    Excel.Sheets(НомерЛиста).select();  
    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(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;  
   Конецесли;
  
   Остатки = Документы.ВводНачальныхОстатков.СоздатьДокумент();
   Остатки.Дата = ТекущаяДата();
      
  
   Для а = 9 по ФайлСтрок Цикл          
      
      
      НоваяСтрока = Остатки.Товары.Добавить();
      
      НоваяСтрока.Номенклатура = Excel.Cells( ,2).Value;    
      НоваяСтрока.Склад        = Excel.Cells( ,2).Value;
      НоваяСтрока.Количество   = Excel.Cells( ,2).Value;    
  

      
      
   КонецЦикла;
  
        
  
  
        Остатки.Записать(РежимЗаписиДокумента.Запись);
      //Закрываем Excel
    Excel.ActiveWorkbook.Close();  
     КонецФункции

(0) Нажми кнопку "Я" справа от заголовка темы.

(1) Вот бы еще "Г" была справа. Типа хочешь ищи в яндексе, хочешь в гугле. Разнообразие и удоство.

(0) В значениях ячеек 1С-ссылки на номенклатуру и склад?

(0) А что на клиенте можно создать объект и заполнить его?

(4) так он на сервере создает

(4) он на сервере заполняет. Он просто не указал директиву &НаСервере, но это не суть

(5) (6) Второй вопрос подсказали. остался первый. Может он сам чуть-чуть подумает?

может я чего не понял, но может тут нужную колонку и строку?

Excel.Cells( ,2).Value;

НоваяСтрока.Номенклатура = Excel.Cells(a,2).Value;

НоваяСтрока.Номенклатура   тип строка

Тип. А что такое тип? и почему тип строка?

или так
СтрокаДляПоиска =Excel.Cells(a,2).Value;
ТоЧтоНашли = Справочники.Номенклатура.НайтиПоНаименованию(СтрокаДляПоиска);

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

(11) потому что  из Экселя тебе придет тип строка

(13) Фантастика. И даже число будет с типом строка?

Или я сейчас начал биржу вопросов ТС рушить?

(14) зависит  от типа данных колонки в экселе
СтрокаДляПоиска =СокрЛП(Excel.Cells(a,2).Value);-
так будет точно строка

(0) На последних релизах платформы можно так не извращаться, а считать лист Экселя в табличный документ и разбирать уже его. Примерно так:

&НаКлиенте
Процедура ЗагрузитьИзЭксель(Команда)
    
    Режим = РежимДиалогаВыбораФайла.Открытие;
    
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Текст = "ru = ""Табличный документ""; en = ""Spreadsheet document""";
    Фильтр = НСтр(Текст)+"(*.mxl; *.xls; *.xlsx; *.ods)|*.mxl; *.xls; *.xlsx; *.ods";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файл";
    
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ВыбранныйФайл = ДиалогОткрытияФайла.ПолноеИмяФайла;
        АдресВременногоХранилища = "";
        ПоместитьФайл(АдресВременногоХранилища, ВыбранныйФайл, , Ложь, ЭтаФорма.УникальныйИдентификатор);
        
        Ф = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);
        РасширениеСтрока = Сред(Ф.Расширение, 2);
        
        ЗагрузитьИзЭксельНаСервере(АдресВременногоХранилища, РасширениеСтрока);
    КонецЕсли;    
    
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьИзЭксельНаСервере(АдресВременногоХранилища, Расширение)
    
    ТабДок = Новый ТабличныйДокумент;
    
    ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла(Расширение);
    ДвоичныеДанные.Записать(ИмяВременногоФайла);
    
    ТабДок.Прочитать(ИмяВременногоФайла); //<---- читаем из экселя сразу в табдок
    
    РазобратьТабличныйДокумент(ТабДок); //<---- и всё, работаем в данной процедуре со стандартным табличным документом, через "Область" и т.д.; файл эксель отпустили
    
    Попытка
        УдалитьФайлы(ИмяВременногоФайла);
    Исключение
    КонецПопытки;
    
КонецПроцедуры

если использовать value - придет или текс или число (может быть). Т.е. дословно - значение.

а text всегда придет текст.

но 1с тебе просто так по тексту твоему номенклатуру не вернет.
поэтому или НайтиПоНайменованию или Запрос

(16) Она и так будет строка. Число из екселя не вернется.

(19) точнее до 999 может и будет число, а все что выше будет точно строка.

Я в восторге от всего происходящего: чел, задавший вопрос, на форуме отсутствует, а все с..ться между собой как ему задачу решить. Может он сам чутка подумает по наводящим вопросам? А то ведь у него в мозгу ничего не останется. Он и так не может в Я найти ответ на свой вопрос.

(21) ну да. А слона-то мы и потеряли

(21) Так пятница же!

всем спасибо.
подправил код. количество в документ загрузилось. номенклатура и склад пустые ячейки.

Для а = 2 по ФайлСтрок Цикл          
    
НоваяСтрока = Остатки.Товары.Добавить();      
      
НоваяСтрока.Номенклатура = Excel.Cells(а,1).Value;    
НоваяСтрока.Склад = Excel.Cells(а,2).Value;                  
НоваяСтрока.Количество =    Excel.Cells(а,3).Value

так то можно пользоваться типовой обработкой ЗагрузкаДанныхИзТабличногоДокумента

(21) почему решил, что он отсутствует? Например, если входить в тему с интервалом в минуту и сразу выходить, то он ведь присутствует, хотя и не виден. Это всё туфта, присутствует-отсутствует так не определишь.

мне надо научиться самому. стандартной обработкой понятное дело, можно загрузить.
пытаюсь освоить 1с.

(24)
ну тебе жеж подсказали.
ты все посты читал?

не НоваяСтрока.Номенклатура = Excel.Cells(а,1).Value;
а типа НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛА(Excel.Cells(а,1).Value));

*СокрЛА=СокрЛП

+ (28) ну или ищи ее (номенклатуру) запросом

со складом такая-же печенька

теперь выдает ошибку

Поле объекта не обнаружено (Номенклатура)
        НоваяСтрока.Номенклатура  = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Excel.Cells(а,1).Value));

ТабДок = Новый ТабличныйДокумент;
    ТабДок.Прочитать(ПутьКФайлу);
    
    Построитель = Новый ПостроительОтчета;
    Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабДок.Область());
    Построитель.Выполнить();    
    ТаблицаРезультат = Построитель.Результат.Выгрузить();

и работай с ТЗ

(32) т.е.

НоваяСтрока.Номенклатура = Excel.Cells(а,1).Value;

прокатывает без ошибки, а

НоваяСтрока.Номенклатура  = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Excel.Cells(а,1).Value));

выдает ошибку?

(32) про отладчик слышали?

что за конфигурация, какой тип реквизита номеклатура у теабличной части документа?

реквизит Номенклатуры: СправочникСсылка.Номенклатуры

ссори. ошибку нашел. загрузка пошла.

СправочникСсылка.НоменклатурЫ

"Ы" Карл.

Нетленка?

+ да и конфигуратор (зачастую) показывает что у тебя есть в конфигурации.

приятно когда получается. спасибо всем за помощь.