[ColorDb]

Добрый день программерам.

Подскажите как переключаться между листами?
В моем идиётском учебнике этого нет. Измучался.
То есть я заношу значения в какие то ячейки потом нажимаю button и чтоб эксель перескочил на другой лист и можно было туда данные вносить..
Чет никак.
Ну и новые создавать..

[ColorDb]

Есть у кого толковая книга по программированию excel?
Везде не до писывают недоговаривают. Мне в подробностях.

[Страдалецъ]

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

[roamer]

А "стандартный" способ не подойдет ?
Типа :

Код:

//Сделать лист Excel активным
function Excel_SetListActive(Excel : variant; NumList : integer) :variant;
begin
  Result:=UnAssigned;
  if not VarIsEmpty(Excel) then begin
     if NumList>0 then begin
        if NumList<=Excel.WorkSheets.Count then begin
           Result:=Excel.ActiveWorkBook.WorkSheets[NumList];
           Result.Select;
        end;
     end;
  end;
end;

//Получить ссылку на лист Excel по номеру 
function Excel_GetList(Excel : Variant; NumList : integer) : Variant;
begin
  Result:=UnAssigned;
  if not VarIsEmpty(Excel) then begin
     if (NumList>0) and  (NumList<=Excel.ActiveWorkBook.WorkSheets.Count) then begin
        Result:=Excel.ActiveWorkBook.WorkSheets[NumList];
     end;
  end;
end;

//Добавить лист в книгу Excel
function Excel_AddLis(Excel : Variant) : Variant;
begin
  Result:=UnAssigned;
  if not VarIsEmpty(Excel) then begin
     Result:=Excel.ActiveWorkBook.WorkSheets.Add;
  end;
end;

[ColorDb]

Вот попробуем. Не знал такой способ.

[ColorDb]

Только как этим пользоваться?
Что такое Excel а что такое Numllist?
Numlist это я понимаю номер листа.
С какого начинается с 0 или с 1?

То есть можно написать так.
Excel_SetListActive(1,2);

Перейдешь на второй лист?

[ColorDb]

Я так пробовал.
ExlPrint.Sheets.item('Лист2').Select;
Пишет член гурппы не найжен.