ActiveX 部件不能创建对象（附件已上传）

akendy

运行时错误'429'
ActiveX 部件不能创建对象


由于附件不能上传，所以简单描述一下问题：
1、出现问题的时机：用VBA代码关闭EXCEL工作薄后重新打开该工作薄时出现。

已经情况如下：
1、文件打开时在open中调用窗口，手动关闭工作薄后重新打开不会出现该提示；
2、不作任何操作，直接点结束，然后再运行窗口也不会有问题；
3、代码操作是关闭工作薄，不是整个EXCEL程序；


有没有谁遇到过这种情况？
我用的是2010版
附件已上传，关闭工作的在修正代码那个窗体里，点击否半闭工作薄时再打打开出现上面提示。
成本核算20130108 - 副本.rar (28.74 KB, 下载次数: 17)

2013-1-9 16:46 上传

点击文件名下载附件

lu_zhao_long

如果楼主想解决问题的话，最好是上传附件。否则很少有人会花太多时间来猜楼主出的“谜”题！

akendy

lu_zhao_long 发表于 2013-1-8 22:37
如果楼主想解决问题的话，最好是上传附件。否则很少有人会花太多时间来猜楼主出的“谜”题！

已经上传附件了，能不能帮忙看看

另外，最近在关闭现在调试的这个工作薄的时候经常出现错误提示，要重启excel的情况。
不知道是不是office版本的问题。

akendy

这个问题有没有人能帮忙看一下。或者确定一下在其它版本中是否也存在同样的问题

joforn

1. 
   
2. Private Sub Workbook_Open()
   
3.   On Error Resume Next
   
4.   修改配方.Show
   
5. End Sub
   

复制代码

lu_zhao_long

akendy 发表于 2013-1-9 18:19
这个问题有没有人能帮忙看一下。或者确定一下在其它版本中是否也存在同样的问题

我觉得楼主的代码思路有点问题：
1. 为什么一直让这两个窗口处于显示状态？这会引起下面的第 2个问题。
2. 为什么要在关闭窗口的时候关闭并保存（或不保存）工作簿？这样会产生冲突。因为关闭工作簿之前必须关闭窗口。但楼主的代码却是在关闭窗口的时候先要去关闭工作簿。所以，即使工作簿被保存了，但下次重新打开之前就发生了这个窗口出错的问题。

akendy

joforn 发表于 2013-1-9 18:52

这样做是解决了报错的问题，但是窗体也不启动了啊

我要做的是窗体在工作薄打开的情况下一直显示。

akendy

lu_zhao_long 发表于 2013-1-9 19:18
我觉得楼主的代码思路有点问题：
1. 为什么一直让这两个窗口处于显示状态？这会引起下面的第 2个问题。
...

因为这个工作簿到时所有操作都是在窗体里实现，所以如果窗体不出现的话，这个工作簿打开就没意义了。

在关闭工作簿之前加上unload me也还是不行

现在如果把整个EXCEL程序关闭倒是可以。


我现在的思路确实是有些问题的，呵呵，以前一直只看函数，不想学VBA，现在刚好有点空闲，又有点需求，所以现在开始学VBA了。
到现在为止也就学了1个月不到，12月20日左右下载兰色幻想的80集教程开始看开始学的，呵呵
所以最近感觉很多问题，呵呵

谢谢你们这些高手指点啊。

akendy

lu_zhao_long 发表于 2013-1-9 19:18
我觉得楼主的代码思路有点问题：
1. 为什么一直让这两个窗口处于显示状态？这会引起下面的第 2个问题。
...

您的回复我看了很多次，还是不太明白该怎么操作，也做了很多测试，还是不成。

我说一下我的想法吧：
我希望只能在这两个窗体运行时才对工作薄进行操作，所以关闭窗体的时候就关闭工作薄，以此来避免误操作。
有什么操作可以帮忙实现这样处理吗？


另外：
1、关闭窗体的时候，选择不保存，下次打开也同样出现错误，应该与保存与否没关系。
2、在关闭前加上Unload me，还是同样报错。
难道是不能在窗体中关闭工作薄？

lovingchina

我遇到了一模一样的问题，找了半天也没找到解决办法

有哪位大神能帮忙指点下吗，万分拜谢

而且我随工作簿打开的这个窗体，无法unload，可以hide(同个工作簿中后面的窗体都可以使用 unload me这个命令）

1）

补充内容 (2018-10-11 20:50):
解决了，单独建立模块，别放在workbook open事件中即可