导出Excel类

procedure TClassForm.ClassToExcel;

var

ExcelObj, Excel, WorkBook, Sheet: OleVariant;

OldCursor:TCursor;

Row,Col: Integer;

begin

if not (adsClasses.Active and adsMaster.Active and adsTeachers.Active and adsCadres.Active) then

exit;

OldCursor:=Screen.Cursor;

Screen.Cursor:=crHourGlass;

try

ExcelObj := CreateOleObject('Excel.Sheet');

Excel := ExcelObj.Application;

Excel.Visible := True;

WorkBook := Excel.Workbooks.Add ;

Sheet:= WorkBook.Sheets[1];

except

MessageBox(GetActiveWindow,'无法调用Mircorsoft Excel! '+chr(13)+chr(10)+

'请检查是否安装了Mircorsoft Excel。','提示',MB_OK+MB_ICONINFORMATION);

Screen.Cursor:=OldCursor;

Exit;

end;

try

//班级

Row := 1;

Col := 1;

StringToExcelSheet(DataModuleStudents.GetClassName,Row,Col+1,Sheet);

//班主任

Row := Row + 1;

StringToExcelSheet('班主任:',Row,Col,Sheet);

Col := Col + 1;

StringToExcelSheet(DataModuleStudents.adsMaster.FieldByName('班主任姓名').AsString,Row,Col,Sheet);

//老师

Row := Row + 1;

Col := 1;

StringToExcelSheet('老师:',Row,Col,Sheet);

Row := Row + 1;

DataSetToExcelSheetEx(DataModuleStudents.adsTeachers,Row,Col,Sheet);

//班干部

Row := Row + DataModuleStudents.adsTeachers.RecordCount + 1;

StringToExcelSheet('班干部:',Row,Col,Sheet);

Row := Row + 1;

DataSetToExcelSheetEx(DataModuleStudents.adsCadres,Row,Col,Sheet);

//备注

Row := Row + DataModuleStudents.adsCadres.RecordCount + 1;

StringToExcelSheet('备注:',Row,Col,Sheet);

Row := Row + 1;

MemoFieldtoExcelSheet(DataModuleStudents.adsClasses.FieldByName('备注'),Row,Col,Sheet);

finally

Screen.Cursor := OldCursor;

end;

end;

查看本文来源