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;