添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接

作者: iamlaosong

原来用Excel VBA做过的一个工具需要修改,修改后调试报错,说是找不到工程或库。这个以前碰到,是因为原使用环境安装了WPS,所以很容易就解决了,在“引用”去掉那个丢失勾选就可以了。如下图:

原以为没问题了,结果执行后又报错,调试发现出错原因是msoTrue为空值,也就是没有定义,但以前没问题啊。之所以要定义这个常量(还有很多类似的如msoFalse),估计是为了和其他语言兼容,这个值当然可以用True代替,事实上换成True后程序可以用了,但在同事那儿用了msoTrue常量的工具用起来没有问题,为什么呢?

打开其他的Excel文件,进入开发环境,在立即窗口检测msoTrue值,发现是有值的(-1),点击原来的文件,再检测msoTrue值就变成空值了。估计问题出在“引用”上,仔细研究上面的图会发现Microsoft Office 14.0 Object Library没有勾选,勾上后问题解决。

为什么会发生这样的问题,估计是安装WPS造成的。有了WPS的对象库,微软的对象库就给勾去了。

作者:iamlaosong原来用Excel VBA做过的一个工具需要修改,修改后调试报错,说是找不到工程或库。这个以前碰到,是因为原使用环境安装了WPS,所以很容易就解决了,在“引用”去掉那个丢失勾选就可以了。如下图: 原以为没问题了,结果执行后又报错,调试发现出错原因是msoTrue为空值,也就是没有定义,但以前没问题啊。之所以要定义这个常量(还有很多类似的如mso...
Sub an() ActiveWindow.Selection.SlideRange.Shapes.AddShape( mso ShapeRoundedRectangle, 100, 200, 100, 60).Select With ActiveWindow.Selection.ShapeRange .Fill.Visible = mso True .Fill.ForeColor.RGB