找到excel的值，并确定该值所在的行和列(100)

我想通过程序在excel中找到某确定的值，并确定该值所在的行和列

用循环，或是应该有命令来实现查找功能。

qq:292044357

建议使用XLSReadWriteII控件。对于没有特殊公式的EXCEL文件很适用，但是对复杂一些的EXCEL文件，还是直接用OLE来操作EXCEL吧。

if not opendialog1.Execute then exit; eclapp := createoleobject('excel.application'); workbook := createoleobject('excel.sheet'); workbook := eclapp.workbooks.open(opendialog1.FileName); Datas := workbook.sheets[1].Range[workbook.sheets[1].Cells.Item[1, 1], workbook.sheets[1].Cells.Item[20000, 11]].Value;for i := 2 to 20000 do begin for j := 1 to 11 do dvalue[j] := trim(datas[i, j]); if dvalue[j]='要查找的值' then beginshowmessage(inttostr(i)+'行,'+inttostr(j)+'列');break;end;end;