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 

這就是所有...