1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
{$ifdef FPC}
{$mode objfpc}
{$endif FPC}
program excel;
uses variants,Windows,activeX,comobj;
Const
IID_IDISPATCH : TGUID = '{00020400-0000-0000-C000-000000000046}';
Type
tArguments = array[0..63] of variant;
ExcelRange = dispinterface ['{00020846-0000-0000-C000-000000000046}']
property _Default[{optional}RowIndex: OleVariant; {optional} ColumnIndex: OleVariant]: OleVariant dispid 0; default;
property Value: OleVariant dispid 6;
end;
WorksheetDisp = dispinterface ['{000208D8-0000-0000-C000-000000000046}']
property Cells: ExcelRange readonly dispid 238;
end;
ExcelWorkbook = interface(IDispatch)
end;
WorkbooksDisp = dispinterface ['{000208DB-0000-0000-C000-000000000046}']
function Add({optional} Template: OleVariant): ExcelWorkbook; dispid 181;
end;
ExcelApplicationDisp = dispinterface ['{000208D5-0000-0000-C000-000000000046}']
property ActiveSheet: IDispatch readonly dispid 307;
property Workbooks: IDispatch readonly dispid 572;
property Visible: WordBool dispid 558;
end;
Function CheckOle(Msg : string;hres : HResult) : HResult;
begin
Result:=hres;
if Failed(hres) then
writeln(Msg,' error')
else if hres=S_OK then
writeln(Msg,' S_OK')
else if hres=REGDB_E_CLASSNOTREG then
writeln(Msg,'CLASSNOTREG')
else if hres=CLASS_E_NOAGGREGATION then
writeln(Msg,'NOAGGREGATION')
else
writeln(Msg,'other error:',longint(hres));
end;
Var
hres : HRESULT;
aclsID : TGUID;
excelapp : ExcelApplicationDisp;
WorkBooks : WorkbooksDisp;
ActiveSheet : WorksheetDisp;
Cells : ExcelRange;
i, j : longint;
begin
hres := CheckOle('CoInit',CoInitializeEx(nil,COINIT_MULTITHREADED));
hres := CheckOle('CLSIDFromProgID',CLSIDFromProgID('Excel.Application', aclsid));
hres := CheckOle('CoCreate',CoCreateInstance(aclsid, Nil, {CLSCTX_INPROC_SERVER or }CLSCTX_LOCAL_SERVER, IID_IDispatch, excelApp));
ExcelApp.Visible := true;
{ Following should also be possible as ExcelApp.Workbooks.Add !!}
WorkBooks := ExcelApp.WorkBooks as WorkBooksDisp;
WorkBooks.Add(EmptyParam);
{
The following should also work as
For I:=1 to 5 do
For J:=1 to 5 do
ExcelApp.ActiveSheet.Cells[i,j] := i+j;
}
ActiveSheet:=ExcelApp.ActiveSheet as WorksheetDisp;
For I:=1 to 5 do
for j:=1 to 5 do
begin
Cells:=ActiveSheet.Cells[I,J];
Cells.Value:=I+J;
end;
// Free everything.
Cells:=Nil;
ActiveSheet:=Nil;
WorkBooks:=Nil;
excelApp:=Nil;
end.
|
