Excel ListBox1.List生成对象定义错误

我正在尝试将userform列表框内容导出到新工作簿

我得到了我在代码中注释的错误

Private Sub ExportListBoxContents_Click()

Dim xlApp As Excel.Application
Dim xlsh As Excel.Worksheet
Dim i As Integer
Dim j As Integer

Set xlApp = New Excel.Application
xlApp.Workbooks.Add

Set xlsh = xlApp.Workbooks(1).Worksheets(1)

For j = 1 To ListBox1.ListCount

    For i = 0 To ListBox1.ColumnCount
        xlsh.Cells(j, i).Value = ListBox1.List(j - 1, i) '<----Object defined error
    Next i

Next j

xlApp.Visible = True

Set xlsh = Nothing
Set xlApp = Nothing

End Sub

Private子导出ListBoxContents\u Click（）
Dim xlApp作为Excel.Application
将xlsh设置为Excel.Worksheet
作为整数的Dim i
作为整数的Dim j
Set xlApp=New Excel.Application
xlApp.Workbooks.Add
设置xlsh=xlApp.工作簿（1）.工作表（1）
对于j=1到ListBox1.ListCount
对于i=0到ListBox1.ColumnCount
xlsh.Cells（j，i）.Value=ListBox1.List（j-1，i）“好的，经过这么多小时的搜索，我终于解决了这个问题

我所要做的就是修改这一行：

xlsh.Cells(j, i).Value = ListBox1.List(j - 1, i)

为此：

xlsh.Cells(j , i).Value = ListBox1.Column(j - 1, i - 1)