#include <stdio.h>
#include <comobj.hpp>
//------------------------------------
/*
*************************************************************************
* EXCEL WRITE VALUE FUNCTION *
* http://demenev.ucoz.ru/forum/ *
* Demenev Alexandr *
* (>_(>_(>_(0_0)_<)_<)_<) *
*************************************************************************
* Edit1->Text=ExclelRead(FILENAME,LIST,BOOK,VISIBLE,STROKA,STOLB,TEXT); *
* ***********************************************************************
*/
void ExcelWrite(String ExcelFile,int ExcelList,int ExcelBook,int ExcelVisible,int ExcelStroka,int ExcelStolb,String ExecText)
{ //_______________________________
static char cellText[256] ;
cellText[0] = 'A' + ExcelStolb ;
sprintf(&cellText[1],"%d",ExcelStroka+1);
//_______________________________
Variant app;
Variant books ;
Variant book;
Variant sheet ;
app = CreateOleObject("Excel.Application");
books = app.OlePropertyGet("Workbooks");
books.Exec(Procedure("Open")<<ExcelFile);
book = books.OlePropertyGet("item",ExcelBook);
sheet= book.OlePropertyGet("WorkSheets",ExcelList);
sheet.OleProcedure("Activate");
app.OlePropertySet("Visible", ExcelVisible); //0 - Visible false, 1-Visible true
Variant r = sheet.OlePropertyGet("Range", cellText );
//r.OlePropertySet("Value",StrToInt(Form1->Edit1->Text)); //WRITE INTEGER
r.OlePropertySet("Value",(ExecText).c_str()); //WRITE STRING
book.OleProcedure("Save");
app.OleFunction("Quit");
app= Unassigned;
}
//***************************************************************************
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ExcelWrite("C:\\1.xls",1,1,1,1,1,Edit1->Text); //WRITE Edit1->Text
}
