关于delphi+excel的问题

linanguyu · 发表于 2010-9-23 10:53

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 · 发表于 2010-9-25 15:04

没有做过的吗？

linanguyu · 发表于 2010-9-28 16:21

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

[其他] 关于delphi+excel的问题