delphi 遍历EXCEL文档 ，查找指定区域的位置，并显示其值

遍历EXCEL文档 ，查找指定区域的位置，并显示其值

procedure TForm1.Button2Click(Sender: TObject);var   i:integer;begin     EApp := CreateOleObject( 'Excel.Application' );     EApp.Workbooks.Open('d:\book4.xls');     for i:=1 to EApp.worksheets.Count  do     begin       EApp.WorkSheets[i].Activate;       try showmessage(inttostr(EApp.ActiveSheet.Range['yq_sm_type'].row)) except end;       try showmessage(EApp.ActiveSheet.Range['yq_sm_type'].Value) except end;     end;end;