导出Excel类

最新推荐文章于 2025-05-13 10:54:04 发布

Aaron25

最新推荐文章于 2025-05-13 10:54:04 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： excel integer

本文链接：https://blog.youkuaiyun.com/Aaron25/article/details/483895

这段Delphi代码实现了将班级、班主任、老师、班干部等数据导出到Excel的功能。代码中创建了Excel对象，若无法调用Excel会给出提示。接着将不同类型的数据依次写入Excel工作表的相应位置，最后恢复鼠标光标状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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);