unidbgrid导出Excel到多个sheet

xls := TXlsFile.Create(true);
xls.NewFile;
xls.ActiveSheet := 1;
xls.SheetName := '未自评人员清单';

xls.ActiveSheet := 2;
xls.SheetName := '未互评人员清单';

xls.ActiveSheet := 3;
xls.SheetName := '考评得分表';