如何将ListBox中所有内容导入工作表表格？现有代码失效求助

你的原代码仅处理了ListBox中索引为i的单个项，缺少遍历所有条目逻辑，同时未利用Excel表格（ListObject）的规范操作方式，导致无法批量导入内容。以下是针对不同场景的修复方案：

单列表ListBox导入 #

如果lbCart是单列表，可通过循环逐个添加到表格：

Dim i As Integer
Dim wsRIS As Worksheet
Dim tblItems As ListObject

' 绑定目标工作表和表格
Set wsRIS = ThisWorkbook.Worksheets("RIS")
Set tblItems = wsRIS.ListObjects("Items")

' 遍历ListBox所有条目，添加到表格
For i = 0 To lbCart.ListCount - 1
    tblItems.ListRows.Add.Range(1).Value = lbCart.List(i)
Next i

多列表ListBox批量导入 #

如果lbCart包含多列数据（匹配示例图的多列结构），直接批量写入效率更高：

Dim wsRIS As Worksheet
Dim tblItems As ListObject

Set wsRIS = ThisWorkbook.Worksheets("RIS")
Set tblItems = wsRIS.ListObjects("Items")

' 确保ListBox有内容再执行写入
If lbCart.ListCount > 0 Then
    ' 批量写入所有列数据到表格新行
    tblItems.ListRows.Add.Range.Resize(lbCart.ListCount, lbCart.ColumnCount).Value = lbCart.List
End If

注意事项 #

• 确保lbCart的列数和Items表格的列数完全匹配，避免数据错位
• 如果需要清空表格原有数据（保留表头），可在写入前添加代码：If tblItems.ListRows.Count > 0 Then tblItems.DataBodyRange.Delete
• 代码需放在触发事件中执行，比如按钮点击事件（CommandButton_Click）

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