Excel VBA - 通过ListBox控件循环

Question

我想通过大量工作表循环，然后在每个工作表中填充列表框控件，并用我的代码填充它们。我使用下面的代码：

Dim sh As Worksheet 
Dim obj As OLEObject 
Dim lst As MSForms.ListBox 
Dim idx As Long 

For idx = 1 To ThisWorkbook.Worksheets.Count 
    Set sh = ThisWorkbook.Worksheets(idx) 
    For Each obj In sh.OLEObjects 
     If obj.progID = "Forms.ListBox.1" Then 
      Set lst = obj 
      If (lst.Name = "lst1") Then 
       Call PopulateSimple(lst, "Table1") 
      End If 
     End If 
    Next 
Next idx 

这似乎是不幸的，当我将列表框设置为对象。任何想法如何实现循环遍历不同工作表中的所有列表框并填充它们？

Answer 1

试试这个

Sub Sample() 
    Dim sh As Worksheet 
    Dim obj As OLEObject 
    Dim idx As Long 

    For idx = 1 To ThisWorkbook.Worksheets.Count 
     Set sh = ThisWorkbook.Worksheets(idx) 
     For Each obj In sh.OLEObjects 
      If TypeOf obj.Object Is MSForms.ListBox Then 
       If (obj.Name = "lst1") Then 
        Call PopulateSimple(obj, "Table1") 
       End If 
      End If 
     Next 
    Next idx 
End Sub 

说明：你得到的是错误的，因为OBJ被声明为OLEObject和LST为MSForms.ListBox，因此类型不匹配。

Answer 2

不能使用OBJ在您的来电PopulateSimplesince你知道这是一个ListBox：

Dim sh As Worksheet 
Dim obj As OLEObject 
Dim lst As MSForms.ListBox 
Dim idx As Long 

For idx = 1 To ThisWorkbook.Worksheets.Count 
    Set sh = ThisWorkbook.Worksheets(idx) 
    For Each obj In sh.OLEObjects 
     If obj.progID = "Forms.ListBox.1" Then 
      'Set lst = obj 
      If (obj.Name = "lst1") Then 
       Call PopulateSimple(obj, "Table1") 
      End If 
     End If 
    Next 
Next idx 

Answer 3

最简单的方法（从评论移动）：

在我看来，你需要改变

Dim lst as MSForms.ListBox 

到

Dim lst as OLEObject 

这就是所有...