Ребят, Получил на Сервере ТЗ список листов в эксель файле
&НаСервере
Процедура ОткрытьНаСервере(Наименование)


Ексель = Новый COMОбъект("Excel.Application");
НомерЛиста = 2;
файл = Ексель.WorkBooks.Open(ПолеВвода);
Лист = файл .WorkSheets(НомерЛиста);

СписокЛистов = Новый СписокЗначений;
Для Каждого ТекущийЛист Из файл .WorkSheets Цикл
СписокЛистов.Добавить(ТекущийЛист.Name);
КонецЦикла;


Создал поле выбора листа на форме

&НаКлиенте
Процедура ВыберитеНомерЛистаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

Что надо написать, чтобы в этом поле отобразился полученный список листов?

"ребята" на подростковых форумах

что ж ты тут делаешь тогда

(0) надо вызвать сервер и дождаться ответа от сервера со списком

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

Открывай через ado, открывай на клиенте

А сейчас дядя Паша раскажет страшную вещь.
На сервере путь, который Вы вводите на форме может быть недоступен.

И вот такой отлаживаешь дома в уютной песочнике на файловой и все хорошо.
А потом релизишь клиенту и привет факап.

список передается на клиента и через ПоказатьВыборЗначения из него можно выбирать.
только,когда мы ушли на клиента,на сервере эксель погиб вместе со всем остальным.

А пот теме открой для себя паттерн: Массив структур.
На собеседованиях спрашивают чуть реже чем всегда.

(7) Да и пох, клиент чехлит.

(10) Вроде как прошли те времена.
Сейчас клиент как правило платит тыщу, а мозг сушит на 10.

(11) Т.е. ты убеждаешь что клиенту надо, реализовываешь это надо, потом защищаешь счет выставленный за надо ?
Вот это факап.

Есть у кого Код примера не? (0)

(12) Нет потом слушаешь что за это 1000 рублей много, племянник за 500 сделает, а давай еще сделай это...
Это уже давно пройденный этап, но таких мозготрахов ну просто дофигищщу.
(13) А ЗП я тоже за тебя получу?
Я и путь реализации и опасные места указал. Остальное гуглится за 3 минуты.

Тема названа некорректно.
Вариант 1: у элемента ставится режим выбора из списка и в список загружается список, полученный с сервера.
Вариант 2.
На клиенте пишешь стандартнаяобработка = ложь;
ДанныеВыбора = твой список.
Но есть ньюанс. В обработчиками событий элементов формы категорически не рекомендуются контекстные серверные вызовы. Это ведёт иногда к багам

Я бы написал так

&НаСервереБезКонтекста // ИМХО должно быть &НаКлиенте
Функция СписокЛистовФайла(ПутьКФайлу)


Ексель = Новый COMОбъект("Excel.Application");
НомерЛиста = 2;
файл = Ексель.WorkBooks.Open(ПутьКФайлу);
Лист = файл .WorkSheets(НомерЛиста);

СписокЛистов = Новый СписокЗначений;
Для Каждого ТекущийЛист Из файл .WorkSheets Цикл
СписокЛистов.Добавить(ТекущийЛист.Name);
КонецЦикла;
Возврат СписокЛистов;
КонецФункции

Создал поле выбора листа на форме

&НаКлиенте
Процедура ВыберитеНомерЛистаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДанныеВыбора = СписокЛистовФайла(ПолеВвода);
КонецПроцедуры

(15) вариант второй пробовал. переменная не определена
ДанныеВыбора = СписокЛистов

(17) СМ (16)

(14) Так пусть племянник и делает, кули ко мне то обратились ?

Зачем на сервере открывать непонятный эксель и как этот эксель там вообще оказался?

(6) а потом приходишь к клиенту, а там опенофис, ага :)
ну или просто линукс :)

(19) Племянника до актов нет, а работа сделана. Риск невозвратных потерь. Торгуются так. Типа или давай скидос\доп работы или нихера не получишь.
(20) Это за рамками задачи, но я об этом уже писал.

