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

将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.Worksheets1; /取得RzStringGrid1上的行数与列数 Strtemp := Trim(RzStringGrid1.Cells1,1); For i:=1 to RzStringGrid1.RowCount -1 do if Trim(RzStringGrid1.Cells1,i)=then RowCount := i-1 ; For i:=1 to RzStringGrid1.ColCount -1 do if Trim(RzStringGrid1.Cellsi,1)=then ColCount := i-1 ; /开始从stringgrid1中取数，放到EXCEL中，取完数后关闭EXCEL Screen.Cursor := crHourGlass; for i:=1 to RowCount do / 行 + 1 for j:=1 to ColCount do /列 + 1 begin msExcelWorkSheet.Cells.Itemi,j := Rzstringgrid1.Cellsj,i; /Application.ProcessMessages ; end; Screen.Cursor :=crdefault; Finally msExcelWorkbook.save; msExcel.Workbooks.close; ms