Доброго времени суток, уважаемые форумчане.
Есть такой код:
[vba]Код
Sub WorkBooksList()
Dim book As Object
' Вывод имени каждой рабочей книги
For Each book In Workbooks
MsgBox (book.Name)
Next
End Sub
[/vba]
В МеседжБоксе показывает названия открытых книг. Мне же нужно сделать, чтобы список открытых книг показывался в ListBox.
Пытаюсь сделать так:
[vba]Код
Private Sub UserForm_Activate()
Dim kniqa As Workbook
Dim i
i = 1
For Each kniqa In Workbooks
Me.ListBox1.List(i, 1) = kniqa.Name
i = i + 1
Next kniqa
End Sub
[/vba]
Только вот косячу где-то. Подскажите, пожалуйста, где?