请问如何用Delphi程序从Excel中搜索数据，得到其所在的行列值！

Question

也就是说，在Execl中查找的数据，然后把此数据所在的行列值给Label.

Answer 1

procedure TNewCardForm.Button2Click(Sender: TObject);
var
    ExcelApp,MyWorkBook: OLEVariant;
begin
  if opendialog1.Execute then
  begin
    try
      ExcelApp:=CreateOleObject('Excel.Application');
      MyWorkBook:=CreateOleobject('Excel.Sheet');
    except
      application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',
           mb_OK+mb_IconStop);
      Exit;
    end;
    MyworkBook:= ExcelApp.workBooks.Open(opendialog1.FileName);
    //打开文件后，对文件进行操作
    label1.caption := MyWorkBook.WorkSheets[1].Cells[i,1].Value;
   end;
end;

Answer 2

Drate你弄错了，这次的问题与上次不一样，我是先在Excel中查找数据，然后输出查找到的数据所在的行列值!