uses excel97 
   Try
      ExcelWh1.Disconnect ;
      ExcelWb1.Disconnect ;
      ExcelApp1.Connect ;
    Except
     Application.MessageBox('系统中没有安装EXCEL97/2000!','错误',MB_OK);
     Exit;
    end;      ExcelApp1.Visible[0]:=False;
      ExcelApp1.Workbooks.Add (Null,0);      ExcelWb1.ConnectTo (ExcelApp1.Workbooks[1]);      ExcelWh1.ConnectTo (ExcelWb1.Sheets[1] as _worksheet);//delphi6编译出错程序在2000专业版下正常,2000高级服务器下提示没有安装EXCEL
求救

解决方案 »

  1.   

    这样的代码我一般是这样写的:var
        ExcelApp,MyWorkBook: OLEVariant;
    begintry
          ExcelApp:=CreateOleObject('Excel.Application');
          MyWorkBook:=CreateOleobject('Excel.Sheet');
        except
          application.Messagebox('无法打开Xls文件,请确认已 经安装EXCEL.','',
               mb_OK+mb_IconStop);
          Exit;
        end;
      

  2.   

    用友华表组件有一个控件可以在不安装EXCEL的情况下使用电子表格,你可以到用友网站下载一个来用用!
      

  3.   

    我是直接用的DELPHI的组件,不是动态创建,这有什么关系吗?计算机里已经装了EXCEL2000编译时DELPHI6说不认识'_worksheet'DELPHI5编程环境里想想看看EXCEL97.PAS提示说找不到,但编译可以通过不知何故当初是别人写的,我接手维护,对这个不太了解,请各位大侠指点
      

  4.   

    那就有 EXCEL2000
    你在装D6的时候有选择
      

  5.   

    装D6时是选择了EXCEL2000啊
    可是编译出错另一个问题,程序在2000服务器上不能连接EXCEL时提示错误是接口不支持
      

  6.   

    我也遇到同样问题,
    在D6下可运行createoleobject这样的函数, 在D7就出问题!
      

  7.   

    编译出错的问题已解决是因为没有引用oleserver
    DELPHI6怎么有很多文件要手工引用,DELPHI5反而不用,奇怪