Excel VBA中使用RowSource填充ComboBox遇运行时错误380的问题排查

问题根源 #

你遇到的运行时错误380，核心原因是ComboBox的RowSource属性需要的是地址字符串（比如Sheet1!A2:A100），而不是直接赋值Range对象。你当前的代码把ListColumn.DataBodyRange（一个Range对象）直接传给了RowSource，这不符合VBA对该属性的要求，所以触发了错误。

修复方案：正确转换为地址字符串 #

只需要把Range对象转换为带工作表名称的完整地址字符串即可，修改你的赋值语句：

ClientNameComboxAdd.RowSource = sht.Name & "!" & sht.ListObjects("Clients").ListColumns(1).DataBodyRange.Address

这样做的好处：

• 明确指定了数据源所在的工作表，避免当前工作表切换导致的引用错误
• 给RowSource提供了它能识别的地址格式，彻底解决错误380
• 效率和直接绑定一致，完全不需要循环AddItem

额外优化：处理空数据的边界情况 #

虽然你已经做了基础判断，但可以再增加一层对DataBodyRange是否存在的检查（比如表格刚创建但还没数据时，DataBodyRange会是Nothing），让代码更健壮：

Private Sub ClientNameComboxAdd_Enter()
    Dim sht As Worksheet
    Dim nameColRange As Range
    
    Set sht = ThisWorkbook.Worksheets("Client Info")
    Set nameColRange = sht.ListObjects("Clients").ListColumns(1).DataBodyRange
    
    ' 检查是否有有效数据
    If nameColRange Is Nothing Then
        MsgBox "Can't Add a New Plan With No Clients Entered"
        Exit Sub
    End If
    
    ' 正确设置RowSource
    ClientNameComboxAdd.RowSource = sht.Name & "!" & nameColRange.Address
End Sub

替代方案：使用List属性 #

如果不需要ComboBox和数据源实时同步（比如数据不会在ComboBox显示期间修改），可以直接用List属性一次性赋值，效率同样很高：

ClientNameComboxAdd.List = nameColRange.Value

这种方式不需要处理地址字符串，代码更简洁，而且避免了RowSource的绑定特性带来的潜在问题。

内容的提问来源于stack exchange，提问作者LAKFSA