如何用delphi控制excel单元格合并

Question

unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Excel2000, OleServer, StdCtrls, ComCtrls,TLHelp32, DB, ADODB,math,
  ExcelXP;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    OpenDialog1: TOpenDialog;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
       procedure teminate_excel;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var  Template:OleVariant;
  ExcelApplication: TExcelApplication;
  Sheet, Range: Variant;
  cou90,cou91,cou92,cou93,cou94:integer;
  c:string;
begin
  self.ExcelWorksheet1.Cells.Item[5,1].BorderAround(xlcontinuous,xlthin,xlautomatic,clblack);
  self.ExcelWorksheet1.Cells.Item[5,1]:='总计';  self.ExcelWorksheet1.Cells.Item[6,1].BorderAround(xlcontinuous,xlthin,xlautomatic,clblack);
  self.ExcelWorksheet1.Cells.Item[6,1]:='一、按登记注册类型分组';
  self.ExcelWorksheet1.SaveAs('f:\表1.xls');
  self.ExcelWorksheet1.Disconnect;
  self.ExcelWorkbook1.Disconnect;
  self.ExcelApplication1.Disconnect;
  self.teminate_excel;
end;以上就是我的程序的一部分，现在我想让excel里的a1单元格与a2,a3单元格合并，并在合并的单元格内写“注册类型”，这样应该怎么做？请大家们指点，最好是在我的程序里面帮我改一下，谢谢

Answer 1

ExcelWorksheet1.Range[ExcelWorksheet1.Cells[1,1],ExcelWorksheet1.Cells[3,1]].Merge;   

Answer 2

合并单元格
  self.ExcelWorksheet1.Range['E1','E3'].MergeCells:=true;

Answer 3

合并后的单元格赋值
  self.ExcelWorksheet1.Cells.Item[1,5]:='123';

Answer 4

  ExcelWorksheet1.Range['A1','A3'].MergeCells := True;//合并
  ExcelWorksheet1.Cells.Item[1,1].Value := 'dddd';//赋值

Answer 5

为什么会提示“interface not supported.”这个错误啊？

Answer 6

引用excel2000 应该没问题，我都测试过了