Win7操作excel出错,无效的类字符串

[yabaiking]

就这一句 出错
createOleObject('Excel.application');


在xp下都好好的,我在xp下用delphi7开发

客户是win7的

怎么解决呢?

[浩南_哥]

难道是application首字母没大写？手头没win7系统。

[yabaiking]

[Quote=引用 1 楼 m617105 的回复:]
难道是application首字母没大写？手头没win7系统。
[/Quote]
大写 也是一样的
win7是excel2007


在xp+delphi7程序引用是comobj,excel97,excel2000;
没有excel2007,也加不了

[OO_is_just_P]

我用excel 2007+turbo delphi在XP下没问题。

[OO_is_just_P]

excel 2007和excel 2003的com接口基本是一样的。我在xp下面的程序完全不用修改就可以在excel 2007上运行，是不是win 7 UAC的问题？

[lhs203203]

EXCEL 版本问题 或是没有安装

[yabaiking]

[Quote=引用 4 楼 foxyy8888 的回复:]
excel 2007和excel 2003的com接口基本是一样的。我在xp下面的程序完全不用修改就可以在excel 2007上运行，是不是win 7 UAC的问题？
[/Quote]

UAC 我已经右键选择 管理员运行 还试了兼容模式运行 都是一样

我下载的是精简版 ,有些人说 要注册组件? 怎么注册呢?

而且如果客户是精简版的话 不可能叫客户重装个office吧

[OO_is_just_P]

精简版可能没注册这个组件。
他非要用精简版本的话，你就直接操作xlsx（ZIP文件，可以解压开，里面全是XML）文件。他不装都行。

[浩南_哥]

可以试试下面的代码，一个项目里用过：

uses ComObj, ActiveX

function My_CreateOleObject(const ClassName: string; out Ole_Handle: IDispatch): Boolean;
var
  ClassID: TCLSID;
  l_Result: HResult;
begin
  Result := False;
  l_Result := CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID);
  if (l_Result and $80000000) = 0 then
  begin
    l_Result := CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
      CLSCTX_LOCAL_SERVER, IDispatch, Ole_Handle);
    if (l_Result and $80000000) = 0 then
      Result := True;
  end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  XLApp: OleVariant;
  l_Excel_Handle: IDispatch;
begin
  try
    XLApp := CreateOleObject('Excel.Application');
    XLApp.WorkBooks.Open('c:\test.xls');
    XLApp.visible := False;
  except
    on E: Exception do
    begin
      if not My_CreateOleObject('Excel.Application', l_Excel_Handle) then
      begin
        XLApp := Unassigned;
        raise exception.Create('启动Excel失败，可能没有安装Excel！');
        Exit;
      end;
    end;
  end;

还有不知道你为什么要用OLE的方式访问Excel,如果是想导入数据库的话，可以试试ADO的方式

[fcrane]

推荐XLSReadWrite
参考

[yabaiking]

[Quote=引用 8 楼 m617105 的回复:]
[/Quote]

win7 不行啊 提示"启动Excel失败，可能没有安装Excel！"..........

[yabaiking]

[Quote=引用 8 楼 m617105 的回复:]
[/Quote]

win7 不行啊 提示"启动Excel失败，可能没有安装Excel！"

[yabaiking]

[Quote=引用 7 楼 foxyy8888 的回复:]
精简版可能没注册这个组件。
他非要用精简版本的话，你就直接操作xlsx（ZIP文件，可以解压开，里面全是XML）文件。他不装都行。
[/Quote]

要注册哪些组件呢? 这精简版都有VBA

[山东蓝鸟贵薪]

[Quote=引用楼主 yabaiking 的回复:]
就这一句 出错
createOleObject('Excel.application');


在xp下都好好的,我在xp下用delphi7开发

客户是win7的

怎么解决呢?
[/Quote]
修改成如下试试：
createOleObject('Excel.exe');

[山东蓝鸟贵薪]

[Quote=引用楼主 yabaiking 的回复:]
就这一句 出错
createOleObject('Excel.application');


在xp下都好好的,我在xp下用delphi7开发

客户是win7的

怎么解决呢?
[/Quote]
修改成如下试试：
createOleObject('Excel.exe');

[山东蓝鸟贵薪]

[Quote=引用楼主 yabaiking 的回复:]
就这一句 出错
createOleObject('Excel.application');


在xp下都好好的,我在xp下用delphi7开发

客户是win7的

怎么解决呢?
[/Quote]
修改成如下试试：
createOleObject('Excel.exe');

[yabaiking]

[Quote=引用 9 楼 fcrane 的回复:]
推荐XLSReadWrite
参考
[/Quote]

哪里有破解版呢?

[taoran12]

我的delphi2010+Excel2010+Win7操作没有问题，再仔细看看