delphiµ÷ÓÃExcel²éÕÒ¶¨Î»

var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.open(ExcelFile);
DesRange:=ExcelApp.WorkSheets[1].Cells.Find('ÐÕÃû');
DesRange:=DesRange.offset[1]; //ÔÚ²éÕÒµ½µÄµ¥Ôª¸ñÏòÏÂÆ«ÒÆ1
Row:=DesRange.Row; //¿ªÊ¼µÄÐкÅ
Column:=DesRange.Column; //ÁкÅ
i:=1;
while i<10 do
begin
ExcelApp.WorkSheets[1].Cells[Row,Column]:='love my wife';//дÈëÊý¾Ý
I:=I+1;
Row:=Row+1;
end;
ExcelApp.Visible:=True;
finally
End;
end;