现在有一个表格表格文档。其中使用了多个透视数据集。需要通过代码导出为excel。现在已经加入代码如下:
procedure TXRBCXCT.BitBtn3Click(Sender: TObject);
var
lname: string;
begin
//SubmitDataUpdate();
if SaveDialog1.Execute then
begin
lname:= SaveDialog1.FileName;
SHEETDOCLIB.TSHEETDOCLIB.CopySheetToExcel(DocViewXRBCXYWXX_XRBCXBGWD,lname+'.xls');
end;
end;
但是导出的结果和打印预览的不一样。如下图所示为效果图: