资源描述：
《将rzstringgrid内的数据导出到excell表中》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、将RzStringGrid内的数据导出到EXCELL表中{***************************************************功能描述：将RzStringGrid内的数据导出到EXCELL表中。****************************************************}procedureTForm1.BtnExportClick(Sender:TObject);vari,j:integer;ColCount,RowCount:integer;//标识数与行数。Strtemp:string;msExcel,msExcelWo
2、rkbook,msExcelWorkSheet:Variant;SFileName:string;beginifIsTestingthenbeginApplication.MessageBox('测试正在进行中。。。。，请暂停或测试完成后导出数据。','提示',mb_ok);exit;end;//OpenDialog2.InitialDir:=ExtractFileDir(paramstr(0));//文件的打存放初始路径OpenDialog2.Filter:='MicrosoftExcel文件(*.xls
3、*.xls';//把导出文件名自动填为导入的文件名//例：导入00111A.X
4、LS，导出XLS为：这里将该文件名自动填入到对话框的文件名编辑框内Strtemp:=Form1.Caption;//当已经导入了文件时，其格式为："后台测试软件V1.8.0--????.xsl"i:=pos('--',Strtemp)+2;ifi<3thenbeginApplication.MessageBox('还没有导入原始数据，未得到测试数据，无数据可导出。','提示',mb_ok);exit;endelsebegin;delete(Strtemp,1,i);OpenDialog2.FileName:=OpenDialog2.InitialDir+Trim(Strtemp);en
5、d;ifOpenDialog2.ExecutethenbeginSFileName:=OpenDialog2.FileName;ifSFileName=''thenExit;whileIsFileInUse(SFileName)dobeginifApplication.MessageBox('目标文件使用中，请退出目标文件后点击确定继续！','注意',MB_OKCANCEL+MB_ICONWARNING)=IDOKthenbegin//无指令强制选择文件endelsebeginExit;end;end;//endwhileTry//创建Excel对象msExcel:=CreateOle
6、Object('Excel.Application');msExcel.displayAlerts:=false;//禁止运行宏时显示警告和提示信息msExcel.ScreenUpdating:=false;//屏幕更新，提高速度msExcelWorkbook:=msExcel.Workbooks.Open(SFileName,null,null,null,null,null,null,null,null,null,null,null,null,null,0);msExcelWorkSheet:=msExcelWorkbook.Worksheets[1];//取得RzStringGri
7、d1上的行数与列数Strtemp:=Trim(RzStringGrid1.Cells[1,1]);Fori:=1toRzStringGrid1.RowCount-1doifTrim(RzStringGrid1.Cells[1,i])=''thenRowCount:=i-1;Fori:=1toRzStringGrid1.ColCount-1doifTrim(RzStringGrid1.Cells[i,1])=''thenColCount:=i-1;//开始从stringgrid1中取数，放到EXCEL中，取完数后关闭EXCELScreen.Cursor:=crHourGlass;fori
8、:=1toRowCountdo//行+1forj:=1toColCountdo//列+1beginmsExcelWorkSheet.Cells.Item[i,j]:=Rzstringgrid1.Cells[j,i];//Application.ProcessMessages;end;Screen.Cursor:=crdefault;FinallymsExcelWorkbook.save;msExcel.Workbooks.close;msExc
