delphi将当前dbgrid中数据导出到excel中
请问能不能将dbgrid中的内容导出来，并且插入到已有表的固定位置？比如说，将内容插到先有一excel的从A7 开始往下的位置。A7 往上是我在excel 中做的一些东西，不能从dbgrid 中取出来，并且不成行成列的数据。
[解决办法]
procedure DataSetToExcel(MydataSet:tdataset);var FileHandle : Integer; tt:string; x,y:integer; SaveDialog1:TSaveDialog; xlapp, xlsheet: variant; begin try xlapp := createoleobject('excel.application'); except showmessage('您的系统没有安装MS EXCEL!'); exit; end; if MydataSet.Active=false then exit; if MydataSet.RecordCount<1 then exit ; SaveDialog1:=TSaveDialog.Create(MydataSet.Owner); SaveDialog1.FileName:=''; SaveDialog1.Filter:='Excel files (*.xls) | *.xls'; SaveDialog1.DefaultExt:='xls'; SaveDialog1.Execute; tt:=SaveDialog1.FileName; if tt='' then exit; if Fileexists(tt) then begin if MessageDLG('文件已存在，确认覆盖？',mtWarning,[mbOK,mbCancel],0) = mrOk then begin Deletefile(tt); Screen.Cursor := crHourGlass; FileHandle := Xls_Create(tt); Xls_SetFormat(FileHandle,'yyyy-mm-dd hh:mm:ss'); with MydataSet do begin Open; DisableControls; First; for y:= 0 to FieldCount-1 do Xls_SetString(FileHandle, 0, y,Fields[y].FieldName); for x:=0 to RecordCount-1 do begin for y:=0 to FieldCount-1 do begin if FieldTypeNames[Fields[y].datatype]='WideString' then Xls_SetString(FileHandle, x+1, y,Fields[y].AsString) else if FieldTypeNames[Fields[y].datatype]='LargeInt' then Xls_SetInteger(FileHandle, x+1, y,Fields[y].Asinteger) else if FieldTypeNames[Fields[y].datatype]='Integer' then Xls_SetInteger(FileHandle, x+1, y,Fields[y].Asinteger) else if FieldTypeNames[Fields[y].datatype]='BCD' then Xls_SetDouble(FileHandle, x+1, y,Fields[y].Asfloat) else Xls_SetString(FileHandle, x+1, y,Fields[y].AsString); Application.ProcessMessages; end; next; end; first; EnableControls; end; Xls_Close (FileHandle); Screen.Cursor := crDefault; Application.MessageBox('数据导出完毕!','信息',MB_OK); end; end else begin Screen.Cursor := crHourGlass; FileHandle := Xls_Create(tt); Xls_SetFormat(FileHandle,'yyyy-mm-dd hh:mm:ss'); with MydataSet do begin Open; DisableControls; First; for y:= 0 to FieldCount-1 do Xls_SetString(FileHandle, 0, y,Fields[y].FieldName); for x:=0 to RecordCount-1 do begin for y:=0 to FieldCount-1 do begin if FieldTypeNames[Fields[y].datatype]='WideString' then Xls_SetString(FileHandle, x+1, y,Fields[y].AsString) else if FieldTypeNames[Fields[y].datatype]='LargeInt' then Xls_SetInteger(FileHandle, x+1, y,Fields[y].Asinteger) else if FieldTypeNames[Fields[y].datatype]='Integer' then Xls_SetInteger(FileHandle, x+1, y,Fields[y].Asinteger) else if FieldTypeNames[Fields[y].datatype]='BCD' then Xls_SetDouble(FileHandle, x+1, y,Fields[y].Asfloat) else Xls_SetString(FileHandle, x+1, y,Fields[y].AsString); Application.ProcessMessages; end; next; end; first; EnableControls; end; Xls_Close (FileHandle); Screen.Cursor := crDefault; Application.MessageBox('数据导出完毕!','信息',MB_OK); end; //打开刚刚导出成功的EXCEL文件，函数ShellExecute为系统函数，在ShellAPI中，需引号 ShellExecute(FileHandle, 'open', PChar(tt), nil, nil, SW_SHOW);end;去找一下Xls，MyClass类