Как сделать переход в Excel по листам?

RussianForce
Дата: 22.06.2009 12:06:29
Здравствуйте!

Как в Excel осуществлять переход по листам???

Варианты:
  ExWS.ConnectTo(ExWB.Worksheets.Item[i+1] as _Worksheet);

  (ExWB.Worksheets.Item[i+1] as _Worksheet).Activate(lcid);

почему то не работают...
slgeo
Дата: 22.06.2009 13:09:24
var
  i : integer;
  IWorkBook : Excel2000._Workbook;
  ISheet: Excel2000._Worksheet;
begin
  IWorkBook := FIXLSApp.Workbooks.Open(FileName, False,True,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam,
      EmptyParam, EmptyParam,  EmptyParam, 0);
  for nSheet := 1 to IWorkBook.Worksheets.Count do
        begin
           ISheet :=IWorkbook.Worksheets.Item[nSheet] as Excel2000._Worksheet;
           ....
        end;
end;
RussianForce
Дата: 22.06.2009 13:33:08
slgeo
var
  i : integer;
  IWorkBook : Excel2000._Workbook;
  ISheet: Excel2000._Worksheet;
begin
  IWorkBook := FIXLSApp.Workbooks.Open(FileName, False,True,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam,
      EmptyParam, EmptyParam,  EmptyParam, 0);
  for nSheet := 1 to IWorkBook.Worksheets.Count do
        begin
           ISheet :=IWorkbook.Worksheets.Item[nSheet] as Excel2000._Worksheet;
           ....
        end;
end;


А у переменной FIXLSApp какой тип?
slgeo
Дата: 22.06.2009 13:49:09
FIXLSApp : TExcelApplication;
компонент с закладки "Servers"
RussianForce
Дата: 23.06.2009 10:08:23
Спасибо за помощь!
Я сделал по-своему... Но вообще странно, что стандартные вещи глючит...