خاصية Worksheets

البنية

مثال

Sheet := Workbook.Add;
for i := 1 to Workbook.Worksheets.Count do
   Sheet.Cells.Item[i, 1].Value := Workbook.Worksheets[i].Name;