C++Builder - 6


, . - :

  • Excel - ;
  • 10 ;
  • ;
  • , ;
  • .

, Excel , :

//#include <vcl.h>

#pragma hdrstop

#include <ComObj.hpp>

#include xlauto2.h

//#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

Variant XL,v0,v1,v2;

//Function Item(Item);

//__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//void __fastcall TForm1::Button1Click(TObject *Sender)

{

XL=CreateOleObject(Excel.Application.8);

XL.OlePropertySet(Visible,true);

v0=XL.OlePropertyGet(Workbooks);

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