ListBox1.List генерирует объектную ошибку - PullRequest
Новая
       34

ListBox1.List генерирует объектную ошибку

0 голосов
/ 28 декабря 2018

Я пытаюсь экспортировать содержимое списка пользовательских форм в новую книгу.

Я получаю сообщение об ошибке, как я комментировал в коде. 

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

1 Ответ

0 голосов
/ 29 декабря 2018

Хорошо, мне удалось решить это после стольких часов поисков.

Все, что мне нужно было сделать, это изменить строку следующим образом: 

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

К этому: 

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