C++Builder




- 2


v0.OleProcedure(Add);

v1=v0.OlePropertyGet(Item,1);

v0=v1.OlePropertyGet(Worksheets) ;

v0.OlePropertyGet(Item,1).OlePropertySet(Name, );

v0.OlePropertyGet(Item,2).OlePropertySet(Name, );

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));

}

//

XL.OlePropertySet(DisplayAlerts,false);

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

XL.OleProcedure(Quit);

}

//

, Excel ++Builder :

XL.OlePropertySet(Visible,true);

wpe13.jpg (37824 bytes)

, XL OLE-. , .