如何解决 listview控件 无法装载这个对象,因为它不适用于这台计算机

GZ020517

如何解决 listview控件 无法装载这个对象,因为它不适用于这台计算机

在自己的电脑上做的窗口有LISTVIEW控件，当移到其它电脑用时，总是会出现无法装载这个对象，如何才能解决这个问题，做到任何时候，移到任何一台电脑上都能用，不需要手动去注册，或者手动去重新画一个LISTVIEW，能不能用代码来自动引用LISTVIEW控件，看了很多资料似乎都没有此问题的解决方法，在这里，想咨询下版内的大师，以及各位版主，有什么好方法，或者提供一个好的思路。因为找资料的过程中发现有N多与我有同样困惑的同学，并且都没有得到有效解决，借此机会，在这里讨论一下有没有解决的可能性，望版主和大虾们多提意见，给个思路，谢谢

CELLS1

在03版Excel上做好窗体，在其他版本上都可以用了

GZ020517

CELLS1 发表于 2014-2-15 13:29
在03版Excel上做好窗体，在其他版本上都可以用了

不是版本的问题哦，是在其它电脑上运行，涉及到控件引用，控件注册

GZ020517

有没有遇到相同问题的朋友提供一下方法，思路

lolmuta

可否给个附件，这个控件花了我不少时间，还是叫不出来...
列表视图是来自于这个档案MSCOMCTL.OCX对吧...

不过，想要每台电脑都可以跑，
最简单的就是不要使用“高级”的东西。

但若你非常想要用这个附件，可能的解法。我这一块其实也不是很了解，请高手指正错误


附上MSCOMCTL.OCX这个档案，
程式自动引用并非万能...
我有遇到怎麼樣都引不了的情況，也有遇到引用的不同的東西，卻都可以用的怪現象(ieExploree就是個例子)，我覺得這塊很少人有說，也沒有什麼規範，特別是不斷的更新的情況下，今天引用這個，明天可能又改版了，
如果是手動引用，上面那種問題，會降低許多，像引用outlook,手動引用會自動判斷版本(其實所謂的自動應該是去註冊表查，然後引用對的版本)，但若是自動引用，就沒那麼簡單了

而且要是引用到錯誤的檔案，但是vba又認定成功，程式是不會說你引錯了，當你打開引用列表發現你都有引用啊…然後就不知道該怎麼辦…因为错的不是VBA的错了，而是错在引用的档案里面的东西有问题
其实只要先移除再引用就可以了，不过要引用到对的

所以目前我们的程式就是先看看有没有，有的话，先删除，然后在自动引用

执行以下程式时，你要巨集安全性，信任存取VBA专案物件模型。这句话说白点，就是取得控制VBA编辑器的控制权，
有了控制權，你在編輯器所作的許多事情，其實都是可以用程式來完成的，甚至可以自動寫code,當然就包括引用了。
还要手动引用一个东西
Microsoft Visual Basic的应用程序扩展5.3 ......这个里面有许多可控制编辑器的方法

然后一开始，先取得，要先取得引用的名称。
在跑之前请先不要引用那个listview的物件
请先跑这一段

1. Private Sub listReference()
   
2.     Dim VBAEditor As VBIDE.VBE
   
3.     Dim vbProj As VBIDE.VBProject
   
4.     Dim chkRef As Reference
   
5.    
   
6.     Set VBAEditor = Application.VBE
   
7.     Set vbProj = Me.VBProject
   
8.     Dim BoolExists As Boolean
   
9.     For Each chkRef In vbProj.References
   
10.         Debug.Print chkRef.Name
    
11.     Next
    
12. 
    
13.     Set vbProj = Nothing
    
14.     Set VBAEditor = Nothing
    
15. End Sub

复制代码

結果如下:
VBA-
Excel
stdole
Office
MSForms
VBIDE
这先就是你程式一开始引用的东西，不过缩成简短的名称
然后引用listview的那个东西
VBA
Excel
stdole
Office
MSForms
VBIDE
MSComctlLib

发现多了一个东西，就叫mscomctllib这个名字要记起来。

就可以寫下下面这些代码了, 我只寫出最核心的部份(写在的ThisWorkbook中)，詳細代碼請看附件

1. 
   
2. Private Const listviewFileName As String = "/mscomctl.ocx"
   
3. 
   
4. 
   
5. Sub Ini()
   
6.     Dim VBAEditor As VBIDE.VBE
   
7.     Dim vbProj As VBIDE.VBProject
   
8.     Dim chkRef As Reference
   
9.     Dim BoolExists As Boolean
   
10. 
    
11.     Set VBAEditor = Application.VBE
    
12.     Set vbProj = ActiveWorkbook.VBProject
    
13. 
    
14.     If ReferenceExist("MSComctlLib") Then
    
15.         RemoveReference "MSComctlLib"
    
16.     End If
    
17.     vbProj.References.AddFromFile Me.Path & listviewFileName
    
18.     Set vbProj = Nothing
    
19.     Set VBAEditor = Nothing
    
20. End Sub
    

复制代码

確定ini()可以跑後，只要再加上

1. Private Sub Workbook_Open()
   
2. ini
   
3. End Sub

复制代码

就会在开启时，自动引用那个东西了。

最后，還是少引用一些怪怪的东西...

GZ020517

lolmuta 发表于 2014-2-15 14:40
可否给个附件，这个控件花了我不少时间，还是叫不出来...
列表视图是来自于这个档案MSCOMCTL.OCX对吧...
...

谢谢你的耐心解答，的确这个问题比较复杂，但是却实LISTVIEW这个控件也是用到的频率非常高的，所以想知道这个问题的解决方案

zbapllo

好东西，收藏了。谢谢

匪兵甲

lolmuta 发表于 2014-2-15 14:40
可否给个附件，这个控件花了我不少时间，还是叫不出来...
列表视图是来自于这个档案MSCOMCTL.OCX对吧...
...

谢谢，按你的方法解决了！困扰了我半个多月。。。

kaolacola

markmarkmarkmarkmarkmarkmarkmarkmark

empties

我是新手，不太明白，是不是我把代码放到“thisworkbook”里面就可以不需要其他电脑使用者再自行注册了？