Porject Project1.exe raised exception class EOleException with mes

Question

 for i:=0 to h do
  begin
    for j:= 0 to l do
    begin
      ExcelApp.Cells[i,j].value :='第一行' ;
      ShowMessage(ExcelApp.Cells[i,j].value);
      if Memo1.Lines.Strings[Memo1.Lines.Count-1] = ExcelApp.Cells[i,j].Value  then
      begin
        Memo2.Lines.Add('OK')
      end
      else
      begin
        Memo2.Lines.Add('SN没有扫描到!');
      end;
      end;
    end;提示的错误如标题所示，请各位大侠帮我看看是怎么回事？怎么改 ！先谢谢咯

Answer 1

提示错误如下: 
Porject   Project1.exe   raised   exception   class   EOleException   with   message   'OLE   error   800A03EC '.   Process   stopped.   USE   Step   to   Run   to   Continue.