怎樣控制excel單元格?

Question

怎樣控制excel單元格的格式?

Answer 1

在窗口Form1上面加入组件5个Button和1个CheckBox组件，在Users中加入ComObj单元，在Private加入下面的私有变量：    
Private        
{Private declarations}       
 v :Variant;        
 Sheet:Variant;    
在单击事件中加入如下代码：
procedure TForm1.Button1Click(Sender:TObject);
begin//打开Excel新建文件 
 try     v := CreateOleObject('Excel.Application');    v.Visible:=CheckBox1.Checked;//是否显示Excel   
 v.WorkBooks.Add;//新建Excel文件 
   v.WorkBooks[1].WorkSheets[1].Name:='操作Excel';//第一页标题   
 v.WorkBooks[1].WorkSheets[2].Name:='编程乐园';  
  v.WorkBooks[1].WorkSheets[3].Name:='都来看呀';// 
   v.WorkBooks[1].WorkSheets['Delphi演示'];'等效下面的语句 
   Sheet:=v.WorkBooks[1].WorkBooks[1];  
  Sheet.Cells[1,1]:='好看';//单元格内容   
 Sheet.Cells[1,2]:='确实';   
 Sheet.Cells[1,2]:='我喜欢';  
except//错误处理   
 ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试');    v.DisplayAlerts:=false;//是否提示存盘   
 v.Quit;//退出Excel  
  exit;  
end; 
 Application.Restore; 
 Application.BringToFront;end;