vba - 运行时错误 13：组合框上的类型不匹配 - Excel VBA

Question

简介：我以前有编程经验（C、C++、Java），但是，这是我第一次使用 Excel VBA。

一些背景： 我正在尝试使用一个名为的工作表中的列表初始化一个组合框，ORI_LIST但每次运行它时我都会得到Run Time Error 13。任何有关这方面的信息都会很棒。

Private Sub UserForm_Initialize()
    Dim cLoc As Range
    Dim OriSheetList As Worksheets

    Set OriSheetList = Worksheets("ORI_LIST")

    For Each cLoc In OriSheetList.Range("CRI")
        With Me.COMBO_ORILIST
            .AddItem cLoc.Value
        End With
    Next cLoc
End Sub

Answer 1

啊，这是一个愚蠢的，但你想要Dim OriSheetList As Worksheet。

Worksheet对象是单一的。工作簿中所有工作表的集合都是复数。如果 IDE 能在这些问题上提供更多帮助，那就太好了，但是这就是 VBA 的世界。