SaveDialog1.FileName:='自制单物料信息.xls';
SaveDialog1.Filter:='Excel 97-2003 工作簿(*.xls)|*.xls|Excel 2007 工作薄(*.xlsx)|*.xlsx';
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName<>'' then
begin
sFileName:=SaveDialog1.FileName;
//表格导出
Sheetdoclib.TSheetdoclib.CopySheettoExcel(DocViewZZDCXYWXX_ZZDXXXX,sFileName+'.xls');
end;
end;