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;