01type
02  IWorkBooks = interface(IDispatch)
03    ['{0ED2C94A-2D25-4AC1-86FB-F69A6A034547}']
04    function AddWorkBook(WorkBook: IWorkBook): IWorkBook; safecall;
05    procedure RemoveWorkBook(WorkBook: IWorkBook); safecall;
06    function Get_WorkBookCount: Integer; safecall;
07    function Get_WorkBooks(Index: Integer): IWorkBook; safecall;
08    function Get_ActiveBook: IWorkBook; safecall;
09    procedure Set_ActiveBook(Value: IWorkBook); safecall;
10    procedure CreateStyle(ApplyNumberFormat: WordBool; 
11      const NumberFormat: WideString; ApplyFont: WordBool; Bold: WordBool; 
12      Italic: WordBool; Underline: WordBool; FontColor: OLE_COLOR; 
13      ApplyFill: WordBool; BackgroundColor: OLE_COLOR; Pattern: XlPattern; 
14      ApplyBorder: WordBool; LeftBorderStyle: XlLineStyle; 
15      LeftBorderWidth: XlBorderWeight; LeftBorderColor: OLE_COLOR; 
16      TopBorderStyle: XlLineStyle; TopBorderWidth: XlBorderWeight; 
17      TopBorderColor: OLE_COLOR; RightBorderStyle: XlLineStyle; 
18      RightBorderWidth: XlBorderWeight; RightBorderColor: OLE_COLOR; 
19      BottomBorderStyle: XlLineStyle; BottomBorderWidth: XlBorderWeight; 
20      BottomBorderColor: OLE_COLOR; DiagonalBorderStyle: XlLineStyle; 
21      DiagonalBorderWidth: XlBorderWeight; DiagonalBorderColor: OLE_COLOR; 
22      DiagonalBorderUp: WordBool; DiagonalBorderDown: WordBool); safecall;
23    property WorkBookCount: Integer read Get_WorkBookCount;
24    property WorkBooks[Index: Integer]: IWorkBook read Get_WorkBooks;
25    property ActiveBook: IWorkBook read Get_ActiveBook write Set_ActiveBook;
26  end;

Свойства интерфейса IWorkBooks:

Имя	Тип	Доступ	Назначение
ActiveBook	IWorkBook	Чтение/Запись
WorkBookCount	Integer	Только для чтения
WorkBooks[Index: Integer]	IWorkBook	Только для чтения

Метод интерфейса IWorkBooks.

function IWorkBooks.AddWorkBook(WorkBook: IWorkBook): IWorkBook;

Параметры:

Имя	Тип	Обязательно	Значение
WorkBook	IWorkBook	Да

Замечания:

Возвращает значение типа IWorkBook.

Метод интерфейса IWorkBooks.

01procedure IWorkBooks.CreateStyle(ApplyNumberFormat: WordBool; 
02  const NumberFormat: WideString; ApplyFont: WordBool; Bold: WordBool; 
03  Italic: WordBool; Underline: WordBool; FontColor: OLE_COLOR; 
04  ApplyFill: WordBool; BackgroundColor: OLE_COLOR; Pattern: XlPattern; 
05  ApplyBorder: WordBool; LeftBorderStyle: XlLineStyle; 
06  LeftBorderWidth: XlBorderWeight; LeftBorderColor: OLE_COLOR; 
07  TopBorderStyle: XlLineStyle; TopBorderWidth: XlBorderWeight; 
08  TopBorderColor: OLE_COLOR; RightBorderStyle: XlLineStyle; 
09  RightBorderWidth: XlBorderWeight; RightBorderColor: OLE_COLOR; 
10  BottomBorderStyle: XlLineStyle; BottomBorderWidth: XlBorderWeight; 
11  BottomBorderColor: OLE_COLOR; DiagonalBorderStyle: XlLineStyle; 
12  DiagonalBorderWidth: XlBorderWeight; DiagonalBorderColor: OLE_COLOR; 
13  DiagonalBorderUp: WordBool; DiagonalBorderDown: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
ApplyNumberFormat	WordBool	Да
NumberFormat	WideString	Да
ApplyFont	WordBool	Да
Bold	WordBool	Да
Italic	WordBool	Да
Underline	WordBool	Да
FontColor	OLE_COLOR	Да
ApplyFill	WordBool	Да
BackgroundColor	OLE_COLOR	Да
Pattern	XlPattern	Да
ApplyBorder	WordBool	Да
LeftBorderStyle	XlLineStyle	Да
LeftBorderWidth	XlBorderWeight	Да
LeftBorderColor	OLE_COLOR	Да
TopBorderStyle	XlLineStyle	Да
TopBorderWidth	XlBorderWeight	Да
TopBorderColor	OLE_COLOR	Да
RightBorderStyle	XlLineStyle	Да
RightBorderWidth	XlBorderWeight	Да
RightBorderColor	OLE_COLOR	Да
BottomBorderStyle	XlLineStyle	Да
BottomBorderWidth	XlBorderWeight	Да
BottomBorderColor	OLE_COLOR	Да
DiagonalBorderStyle	XlLineStyle	Да
DiagonalBorderWidth	XlBorderWeight	Да
DiagonalBorderColor	OLE_COLOR	Да
DiagonalBorderUp	WordBool	Да
DiagonalBorderDown	WordBool	Да

Метод интерфейса IWorkBooks.

procedure IWorkBooks.RemoveWorkBook(WorkBook: IWorkBook);

Параметры:

Имя	Тип	Обязательно	Значение
WorkBook	IWorkBook	Да