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;
|