运行时错误 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 的世界。