我用如下方式打开Excel:
      try
       Excel:=CreateOleObject('Excel.Application');
     except
      
      ShowMessage('未能成功打开Excel,检查是否安装Excel');
     
     end;以前一直没有问题,有个家伙不知在电脑上装了什么程序,
上述语句就要出错。我重装了OFFCIE,还是这样。
但在桌面上可以打开EXCEL,就是在程序中打开不了,
不知哪儿出了问题,难道必须重装整个系统吗?

解决方案 »

  1.   

    什么原因只能找微软,我也常碰到这样的问题,OFFICE好象很不稳定,有时候多打开几次就行了,我解决的办法就是从头开始,重装Windows。另外我建议用下列语句  try
        Excel := GetActiveOleObject('Excel.Application);
      except
        try
           Excel := CreateOleObject('Excel.Application);
        except
           Excel :=nil;
           ShowMessage('未能成功打开Excel,检查是否安装Excel');
        end;
      end;
      

  2.   

    Excel.Visible := Ture;
    要有这句才可以显示Excel..