用自动控制
var
  EclApp : Variant;
Begin
  Try
    EclApp := CreateOleObject('Excel.Application');
  Except
    ShowMessage('您的计算机上没有 Microsoft Excel!');
    Exit;
  end;
  ...............
  //EclApp为一excel实例,你可以直接使用excel提供的方法
end;