uses 中添加 cxGridExportLink
var
SFD:TSaveDialog;
FileName,FileExt:String;
begin
SFD:=TSaveDialog.Create(nil);
SFD.Filter:='Excel文件 (*.xls)|*.xls';
SFD.Title:='导出为';
SFD.DefaultExt:='.XLS';
SFD.Options:=[ofOverwritePrompt, ofEnableSizing];
if not SFD.Execute then exit;
//filename
FileName:=SFD.FileName;
FileExt:=UpperCase(ExtractFileExt(FileName));
if FileExt='.XLS' then
begin
ExportGridToExcel(FileName, cxGrid1, True, True);
end
else
begin
Application.MessageBox('不支持的导出格式', 'xx');
Exit;
end;
SFD.Free
本文转自鹅倌51CTO博客,原文链接:http://blog.51cto.com/kaixinbuliao/1179003 ,如需转载请自行联系原作者