151
vVarBook.OlePropertyGet("ActiveSheet");
vVarSheets.OlePropertyGet("Item",2).
OlePropertySet("Name","Отчет по материалам");
vVarSheet.OleProcedure("Activate");
vVarBook.OlePropertyGet("ActiveSheet");
vVarSheet=vVarSheets.OlePropertyGet("Item",1);
vVarSheet.OleProcedure("Activate");
for (int i=2; i < 11; i++)
{
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",2,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tName);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",3,tMatlico);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tPrih);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",4,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tRash);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",5,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value","Остаток");
//добавить формулы подсчета суммы в строки
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",5,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value","=СУММ(A2:E2)");
vVarCell=vVarSheet.OlePropertyGet("Cells").
vVarCell.OlePropertySet("Value", "Наименование");
vVarCell=vVarSheet.OlePropertyGet("Value ","А1");
152
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Номер:");
vVarCell=vVarSheet.OlePropertyGet("Value ","B1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Приход");
vVarCell=vVarSheet.OlePropertyGet("Value ","А1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Расход");
vVarCell=vVarSheet.OlePropertyGet("Value ","B1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarSheet=vVarSheets.OlePropertyGet("Item",2);
vVarSheet.OleProcedure("Activate");
for (int i=2; i < 11; i++)
{
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",1,2);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tDate);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",2,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", tMatlico);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",3, tName);
vBorder(vVarCell,2,1,55);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",1,2);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tNum);
vVarCell.OlePropertySet("Value",tPrih);
vVarCell=vVarSheet.OlePropertyGet("Cells").
153
OlePropertyGet("Item",4,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value",tRash);
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",5,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value","Итого");
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",6,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value","=СУММ(E2:E3)");
vVarCell=vVarSheet.OlePropertyGet("Cells").
vVarCell=vVarSheet.OlePropertyGet("Cells").
OlePropertyGet("Item",5,i);
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value","=СУММ(F2:F3)");
vVarCell=vVarSheet.OlePropertyGet("Cells").
vVarCell.OlePropertySet("Value", "Дата");
vVarCell=vVarSheet.OlePropertyGet("Value ","А1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", " От кого получено, кому
отпущено");
vVarCell=vVarSheet.OlePropertyGet("Value ","B1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Наименование");
vVarCell=vVarSheet.OlePropertyGet("Value ","С1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", " Номер");
vVarCell=vVarSheet.OlePropertyGet("Value ","D1");
vVarCell.OleProcedure("Merge");
154
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Приход");
vVarCell=vVarSheet.OlePropertyGet("Value ","E1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vVarCell.OlePropertySet("Value", "Расход");
vVarCell=vVarSheet.OlePropertyGet("Value ","F1");
vVarCell.OleProcedure("Merge");
vBorder(vVarCell,2,1,55);
vAsCurDir1=vAsCurDir+"\\Отчет.xls";
vVarApp.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).
OleProcedure("SaveAs",vAsCurDir1.c_str());
//Закрыть открытое приложение Excel
//vVarApp.OleProcedure("Quit");
}
Unit11.h
#ifndef Unit11H
#define Unit11H
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
class TForm1 : public TForm
{
__published:
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
private:
Variant vVarApp,vVarBooks,vVarBook,vVarSheets,
vVarSheet,vVarCells,vVarCell;
AnsiString vAsCurDir;
bool fStart;
void __fastcall vBorder(Variant& vVarCell,int Weight,
int LineStyle,int ColorIndex);
155
void __fastcall vFont(Variant& vVarCell,int HAlignment,
int VAlignment,int Size,
int ColorIndex,int Name,
TColor Color,int Style,
int Strikline,int Underline);
public:
__fastcall TForm1(TComponent* Owner);
};
extern PACKAGE TForm1 *Form1;
#endif