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

[shnide]

unit Unit1;

interface

uses
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单元格合并，并在合并的单元格内写“注册类型”，这样应该怎么做？请大家们指点，最好是在我的程序里面帮我改一下，谢谢

[shnide]

急～～在线等，谢谢各位

[bdmh]

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

[shnide]

楼上的，你的代码我加进去有错误，请你在我的代码下更改，另外合并后的单元格怎么向里写内容。谢谢

[lovelymelon]

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

[lovelymelon]

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

[bdmh]

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

[lovelymelon]

合并后的单元格的行和列的判断方法就是，合并前单元格中最小行号和最小列号

[shnide]

[Quote=引用 4 楼 lovelymelon 的回复:]
合并单元格
self.ExcelWorksheet1.Range['E1','E3'].MergeCells:=true;
[/Quote]
为什么会提示“interface not supported.”这个错误啊？

[shnide]

请大家回答下，谢谢～～

[lovelymelon]

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