(18) есть ньюанс...код уже готовый, состоит примерно из 50-70 строк...взять и переименовать процедуру в функцию я не могу. Просто когда дописал код, приспичило сделать поле выбора...как без функции сделать?

(23) Процедура от ффункции отличается тем, что:
У функции есть оператор ВОЗВРАТ.
Код, после попадания на оператор ВОЗВРАТ не выполняется.
Если ты переименуешь процедуру в функцию и возврат сделаешь на самой последней строке - ничего не сломается.

(24) И функция возвращает значение. но это не относится к телу функции
С точки зрения кода внутри функция конецФункции отличие только в (24)

(22) Шантаж ? Вариантов действий несколько.
Начиная от съема доработок, заканчивая принятием невозвратной потери.

(26) На старте карьеры рук под таких гнулся, и вместо премии процентом у меня был чистый оклад.
Было дико противно.
Наверное по этому тот франч и загнулся в итоге.

А еще, что бы не дклать процедура-> функция, можно создать Реквизит формы СписокЛистов, и он будет глобальным для клиента и контекстного серверного вызова и перезаполнится в процедуре.

Тип значения - список значенйи

(28) так у меня и есть реквизит оно же поле

Это так не работает.

Тогда тебе не нужно ВыберитеНомерЛистаНачалоВыбора это событие

(24) сделал так, почти работает. но в коде указан номерЛиста = 2
и еще есть переменная Лист
закоментировать не могу они в коде хорошо подвязаны...
то есть при выборе из списка листа допустим третьего все равно грузится второй

(32) так и есть

(32) &НаКлиенте
Процедура ВыберитеНомерЛистаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    
     СтандартнаяОбработка = Ложь;
ДанныеФормы = ОткрытьНаСервере(ВыберитеНомерЛиста);

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

(33) Уж коли ты в обители говнокода - напиши свою процедуру.
Тупо получаешь из Excel список листов и помещаешь его в реквизит формы.

Так ты не будешь привязан к этой процедуре.
Так себе решение.

Но оно лучше, чем копаться в процедуре код которой состоит из магических чисел

(37) это моя первая работа с кодом вообще

Палсергеич, я смотрю у тебя много свободного времени :)

НомерЛиста = 2; - одно это без внятного комментаря уже не гуд.
(40) Я кофе упился и меня штырит)

А чем тебе мешает НомерЛиста = 2;
В цикле по заполнению списка это не учитывается

СписокЛистов = Новый СписокЗначений;
Для Каждого ТекущийЛист Из файл.WorkSheets Цикл
СписокЛистов.Добавить(ТекущийЛист.Name);
КонецЦикла;

При заполнении он обходит коллекцию всех листов и записывает в список.
Конкрето здесь все нормально же.
По идее должно работать

(42) Лист = файл .WorkSheets(НомерЛиста); вот это мешает. переменная Лист фигурирует везде

(43) работатет. все видно. но выбираю. но грузит все равно НомерЛиста = 2

(45) Вот.
Теперь следующий шаг.
Если решить его быстро, то тогде так.
Меняешь
НомерЛиста = 2;
На
НомерЛиста = 1
Для Каждого ТекущийЛист Из файл.WorkSheets Цикл
Если ТекущийЛист.Name = Наименование Тогда
Преррвать;
КонецЕсли
НомерЛиста = НомерЛиста+1;
КонецЦикла;
При условии, что Процедура ОткрытьНаСервере(Наименование) тут Наименование это имя листа

Быстрое и не очень хорошее решение, но в нормальное решение - никто не поверит что ты сам)

(47) У меня сейчас нигде не указан НомерЛиста = 2, но НомерЛиста = Число(ВыберитеНомерЛиста); смотрю через отладку, номерЛиста = 2, ВыберитеНомерЛиста = "КОл"(он же в книги четвертый)..че за фигня не знаешь?

(48) См реквизиты формы.

может эти числа забиты в данныее формы ранее