1с 77 и Excel

[lira89]

Здравствуйте, возникла небольшая проблема со считыванием данных из Excel в таблицу значений. Есть функция, которая возвращает значение в нужной ячейке:

Функция ПолучитьЗначение(Excel,у,х)
Cell=Excel.Cells(у, х);
Возврат Cell.Value;
КонецФункции

И далее по коду идет обращение к этой функции:

ТЗ1_ЛичныеДанныеАсп.Пол = (СокрЛП(Строка(ПолучитьЗначение(Эксель,i,"ASPSEX"))));

Здесь последний параметр идет не число, а название столбца(идентификатор), но почему-то выдается ошибка " Cell=Excel.Cells(у, х) ;
{Обработка.ЗагрузкаАспирантов.Форма.Модуль(4)}: : " в функции ПолучитьЗначение(Excel,у,х). Я думаю, что проблема в том, что последний параметр у меня строка, но как решить эту проблему, не меняя название столбца на его номер, т.е. чтобы считывание шло по названию столбцов????

 

[Hryv]

Если известно в какой строке написаны названия столбцов, то перебирая столбцы попорядку (а может и каким-то более красивым способом) можно найти в каком столбце написано "ASPSEX", после этого использовать Cells(у, х)

 

[lira89]

А можно привести наглядный пример? Заранее спасибо.

 

[gorlanovmax]

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

 

[vbs]

Например, так
Sheet = WorkBook.WorkSheets();
WorkBook.Sheets(NL.Activate(); // NL -номер листа
RowCount = ActiveCell.Row;
ColumnCount = ActiveCell.Column;
TZ = СоздатьОбъект("ТаблицаЗначений");
TZ.НоваяКолонка("NUM");
TZ.НоваяКолонка("NAME");

For N = 1 to ColumnCount do
TZ.НоваяСтрока();
TZ.NUM = N;
XCell = ExcelApp.Cells(XX,N).Value; // XX - номер строки с заголовками
TZ.NAME = XCell;
enddo;
Далее можно в созданной TZ искать номер колонки по ее наименованию