ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 71221|回复: 92

[分享] 哈哈!完美解决“无法装载这个对象,~”

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-12-20 20:37 | 显示全部楼层 |阅读模式
这个问题困扰了我很久,终于下决心,从一大堆网络资料中总结一个比较完整的解决方案:
问题表述:一般用listview,treeview,flexgrid等控件制作的工具,在不同电脑上使用时会遇到一个很大的问题就是“无法装载这个对像,因为他不适用于这台计算机”
原因分析:是C:\WINDOWS\system32下文件MSCOMCTL.OCX 版本不同造成的。这里提供比较新的版本供下载 MSCOMCTL.part3.rar (411 Bytes, 下载次数: 4090) MSCOMCTL.part2.rar (200 KB, 下载次数: 4843) MSCOMCTL.part1.rar (200 KB, 下载次数: 4771)
下载解压后,
第一步:将MSCOMCTL.OCX 复制到C:\WINDOWS\system32,覆盖原有文件。(提醒:覆盖前将原有的MSCOMCTL.OCX 文件备份一下,以免~~)
第二步:新建空白工作簿,打开VB编辑器(ALT+F11)复制以下代码,运行。
Sub 删除EXD的文件文件()
Dim str$
str = Application.TemplatesPath
str = Replace(Application.TemplatesPath, "Templates", "Forms")
MsgBox "模板保存的默认路径是: " & str
''查找后缀为EXD的文件,并删除之。
On Error Resume Next
Dim xlsFile As String
xlsFile = Dir(str & "\*.EXD")
Do
If InStr(1, xlsFile, "*") = 0 Then
Kill str & xlsFile '删除文件
End If
xlsFile = Dir
Loop Until Len(xlsFile) = 0
Shell "explorer.exe " & str, 1 '打开文件夹
End Sub
第三步: windows xp:电脑桌面 开始 - 运行 输入 Regsvr32 MSCOMCTL.OCX,然后确定后会提示已注册
Win7: 开始  - 所有程序 - 附件 - 命令文本,输入Regsvr32 MSCOMCTL.OCX,然后回车后会提示已注册
第四步:就能正常运行了!亲测有效!
但如果你的这个控件根本在office就没有,那建议装一个VB6.0,这样各种常用控件都会有了。
以上是从网络各贴子中总结而来~~!谢谢原创网友~

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-12-20 21:01 | 显示全部楼层
感谢分享{:soso_e128:}

TA的精华主题

TA的得分主题

发表于 2012-12-20 21:13 | 显示全部楼层
{:soso_e179:}订一下,估计有好多同学有这样的困惑,确实是完美解决。

TA的精华主题

TA的得分主题

发表于 2012-12-20 21:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
做个记号,以便今后使用

TA的精华主题

TA的得分主题

发表于 2012-12-20 21:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-20 22:26 | 显示全部楼层
longming3 发表于 2012-12-20 21:42
http://club.excelhome.net/forum.php?mod=viewthread&tid=906629&page=1#pid6226827

这个好!加上这个就更完善!

TA的精华主题

TA的得分主题

发表于 2012-12-21 09:15 | 显示全部楼层
做个记号,以便今后使用

TA的精华主题

TA的得分主题

发表于 2012-12-21 09:45 | 显示全部楼层
先顶后藏,感谢分享{:soso_e179:}

TA的精华主题

TA的得分主题

发表于 2013-1-13 11:58 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
终于找到了,感谢分享!

TA的精华主题

TA的得分主题

发表于 2013-2-19 16:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感谢分享,留个记号!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-6 00:20 , Processed in 0.044782 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表