Class TExcel (unit Excels)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TExcel


Functions

procedure BatchCancel;


procedure BatchSend;


procedure BatchStart(FirstRow, FirstCol: Integer);


procedure CloseMacroFile;


procedure Connect;

1.

destructor Destroy;


procedure Disconnect;

Once more

procedure Exec (const Cmd : string);


procedure GetBooks(Books: TStrings);


function GetCell(Row, Col: Integer): string;


procedure GetRange(R: TRect; Lines: TStrings);


procedure GetSheets(const Book: string; Sheets: TStrings);


procedure OpenMacroFile(const Fn: string; Hide: Boolean);


procedure ProcessMessages;

Waiting for Excel

procedure PutDay(Row, Col: Integer; d: TDateTime);


procedure PutExt(Row, Col: Integer; e: Extended);

TExcel.

procedure PutInt(Row, Col: Integer; i: Longint);


procedure PutStr(Row, Col: Integer; const s: string);


function Request(const Item: string): string;


procedure Run (const Mn : string);


procedure Select(Row, Col: Integer);


procedure Wait;


procedure CheckConnection;


procedure CheckLimit;


procedure DoRect(Top, Left, Bottom, Right: Integer; Data: TStrings; Request: Boolean);


procedure LinkSystem;

Enable event handlers

procedure LocateExcel;


procedure OpenLink(Sender: TObject);


procedure ShutDown(Sender: TObject);


function GetReady: Boolean;


function GetSelection: string;


procedure SetConnect(const Value: Boolean);


procedure SetExeName(const Value: string);


procedure SetMax (const Value: Integer);


procedure SetMin (const Value: Integer);


Properties

property BatchMax : Integer


property BatchMin : Integer


property Decimals : Integer


property ExecLimit : Integer


property ExeName : string


property BatchOn : Boolean


property Connected : Boolean


property DDE : TDdeCLientConv


property FirstCol : Integer


property FirstRow : Integer


property LastCol : Integer


property Lines : TStrings


property Ready : Boolean


property Selection : string


Events

event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


Variables

FBatch : Boolean;


FCells : TStrings;

using TStringList

FConnected : Boolean;


FCounter : Integer;


FDDE : TDdeClientConv;


FDecimals : Integer;


FExeName : string;


FFirstCol : Integer;


FFirstRow : Integer;


FLastCol : Integer;


FLastTime : TDateTime;

using TStringList

FLimit : Integer;


FLines : TStrings;


FMacro : string;


FMacroPath : string;


FMax : Integer;


FMin : Integer;


FOnClose : TNotifyEvent;


FOnOpen : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

TExcel


Functions


procedure BatchCancel;


procedure BatchSend;


procedure BatchStart(FirstRow, FirstCol: Integer);


procedure CloseMacroFile;


procedure Connect;

1.728 sec


destructor Destroy;


procedure Disconnect;

Once more


procedure Exec (const Cmd : string);


procedure GetBooks(Books: TStrings);


function GetCell(Row, Col: Integer): string;


procedure GetRange(R: TRect; Lines: TStrings);


procedure GetSheets(const Book: string; Sheets: TStrings);


procedure OpenMacroFile(const Fn: string; Hide: Boolean);


procedure ProcessMessages;

Waiting for Excel


procedure PutDay(Row, Col: Integer; d: TDateTime);


procedure PutExt(Row, Col: Integer; e: Extended);

TExcel.PutStr


procedure PutInt(Row, Col: Integer; i: Longint);


procedure PutStr(Row, Col: Integer; const s: string);


function Request(const Item: string): string;


procedure Run (const Mn : string);


procedure Select(Row, Col: Integer);


procedure Wait;


procedure CheckConnection;


procedure CheckLimit;


procedure DoRect(Top, Left, Bottom, Right: Integer; Data: TStrings; Request: Boolean);


procedure LinkSystem;

Enable event handlers


procedure LocateExcel;


procedure OpenLink(Sender: TObject);


procedure ShutDown(Sender: TObject);


function GetReady: Boolean;


function GetSelection: string;


procedure SetConnect(const Value: Boolean);


procedure SetExeName(const Value: string);


procedure SetMax (const Value: Integer);


procedure SetMin (const Value: Integer);


Properties


property BatchMax : Integer


property BatchMin : Integer


property Decimals : Integer


property ExecLimit : Integer


property ExeName : string


property BatchOn : Boolean


property Connected : Boolean


property DDE : TDdeCLientConv


property FirstCol : Integer


property FirstRow : Integer


property LastCol : Integer


property Lines : TStrings


property Ready : Boolean


property Selection : string


Events


event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


Variables


FBatch : Boolean;


FCells : TStrings;

using TStringList


FConnected : Boolean;


FCounter : Integer;


FDDE : TDdeClientConv;


FDecimals : Integer;


FExeName : string;


FFirstCol : Integer;


FFirstRow : Integer;


FLastCol : Integer;


FLastTime : TDateTime;

using TStringList


FLimit : Integer;


FLines : TStrings;


FMacro : string;


FMacroPath : string;


FMax : Integer;


FMin : Integer;


FOnClose : TNotifyEvent;


FOnOpen : TNotifyEvent;