Форум на Исходниках.RU

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <Dialogs.hpp>

#include <OleCtnrs.hpp>

#include <utilcls.h>

#include "GetExcel.h"

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_LaunchExcelClick(TObject *Sender)

{

try

{

my_excel = Variant::GetActiveObject("excel.application");

}

catch (...)

{

try

{

my_excel = Variant::CreateObject("excel.application");

}

catch (...)

{

ShowMessage("GetExcel failed.");

return;

}

my_excel.OlePropertySet("Visible",(Variant)true);

}

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_WorkbookClick(TObject *Sender)

{

Variant my_workbook;

Variant my_worksheet;

Variant my_range;

PropertyGet Range("Range");

PropertySet SetValue("Value");

PropertySet SetFormula("Formula");

PropertyGet GetValue("Value");

PropertyGet GetFormula("Formula");

my_workbook = my_excel.OlePropertyGet("ActiveWorkbook");

my_worksheet = my_workbook.OlePropertyGet("ActiveSheet");

Range.ClearArgs();

SetValue.ClearArgs();

my_range = my_worksheet.Exec(Range << "A1");

my_range.Exec(SetValue << "My Excel Worksheet");

Range.ClearArgs();

my_range = my_worksheet.Exec(Range << "B1:B5");

my_range.Exec(SetFormula << "=rand()");

Range.ClearArgs();

SetFormula.ClearArgs();

my_range = my_worksheet.Exec(Range << "A2");

my_range.Exec(SetFormula << "=sum(b1:b5)");

ShowMessage(my_range.OlePropertyGet("Value"));

ShowMessage(my_range.OlePropertyGet("Formula"));

}

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_NewWorkbookClick(TObject *Sender)

{

Variant all_workbooks;

Variant my_workbook;

//-- Get workbooks collection

all_workbooks = my_excel.OlePropertyGet("Workbooks");

//-- Set number of worksheets to 1

my_excel.OlePropertySet("SheetsInNewWorkbook",(Variant)1);

//-- Create a new workbook

my_workbook = all_workbooks.OleFunction("Add");

}

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_SaveClick(TObject *Sender)

{

Variant my_workbook = my_excel.OlePropertyGet("ActiveWorkbook");

my_workbook.OleProcedure("Save");

}

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_SaveAsClick(TObject *Sender)

{

Procedure SaveAs("SaveAs");

Variant my_workbook = my_excel.OlePropertyGet("ActiveWorkbook");

my_workbook.Exec(SaveAs << "c:my_file.xls");

}

//---------------------------------------------------------------------------

void __fastcall TForm_GetExcel::Button_OpenClick(TObject *Sender)

{

Variant all_workbooks = my_excel.OlePropertyGet("workbooks");

Procedure Open("Open");

if (OpenDialog1->Execute())

{

all_workbooks.Exec(Open << OpenDialog1->FileName);

}