dbgrid导入excel的代码出了问题，请帮我看看(50分)

procedure Tfselectresult.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action := cafree;
end;

procedure Tfselectresult.BitBtn1Click(Sender: TObject);
var xlapp : variant;
n : integer;
ARecordSet : _recordset;
ds:TDataSet;

begin
xlapp := createoleobject('excel.application');
savedialog1.Filter := 'EXCEL工作表(*.xls)|*.xls';

if savedialog1.Execute then xlapp.workbooks.add(savedialog1.FileName)
try
for n := 1 to dbgrid1.Columns.Count do
xlapp.worksheets[1].cells[1,n] := dbgrid1.Columns.Items[n-1].FieldName;
ds:=TADODataSet.Create(self);
dbgrid1.DataSource.DataSet := TCustomADODataSet(ds);
TCustomADODataSet(ds).Recordset:=ARecordSet;
xlapp.worksheets[1].cells[2,1].CopyFromRecordset(ARecordSet);
finally
xlapp.save;
xlapp.quit
end;
end;

系统提示xlapp.worksheets[1].cells[2,1].CopyFromRecordset(ARecordSet);参数不正确
有没有人用这种方法导出

没有人知道？？
果然没有人知道！！
这个问题本来就没有多少人会

http://www5.skycn.com/soft/29751.html
这项技术可较好地解决你的问题
QQ:292044357

procedure TFrm_mxPlan.BitBtn3Click(Sender: TObject);
var
Dir: string;
FileName: string;
begin
if ADODataSet.Active = False then Exit;
Dir := ExtractFilePath(Application.ExeName) +
'Export';
Modal.SaveDialog1.InitialDir := Dir;
Modal.SaveDialog1.Filter := 'xls|*.xls';
Modal.SaveDialog1.DefaultExt := 'xls';
if Modal.SaveDialog1.Execute then begin
Modal.XLS.Header.Clear;
Modal.XLS.Header.Add('进场计划表');
Modal.XLS.Header.Add('日期:' + DatetimetoStr(Now));
Modal.XLS.Dataset := ADODataSet;
Modal.XLS.FileName := Modal.SaveDialog1.FileName;
Modal.XLS.Execute;
Inform('EXCEL导出成功！');
Modal.XLS.DataSet := nil;
end;
end;

没有看懂Modal是什么
Modal.XLS又是什么