0

这不是一个大问题，但我想知道我是否做错了什么。

我在 delphi 表单上有一个 cxgrid，只需单击一个按钮，我就可以将其导出到 Excel。

代码：

TfrmMain.ExcelButtonClick(Sender: TObject);
begin
  with SaveDialog do
  begin
    Filter := '*.xls';
    if Execute
      then ExportGridToExcel(SaveDialog.FileName,Grid,TRUE,TRUE,TRUE,'xls');
  end;
end;

出现保存对话框时，另存为类型为空白且未显示文件扩展名。

还有什么我需要做的吗？

任何帮助将非常感激。

谢谢，

4

1 回答 1

0 
SaveDialog.Filter := 'Excel Files (*.xls)|*.xls'
于 2015-08-12T12:54:04.237 回答