Классы

← →
demisen (2002-08-28 17:20) [0]

Добрый день.

Создал модуль:

unit ExcelExchange;

interface

uses ComObj;

type
TExcel = class(TObject)
public
Excel : variant;
Worksheet : variant;
procedure Connect();
procedure FillCell(col : integer; row : integer; value : string);
end;

implementation

procedure TExcel.Connect;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open("d:\Axapta\bin\template.xls" );
Excel.Visible := true;
WorkSheet := Excel.Workbooks[1].WorkSheets[1];
end;

procedure TExcel.FillCell(col : integer; row : integer; value : string);
begin
WorkSheet.Cells[col,row]:=value;
end;

end.

В другом модуле пробую делать так:

procedure TfrmRezult.ToolButton2Click(Sender: TObject);
var Ex : TExcel;
begin
Ex.Connect; <--- На этой строчке появляется Exception

Хотя так все работает:

procedure TfrmRezult.ToolButton2Click(Sender: TObject);
var Excel, Worksheet : variant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open("d:\Axapta\bin\template.xls" );
Excel.Visible := true;
WorkSheet := Excel.Workbooks[1].WorkSheets[1];

В чем дело ?

Спасибо

← →
ZrenBy © (2002-08-28 17:28) [1]

Ex := TExcel.Create

Классы Найти похожие ветки