将RzStringGrid内的数据导出到EXCELL表中.docVIP

将RzStringGrid内的数据导出到EXCELL表中 {*************************************************** 功能描述： 将RzStringGrid内的数据导出到EXCELL表中。 ****************************************************} procedure TForm1.BtnExportClick(Sender: TObject); var i,j:integer; ColCount, RowCount :integer; //标识数与行数。 Strtemp : string; msExcel,msExcelWorkbook,msExcelWorkSheet : Variant; SFileName:string; begin if IsTesting then begin Application.MessageBox(测试正在进行中。。。。，请暂停或测试完成后导出数据。,提示,mb_ok); exit ; end; //OpenDialog2.InitialDir:=ExtractFileDir(paramstr(0)); //文件的打存放初始路径 OpenDialog2.Filter := Microsoft Excel 文件(*.xls|*.xls; // 把导出文件名自动填为导入的文件名 // 例：导入 00111A.XLS，导出XLS为： 这里将该文件名自动填入到对话框的文件名编辑框内 Strtemp := Form1.Caption ; //当已经导入了文件时，其格式为：后台测试软件V1.8.0 -- ????.xsl i := pos(-- ,Strtemp) + 2; if i 3 then begin Application.MessageBox(还没有导入原始数据，未得到测试数据，无数据可导出。,提示,mb_ok); exit; end else begin; delete(Strtemp,1,i); OpenDialog2.FileName := OpenDialog2.InitialDir + Trim(Strtemp); end; if OpenDialog2.Execute then begin SFileName := OpenDialog2.FileName ; if SFileName = then Exit; while IsFileInUse(SFileName) do begin if Application.MessageBox(目标文件使用中，请退出目标文件后点击确定继续！, 注意, MB_OKCANCEL + MB_ICONWARNING) = IDOK then begin //无指令强制选择文件 end else begin Exit; end; end; //end while Try //创建Excel对象 msExcel := CreateOleObject(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]; //取得RzStringGrid1上的行数与列数 Strtemp := Trim(RzStringGrid1.Cells[1,1]); For i:=1 to RzStringGrid1.RowCount -1 do if