delphi怎么添加EXCEL表

答案:2 悬赏:70 手机版

解决时间 2021-05-03 04:23

提问者网友：雪舞兮
2021-05-02 12:54

delphi怎么添加EXCEL表

最佳答案

五星知识达人网友：不想翻身的咸鱼
2021-05-02 13:23

//将Excel中的数据导入StringGrid中 Function ExcelToStringGrid(var StrGrid:TStringGrid;ExcelFileName:string):String; Function IsInIt(EmployeeNum:string):boolean; var i:integer; ret:boolean; begin ret:=False; for i:=0 to StrGrid.RowCount-1 do begin if EmployeeNum=trim(StrGrid.Cells[0,i]) then begin ret:=True; break; end; end; result:=ret; end; var ExcelApplication: TExcelApplication; ExcelWorkbook: TExcelWorkbook; ExcelWorksheet: TExcelWorksheet; count,NowRow,i:integer; ret:String; begin ret:='导入成功'; try screen.Cursor :=crSQLWait; if Not FileExists(ExcelFileName) then begin //文件不存在 ret:='文件不存在'; exit; end; //测试EXCEL是否安装 Try ExcelApplication:=nil; ExcelWorkbook:=nil; ExcelWorksheet:=nil;

全部回答

1楼网友：雾月
2021-05-02 13:35

addition 里面有个stringgrid可以插入表格的！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息