Delphi 如何保存数据到Excel中
大家好！
假如我有一个Excel文件，格式如下，比较简单：

数量
200

我想做一个GUI，有一个Edit，再有一个“导入”的button，可以通过点击“导入”button，弹出一个opendlg，读取该Excel文件，将数据存入到该Edit中，程序已经掌握，如下所示：

Delphi(Pascal) code

var  filename : string;  exlApp : Variant;beginif OpenDialog1.Execute thenbeginfilename := OpenDialog1.FileName;exlApp := CreateOleObject('Excel.Application');exlApp.visible := False;exlApp.workbooks.open(filename);Edit1.Text := FloatToStr(Double(exlApp.workbooks[1].sheets[1].cells[2,1]));exlApp.activeworkbook.saved:=True;exlApp.activeworkbook.close;exlApp.quit;exlApp:=Unassigned;end;end;

现在我希望添加一个“保存”button，实现将Edit中的内容，保存到另外一个Excel中，点击该button会弹出一个savedlg，
设置好路径后，会出现和上面一样格式数据的excel文件，将Edit中新的内容保存到新的excel文件中，请问该如何实现呢？
谢谢热心的您回答我的问题！！

[解决办法]
var
exlApp:Variant;
begin
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
if SaveDialog1.Execute then
begin
exlApp := CreateOleObject('Excel.Application');
try
exlApp.visible := False;
exlApp.workbooks.add;
exlApp.cells[1,1]:=Edit1.Text;
exlApp.WorkBooks[1].Saveas(SaveDialog1.FileName);
finally
exlApp.quit;
end;
end;
end;