| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Количество страниц в Excel [Delphi, Windows]

Ромка ©   (2007-01-05 10:53:00) 

Работая с Excel через компонент TExcelApplication задать количество страниц можна очень просто:

var
 ExcelApp: TExcelApplication;
...
 ExcelApp.SheetsInNewWorkbook[LOCALE_USER_DEFAULT] := 2;
...

Вопрос: как прочитать это значение?

При использовании кода

TmpInt := ExcelApp.SheetsInNewWorkbook[LOCALE_USER_DEFAULT];

получаем ошыбку "Недопустимое число параметров".

---

YurikGL   (2007-01-05 22:41:00) [1]

При работе с Excel очень-очень советую работать через CreateOleObject.

з.ы. попробуй ExcelApplication1.ActiveWorkbook.Sheets.Count

---

Ромка   (2007-01-05 12:12:00) [2]

Это крайний вариант. Очень не хочется переписывать полпрограмы.

---

Array   (2007-01-05 12:00:00) [3]

Попробуйте не пользоваться компонентами, а делать всё через OLE? думаю так будет надёжнее

---

Ромка   (2007-01-05 11:44:00) [4]

Оно то так. Но если не задавать параметров вообще, то компилятор не пускает.

---

Array   (2007-01-05 11:40:00) [5]

>  "Недопустимое число параметров".

Тут всё сказано, параметров ввобще не должно быть
Вот что пишет справка
SheetsInNewWorkbook Property
See AlsoApplies ToExampleSpecificsReturns or sets the number of sheets that Microsoft Excel automatically inserts into new workbooks. Read/write Long.

Example
This example displays the number of sheets automatically inserted into new workbooks.

MsgBox "Microsoft Excel inserts " & _
   Application.SheetsInNewWorkbook & _
   " sheet(s) in each new workbook"

---

Наверх