关于delphi+excel的问题

linanguyu

excelapp:= CreateOleObject('Excel.Application');


form1.ListBox1.items.loadfromfile('批量表.txt');
form1.OpenDialog1.Execute;
strt:= opendialog1.FileName;
excelapp.workbooks.open(strt);
excelapp.visible:=true;
nc:=listbox1.Items.Count;
for a:=0  to nc-1 do
   begin
           strc:=trim(listbox1.Items[a]);
         instr1:=pos(strc,excelapp.ActiveSheet.cells(2,5).text);  //找不到成员
        if instr1<>0 then
             begin
              suml:=suml+1;

              break;
             end;
   end;
请高手指教，程序运行到标注处，提示找不到成员。

linanguyu

没有做过的吗？

linanguyu

问题已解决 ，
instr1:=pos(strc,excelapp.ActiveSheet.cells(2,5).text);  
应为instr1:=pos(strc,excelapp.ActiveSheet.cells[2,5].text);