对Excel操作(VBA)

经常用到，但有时会忘记，把大体用法写在blog中，方便查看。里面有每个功能的注解

uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp,workbook,sheet:OleVariant;
begin
  {創建ExcelApplication}
  ExcelApp:=CreateOleObject(‘Excel.Application‘);
  {新增一工作薄}
  workbook := ExcelApp.WorkBooks.Add;
  {獲取當前的Sheet,工作薄會自動創建一個sheet}
  sheet:=workbook.sheets[1];
  {新增一Sheet並命名}
  sheet:=workbook.sheets.add;
  sheet.Name:=‘xx‘;
  {Excel是否可見}
  ExcelApp.visible:=true;

  //range[‘單元格1:單元格n‘]或range[‘單元格1‘,‘單元格n‘],從單元格1到單元格n的區域
  sheet.range[‘A1:C6‘].merge;
  sheet.range[‘A1:C6‘].select;
  sheet.range[‘A1:C6‘]:=‘測試點‘;
  sheet.range[‘D7‘,‘G20‘].merge;

  sheet.range[‘A20:A20‘].value:=‘A20‘; //單個單元格
  sheet.range[‘A20:A20‘].Borders.LineStyle:=1; //線的類型
  sheet.range[‘A20:A20‘].Borders.Weight:=3;  //線的粗細
  sheet.range[‘A20:A20‘].Borders.Color:=clred;  //線的顏色
  sheet.range[‘A20:A20‘].Font.Color:=clblue;  //字體顏色
  sheet.range[‘A20:A20‘].Interior.Color:=clgreen;//單元格背景色
  //cells(行，列) ,從1開始
  sheet.cells(10,1):=‘vvvv‘;

  if FileExists(‘d:\aa.xls‘) then
    DeleteFile(‘d:\aa.xls‘);
  {保存為文件}
  workbook.saveas(‘d:\aa.xls‘);
  workbook.close(true);//參數表示是否關閉已改動的工作薄

  {退出Excel程序}
  ExcelApp.application.quit;
  ExcelApp:=Unassigned;
end;