xls := TXlsFile.Create(true); xls.NewFile; xls.ActiveSheet := 1; xls.SheetName := '未自评人员清单'; xls.ActiveSheet := 2; xls.SheetName := '未互评人员清单'; xls.ActiveSheet := 3; xls.SheetName := '考评得分表';