01type
02  IWorkBook = interface(IDispatch)
03    ['{A645DB60-CE9A-45E3-A948-B668AB210D36}']
04    function Get_WorkSheetNameTemplate: WideString; safecall;
05    procedure Set_WorkSheetNameTemplate(Value: WideString); safecall;
06    function AddWorkSheet(Sample: ISpreadSheet): ISpreadSheet; safecall;
07    procedure RemoveWorkSheet(WorkSheet: ISpreadSheet); safecall;
08    function SheetIndex(Sheet: ISpreadSheet): Integer; safecall;
09    procedure SetSheetIndex(Sheet: ISpreadSheet; Index: Integer); safecall;
10    function Get_WorkSheetCount: Integer; safecall;
11    function WorkSheets(Index: Integer): ISpreadSheet; safecall;
12    function Get_FileName: WideString; safecall;
13    procedure Set_FileName(Value: WideString); safecall;
14    function Get_ActiveSheet: ISpreadSheet; safecall;
15    procedure Set_ActiveSheet(Value: ISpreadSheet); safecall;
16    function Get_DefaultFontName: WideString; safecall;
17    procedure Set_DefaultFontName(Value: WideString); safecall;
18    function Get_DefaultFontSize: Single; safecall;
19    procedure Set_DefaultFontSize(Value: Single); safecall;
20    function Get_MacroEnabled: WordBool; safecall;
21    procedure Set_MacroEnabled(Value: WordBool); safecall;
22    function Get_IsTemplate: WordBool; safecall;
23    procedure Set_IsTemplate(Value: WordBool); safecall;
24    property WorkSheetNameTemplate: WideString read Get_WorkSheetNameTemplate 
25      write Set_WorkSheetNameTemplate;
26    property WorkSheetCount: Integer read Get_WorkSheetCount;
27    property FileName: WideString read Get_FileName write Set_FileName;
28    property ActiveSheet: ISpreadSheet read Get_ActiveSheet write Set_ActiveSheet;
29    property DefaultFontName: WideString read Get_DefaultFontName 
30      write Set_DefaultFontName;
31    property DefaultFontSize: Single read Get_DefaultFontSize 
32      write Set_DefaultFontSize;
33    property MacroEnabled: WordBool read Get_MacroEnabled write Set_MacroEnabled;
34    property IsTemplate: WordBool read Get_IsTemplate write Set_IsTemplate;
35  end;