EXCEL的使用(100分)

Worksheet顯示不出來,我不知如何新建一個sheet
try
begin

ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Workbooks.Add(emptyparam,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]as _workbook);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Worksheets[1]as _worksheet) ;
ExcelWorkSheet1.Cells.Item[7,1]:='happy';
end
except
showmessage('請檢查是否安裝Excel!');
end;


請盡快告知﹐我現在很急

看看这段代码
var
v:Variant;
begin

v:=CreateOleobject(‘Excel.Application’);
v.Visible:=true;
end;


var
Sheet: Variant;
begin

v.workbook.add;
v.Workbooks.Add(xlWBatWorkSheet);
v.Workbooks[1].WorkSheets[1].Name := '数据录入';

Sheet:= v.Workbooks[1].WorkSheets['数据录入'];
Sheet.Cells[1,1] :='试验';
Label1.Caption:=Sheet.Cells[1,1];
end;

小弟愚昧﹐用delphi的控件怎么做呢?

請大家試試上面的那段代碼好嗎,告訴我為什么會這樣?

重啟電腦﹐sheet出來了
我現在又不知道如何設字形﹐字體以及為報表加標題了﹐誰能告訴我?
100分等著您

接受答案了.