遍歷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;