OleContainer的使用(88分)

我用
ole1.CreateObjectFromFile('a.xls',false);
ole1.DoVerb(0);
现在我如何用象
excelapplication.connected;
...
excelworksheet1.cells[3,4]:='asdfadsf';
给ole1里的excel单元个赋值

祝贺你！我用了两天。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs, ComCtrls, ToolWin;

type
TForm1 = class(TForm)
ToolBar1: TToolBar;
StatusBar1: TStatusBar;
OleContainer1: TOleContainer;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
var
Cur_WorkBook,Cur_WorkSheet:variant;
begin
form1.OleContainer1.run;
OleContainer1.doVerb(ovShow);
Cur_WorkBook:=OleContainer1.OleObject.Application.WorkBooks.Item[1];
Cur_WorkSheet:=Cur_WorkBook.WorkSheets[1];
Cur_WorkSheet.Cells[1,1]:=1;

end;
end.

lhl好样的！

88分是你的了。顺便问一下
打印/打印设置做了没有？习习，懒

接受答案了.