请问怎样在EXCEL中的某个SHEET第一行插入一行新数据?

[natineprince]

例如在SHEET1第一行每一格分别插入
A;B;C;...;Z;
最好可以用ADO实现

[erhan]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Excel2000, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Excelid: Variant;
i: Byte;
begin
Excelid := Null;
try
Excelid:=CreateOleObject( 'Excel.Application' );
except
on Exception do raise exception.Create('无法创建Xls文件，请确认是否安装EXCEL');
end;

Excelid.Visible := True;
Excelid.WorkBooks.Add;
for i:=Ord('A') to Ord('Z') do
Excelid.WorkSheets[1].Cells[1,i-Ord('A')+1].Value := Chr(i);
for i:=Ord('a') to Ord('z') do
Excelid.WorkSheets[2].Cells[1,i-Ord('a')+1].Value := Chr(i);
end;

end.

value的值可以通过ado从数据库中取得后赋予。

[erhan]

2个循环，第一个向sheet1中加入A到Z，第二个向sheet2中加入a到z