C++Builder - 9


for (int j=1;j<3;j++)

{

v1=v0.OlePropertyGet(Item,j);

for (int i=1;i<11;i++)

{

v1.OlePropertyGet(Cells).OlePropertyGet(Item,i,1).OlePropertySet(Value,i);

v1.OlePropertyGet(Cells).OlePropertyGet(Item,i,2).OlePropertySet(Value,i*5);

v2=v1.OlePropertyGet(Cells).OlePropertyGet(Item,i,2);

v2.OlePropertyGet(Font).OlePropertySet(Color,clBlue);

v2.OlePropertyGet(Font).OlePropertySet(Bold,true);

v2.OlePropertyGet(Interior).OlePropertySet(ColorIndex,9-3*j);

}

v1.OlePropertyGet(Cells).OlePropertyGet(Item,11,1).OlePropertySet(Value,=SUM(A1:A10));

v1.OlePropertyGet(Cells).OlePropertyGet(Item,11,2).OlePropertySet(Value,=SUM(B1:B10));

}

vrange=v0.OlePropertyGet(Item,1).OlePropertyGet(Range,A1:A10");

v1=v22.OlePropertyGet(Item,1);

v2=v1.OlePropertyGet(SeriesCollection);

v2.OleProcedure(Add,vrange);

vrange=v0.OlePropertyGet(Item,1).OlePropertyGet(Range,B1:B10");

v2.OleProcedure(Add,vrange);

v1.OleProcedure(Select);

XL.OlePropertyGet(Selection).OleProcedure(Copy);

WD=CreateOleObject(Word.Application.8);

WD.OlePropertySet(Visible,true);

WD.OlePropertyGet(Documents).OleProcedure(Add);

a=WD.OlePropertyGet(Documents);

b=a.OleFunction(Item,1);

for (int i=1;i<5;i++)

{b.OlePropertyGet(Paragraphs).OleProcedure(Add);};

c=b.OleFunction(Range,1,2);

c.OleProcedure(Paste);

c=b.OleFunction(Range,3,3);

c.OlePropertySet(Text,, Excel );

XL.OlePropertySet(DisplayAlerts,false);

XL.OlePropertyGet(Workbooks).OlePropertyGet(Item,1).OleProcedure(SaveAs,test.xls);

XL.OleProcedure(Quit);

WD.OlePropertySet(DisplayAlerts,false); b.OleProcedure(SaveAs,test2.DOC);

WD.OleProcedure(Quit);

}

//

.

wpe16.jpg (40758 bytes)

Excel Word

, , , , , . , , , , - Word Excel.

OLE- C++Builder.

:

.

.: (095) 932-92-12, 932-92-13,

elmanova@citmgu.ru, http://www.citmgu.ru,

http://www.citforum.ru