Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 дек 2024, 21:33

Загрузка из Excel в 1с

Автор v_kuzmin, 01 апр 2012, 06:58

0 Пользователей и 1 гость просматривают эту тему.

v_kuzmin

Здравствуйте!У меня тут не большая проблема...Есть справочник в нем создаётся множество других справочников (т.е. они созданы и пустые в данные момент)и в их табличные части должны загружаться данные из Excel,но у меня тут какойто баг выходит не пойму почему...Заранее благодарен за помощь.
&НаКлиенте
Процедура ЗагрузитьИзExcel(Команда)
   Эксель = Новый COMОбъект("Excel.Application");
           Книга = Эксель.WorkBooks.Open("C:\Users\Администратор\Downloads\1с");
   Лист = Книга.WorkSheets(1);   
           ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
   ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;     
   
   Док = Справочники.Журнал.Выбрать();   
   Пока Док.Следующий() Цикл   
         
      ТЧ = Док.Ведомость;     
      Для каждого Стр из ТЧ Цикл     
         
      КонецЦикла;   
   КонецЦикла;      
   Для Строка = 1 По ВсегоСтрок Цикл
      
      Для Колонка = 1 По ВсегоКолонок Цикл
      Студент = Справочники.Студенты.НайтиПоНаименованию(СокрЛП(Лист.Cells(Строка,Колонка).Value));     
      Если Студент.Пустая() Тогда
         Сообщить("В строке "+ Строка+ " введен неверно студент.")
      Иначе   
         ТЧ.Студент = Студент;
      КонецЕсли;   
      Попытка
         ТЧ.Понедельник = Перечисления.Оценки.Получить(Лист.Cells(Строка,2).Value);
      Исключение
      КонецПопытки;
      Попытка
         ТЧ.Вторник = Перечисления.Оценки.Получить(Лист.Cells(Строка,3).Value);
      Исключение
      КонецПопытки;
      Попытка
         ТЧ.Среда = Перечисления.Оценки.Получить(Лист.Cells(Строка,4).Value);
      Исключение
      КонецПопытки;
      Попытка
         ТЧ.Пятница = Перечисления.Оценки.Получить(Лист.Cells(Строка,5).Value);
      Исключение
      КонецПопытки;
      Попытка
         ТЧ.Суббота = Перечисления.Оценки.Получить(Лист.Cells(Строка,6).Value);
      Исключение
      КонецПопытки;
      Попытка
         ТЧ.Воскресенье = Перечисления.Оценки.Получить(Лист.Cells(Строка,7).Value);
      Исключение;
      КонецПопытки;
         
   
      КонецЦикла;       
       КонецЦикла;
       Док.Записать();

КонецПроцедуры

v_kuzmin

ошибку то забыл написать)
{Справочник.Журнал.Форма.ФормаСписка.Форма(207)}: Поле объекта не обнаружено (Студент)
         ТЧ.Студент = Студент;

Dethmontt

Тоже в попытку занеси и не будет такой Ошибки =)))))))
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

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

v_kuzmin

Цитата: Dethmontt от 01 апр 2012, 15:07
Тоже в попытку занеси и не будет такой Ошибки =)))))))
я заносил)
но он ничего не менят в тч справочника...

Dethmontt

Цитата: v_kuzmin от 01 апр 2012, 15:33
Цитата: Dethmontt от 01 апр 2012, 15:07
Тоже в попытку занеси и не будет такой Ошибки =)))))))
я заносил)
но он ничего не менят в тч справочника...
БуГаГа... Красавчик=))))
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

v_kuzmin

Цитата: Dethmontt от 01 апр 2012, 15:49
Цитата: v_kuzmin от 01 апр 2012, 15:33
Цитата: Dethmontt от 01 апр 2012, 15:07
Тоже в попытку занеси и не будет такой Ошибки =)))))))
я заносил)
но он ничего не менят в тч справочника...
БуГаГа... Красавчик=))))
я понимаю,что всё оч смешно))но так что делать то?)

Dethmontt

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

Dethmontt

ТЧ - Это же табличная часть? Вот ты как думаешь в какую строку положить твоего СТУДЕНТА платформа сама должна догадаться????????
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

v_kuzmin

да это табличная часть.ну нет конечно же))
вот какая штука
{Справочник.Журнал.Форма.ФормаСписка.Форма(181,17)}: Переменная не определена (Студент)
ТЧ[0].Студент = <<?>>Студент;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск