public
Fxls , docs bject;
FApp,FDocs ispatchHelper;
{public declarations}
end;
implementation
procedure TMainForm.Button1Click(Sender: TObject);
var
lFileName: String;
begin
if OpenDialog1.Execute then
begin
lFileName := OpenDialog1.FileName;
fxls := ComObj.CreateOleObject('excel.Application');
FApp := DispatchHelper.Create(fxls);
FApp.PropertyPut('Visible', [True]);
docs := FApp.PropertyGet('Workbooks', []);
FDocs := DispatchHelper.Create(docs);
FDocs.InvokeMethod('Open', [lFileName]);
end;
end;
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
fapp.InvokeMethod('save', []);
fapp.InvokeMethod('quit', []);
end;
procedure TMainForm.Button2Click(Sender: TObject);
var
lcells: DispatchHelper;
begin
lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [5,5]));
lcells.PropertyPut('value',[edit1.text]);
end; |