[已解决]EXCEL工程引用

w13579

開別的EXCEL不會引用遺漏這個控件       但是一開我的EXCEL 就會有遺漏勾上 很是討厭導致 宏無法執行！~

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-24 15:56

如果没有信任的话，没报错的。
(, 下载次数: 39)

上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

兴许也有方法移除的。

hwc2ycy

把你的附件传上来，我试试代码。

w13579

w13579

:(:(:(:(:(:(:(

w13579

hwc2ycy 发表于 2013-1-24 11:29
兴许也有方法移除的。

http://support.microsoft.com/kb/308340/zh-cn   剛找到個微軟的帖子 不理解其意

hwc2ycy

恩，就是通过IsBroken属性来检测，然后remove的。

w13579

hwc2ycy 发表于 2013-1-24 14:53
恩，就是通过IsBroken属性来检测，然后remove的。

那EXCEL 怎麼才可以實現

hwc2ycy

1. Sub removeref()
   
2.     Dim ref
   
3.     Dim refs As Object
   
4.     Set refs = ThisWorkbook.VBProject.References
   
5.     For Each ref In refs
   
6.         If ref.isbroken Then
   
7.             Debug.Print ref.Name
   
8.             refs.Remove ref
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

w13579

hwc2ycy 发表于 2013-1-24 15:32

• Set refs = ThisWorkbook.VBProject.References
  少物件{:271:}