资源描述：
《将Excel表内的数据导入到GridString控件内》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、将Excel表内的数据导入到GridString控件内procedureTForm1.ButnNewClick(Sender:TObject);vari,j:integer;ColCount,RowCount:integer;//标识数与行数。msExcel,msExcelWorkbook,msExcelWorkSheet:variant;Strtemp,str1,str2:string;IsDigital:boolean;begin//判定是否在测试，否则不可以导入数据。ifIsTestingthenbeginApplication
2、.MessageBox('正在测试中。。。。，不可以导入数据。','提示',mb_ok);exit;end;//opendialog1.InitialDir:=ExtractFileDir(paramstr(0));//文件的打存放初始路径OpenDialog1.Filter:='MicrosoftExcel文件（*.xls）
3、*.xls';//把导入文件名按下面的规律自动增加,注意在A，B，填入对话框的文件名编辑框。//00111A.XLS00111B.XLS00112A.XLS00112B.XLS00113A.XLS00113B.
4、XLS....Strtemp:=Form1.Caption;//当已经导入了文件时，其格式为："后台测试软件V1.8.0--????.xsl"i:=pos('--',Strtemp)+2;ifi>3thenbegindelete(Strtemp,1,i);//删除“后台测试软件V1.8.0--”字样i:=pos('A',Strtemp);ifi>0thenbeginOpenDialog1.FileName:=OpenDialog1.InitialDir+Trim(copy(Strtemp,1,i-1))+'B'+Trim(copy(S
5、trtemp,i+1,4));endelsebegini:=pos('B',Strtemp);//此处要防止非数字转换产生的问题。ifi>1thenbeginstr1:=Trim(copy(Strtemp,1,i-1));IsDigital:=True;//默认str1是一个数字forj:=1tolength(str1)doifstr1[j]in['0','1','2','3','4','5','6','7','8','9']thencontinueelsebeginIsDigital:=False;break;end;//endif
6、,endforifIsDigitalthenbeginstr1:=inttostr(strtoint(str1)+1);str2:=Trim(copy(Strtemp,i+1,4));strtemp:='';forj:=1toi-1doStrtemp:=strtemp+'0';str1:=Formatfloat(strtemp,strtoint(str1));OpenDialog1.FileName:=OpenDialog1.InitialDir+str1+'A'+str2;end;//endifend;end;end;//创建Exc
7、el对象msExcel:=CreateOleObject('Excel.Application');msExcel.displayAlerts:=false;//禁止运行宏时显示警告和提示信息msExcel.ScreenUpdating:=false;//屏幕更新，提高速度trytryifOpenDialog1.ExecutethenbeginmsExcelWorkbook:=msExcel.Workbooks.Open(OpenDialog1.FileName,null,null,null,null,null,null,null,n
8、ull,null,null,null,null,null,0);msExcelWorkSheet:=msExcelWorkbook.Worksheets[1];Form1.Caption:='后台测试软件V2.0.0--'+ExtractFileName(OpenDialog1.FileName);//取得EXCELL表中有多少行i:=1;whiletrim(msExcelWorkSheet.cells.item[i,1])<>''doi:=i+1;RowCount:=i-1;//预先设定行数//取得EXCELL表中的列数i:=1;w
9、hiletrim(msExcelWorkSheet.cells.item[1,i])<>''doi:=i+1;ColCount:=i-1;//预先设定列数Rzstringgrid1.ColCount:=ColCount+
