delphi将当前dbgrid中数据导出到excel中

[windy454]

请问能不能将dbgrid中的内容导出来，并且插入到已有表的固定位置？比如说，将内容插到先有一excel的从A7 开始往下的位置。A7 往上是我在excel 中做的一些东西，不能从dbgrid 中取出来，并且不成行成列的数据。

[ghd2004]

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类

[bingyu7795]

mark