如何在Excel VBA中通过工作表和表名设置ListBox的RowSource属性？

原代码的问题说明 #

1. 事件选择错误：ListBox1_Click事件仅在列表框已有选项并被点击时触发，空列表框点击不会执行代码，应改用UserForm_Initialize（窗体初始化时触发）或按钮点击等合适时机。
2. 空表格兼容问题：如果Chart_of_Accts表格无数据行，DataBodyRange会返回空值，直接调用会导致代码报错。

方法一：直接用List属性加载（推荐，稳定性高） #

无需依赖单元格地址，直接将表格数据赋值给ListBox的List属性，适配大多数场景：

Private Sub UserForm_Initialize()
    Dim tbl As ListObject
    Set tbl = Worksheets("Chart of Accounts").ListObjects("Chart_of_Accts")
    
    ' 判断表格是否存在数据行
    If Not tbl.DataBodyRange Is Nothing Then
        ' 加载表格所有数据
        ListBox1.List = tbl.DataBodyRange.Value
        ' 若仅需加载指定列（如第1、2列），需同步设置列数
        ' ListBox1.List = tbl.ListColumns(1).DataBodyRange.Resize(, 2).Value
        ' ListBox1.ColumnCount = 2
    End If
End Sub

方法二：正确设置RowSource属性 #

若坚持使用RowSource，需确保引用完整的外部地址或表格结构化引用：

Private Sub UserForm_Initialize()
    Dim tbl As ListObject
    Set tbl = Worksheets("Chart of Accounts").ListObjects("Chart_of_Accts")
    
    If Not tbl.DataBodyRange Is Nothing Then
        ' 用结构化引用加载表头+所有数据
        ListBox1.RowSource = tbl.Name & "[#All]"
        ' 或仅加载数据区域
        ' ListBox1.RowSource = tbl.DataBodyRange.Address(External:=True)
    End If
End Sub

方法三：逐行添加数据（适合筛选/处理数据的场景） #

需要对数据筛选或处理后再添加时，可使用AddItem逐行操作：

Private Sub UserForm_Initialize()
    Dim tbl As ListObject
    Dim rowRng As Range
    Set tbl = Worksheets("Chart of Accounts").ListObjects("Chart_of_Accts")
    
    ListBox1.Clear ' 先清空列表框
    If Not tbl.DataBodyRange Is Nothing Then
        ' 设置显示列数（示例为2列）
        ListBox1.ColumnCount = 2
        For Each rowRng In tbl.DataBodyRange.Rows
            ' 添加第一列内容
            ListBox1.AddItem rowRng.Cells(1).Value
            ' 添加第二列内容
            ListBox1.List(ListBox1.ListCount - 1, 1) = rowRng.Cells(2).Value
        Next rowRng
    End If
End Sub

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