将Excel表内的数据导入到GridString控件内

将 Excel 表内的数据导入到 GridString 控件内 procedure TForm1 ButnNewClick Sender TObject var i j integer ColCount RowCount integer 标识数与行数 msExcel msExcelWorkbook msExcelWorkSheet variant Strtemp str1 str2 string IsDigital boolean begin 判定是否在测试 否则不可以导入数据 if IsTesting then begin Application MessageBox 正在测试中 不可以导入数据 提示 mb ok exit end opendialog1 InitialDir ExtractFileDir paramstr 0 文件的打存放初始路径 OpenDialog1 Filter Microsoft Excel 文件 xls xls 把导入文件名按下面的规律自动增加 注意在 A B 填入对话框的文件名编辑框 00111A XLS 00111B XLS 00112A XLS 00112B XLS 00113A XLS 00113B XLS Strtemp Form1 Caption 当已经导入了文件时 其格式为 后台测试软件 V1 8 0 xsl i pos Strtemp 2 if i 3 then begin delete Strtemp 1 i 删除 后台测试软件 V1 8 0 字样 i pos A Strtemp if i 0 then begin OpenDialog1 FileName OpenDialog1 InitialDir Trim copy Strtemp 1 i 1 B Trim copy Strtemp i 1 4 end else begin i pos B Strtemp 此处要防止非数字转换产生的问题 if i 1 then begin str1 Trim copy Strtemp 1 i 1 IsDigital True 默认 str1 是一个数字 for j 1 to length str1 do if str1 j in 0 1 2 3 4 5 6 7 8 9 then continue else begin IsDigital False break end end if end for if IsDigital then begin str1 inttostr strtoint str1 1 str2 Trim copy Strtemp i 1 4 strtemp for j 1 to i 1 do Strtemp strtemp 0 str1 Formatfloat strtemp strtoint str1 OpenDialog1 FileName OpenDialog1 InitialDir str1 A str2 end end if end end end 创建 Excel 对象 msExcel CreateOleObject Excel Application msExcel displayAlerts false 禁止运行宏时显示警告和提示信息 msExcel ScreenUpdating false 屏幕更新 提高速度 try try if OpenDialog1 Execute then begin msExcelWorkbook msExcel Workbooks Open OpenDialog1 FileName null null null null null null null null null null null null null 0 msExcelWorkSheet msExcelWorkbook Worksheets 1 Form1 Caption 后台测试软件 V2 0 0 ExtractFileName OpenDialog1 FileName 取得 EXCELL 表中有多少行 i 1 while trim msExcelWorkSheet cells item i 1 do i i 1 RowCount i 1 预先设定行数 取得 EXCELL 表中的列数 i 1 while trim msExcelWorkSheet cells item 1 i do i i 1 ColCount i 1 预先设定列数 Rzstringgrid1 ColCount ColCount 2 Rzstringgrid1 RowCount RowCount 2 将内容先清除 For i 0 to ColCount 1 do For j 0 to RowCount 1 do Rzstringgrid1 Cells i j 给 StrinGrid 的表头加上列的标识 1 2 3 For i 2 to ColCount 1 do Rzstringgrid1 Cells i 0 第 inttostr i 1 列 Rzstringgrid1 Cells 列 行 初始为 0 列 0 行 ExcelWorksheet1 Cells Item 行 列 初始为 1 行 1 列 给 StringGrid 的右表头加上行标识 For i 2 to Rowcount 1 do Rzstringgrid1 Cells 0 i 第 inttostr i 1 行 Rzstringgrid1 Cells 1 0 测试频率 Rzstringgrid1 Cells 0 1 测试电平 Rzstringgrid1 Cells 0 0 A B T 标识 Screen Cursor crHourGlass for i 1 to RowCount do 行 for j 1 to ColCount do 列 begin if trim msExcelWorkSheet cells item i 1 then begin Rzstringgrid1 Cells j i msExcelWorkSheet Cells Item i j Application ProcessMessages end else begin Screen Cursor crdefault exit end end Screen Cursor crdefault Application MessageBox 恭喜您 按照您的指示要求 数据成功导入 提示 mb ok end else begin Application MessageBox 没有选择要导入的文件 数据未导入成功 提示 mb ok exit end except on E Exception do MessageBox handl