Как мне вытащить поле СпрСотр.ВидТМЦ в Excel при импорте справочника ТМЦ

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v7.7

1. ruslan_as 09.10.06 12:00 Сейчас в теме

Пытаюсь сделать так:
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если СпрСотр.ЭтоГруппа()=1 Тогда
ExcelApp.Cells(НомЯчейки,1).Value="ГРУППА - "+СпрСотр.Наименование;
Иначе
ExcelApp.Cells(НомЯчейки,1).Value=СпрСотр.ПолнНаименование;
КонецЕсли;
ExcelApp.Cells(НомЯчейки,3).Value=СпрСотр.Артикул;
ExcelApp.Cells(НомЯчейки,4).Value=СпрСотр.ШтрихКод;
ExcelApp.Cells(НомЯчейки,2).Value=СпрСотр.ВидТМЦ.Перечисление.ТипыТМЦ.Перемещение.ТекущийЭлемент();
Но в Excel пусто...
Помогите начинающему

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. azernot 781 09.10.06 12:19 Сейчас в теме

Какой тип/вид реквизита ВидТМЦ?
Просто СпрСотр.ВидТМЦ; не срабатывает?

3. support 4453 09.10.06 12:24 Сейчас в теме

Excel=создатьобъект("Excel.Application");
книга=Excel.Workbooks;
файл=книга.Open(файл);
лист_файла =файл.WorkSheets("лист1");
лист_файла.cells(НомЯчейки,1).value) = трампарам

4. ruslan_as 09.10.06 12:37 Сейчас в теме

azernot - Извините-не указал. В справочнике ТМЦ у него тип "Перечисление.ТипыТМЦ".
А на СпрСотр.ВидТМЦ - просто молчит и пустое поле в Excel.

5. ruslan_as 09.10.06 12:45 Сейчас в теме

Все - нашел!
ExcelApp.Cells(НомЯчейки,2).Value=Строка(СпрСотр.ВидТМЦ);
Спасибо Всем за участие!

Оставьте свое сообщение

E-mail: