ListBox не показывает значения массива.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

ListBox не показывает значения массива. (Макросы/Sub)

OfficePlankton

Дата: Воскресенье, 11.12.2022, 22:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Доброго времени суток уважаемым экспертам.
Не получается справится с небольшой подзадачей: вывести открытые книги в ListBox.
Прошу подсказать в чем я был неправ:
- считываю имена файлов - наполняю ими массив .
- хочу показать этот массив в простейшей юзерформе с ListBox1. через List. - показывает пустые позиции!
- и несколько смущает, что пустых позиций в ListBox на одну больше.

[vba]

Код

Sub macros1()
Dim massiv1() As Variant
kolvofail = Application.Workbooks.Count
ReDim massiv1(kolvofail)
For i = 1 To kolvofail
massiv1(i) = Array(Application.Workbooks(i).Name)
Next i
UserForm1.ListBox1.Clear
UserForm1.ListBox1.List = massiv1
UserForm1.Show
End Sub

[/vba]

Ответить

Pelena

Дата: Воскресенье, 11.12.2022, 22:37 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19392

Репутация: 4537 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Нумерация строк в листбоксе начинается с нуля, поэтому примерно так
[vba]

Код

Sub macros1()
    Dim massiv1() As Variant
    kolvofail = Application.Workbooks.Count - 1
    ReDim massiv1(kolvofail)
    For i = 0 To kolvofail
        massiv1(i) = Application.Workbooks(i + 1).Name
    Next i
    UserForm1.ListBox1.Clear
    UserForm1.ListBox1.List = massiv1
    UserForm1.Show
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ListBox не показывает значения массива. (Макросы/Sub)

Страница 1 из 1
1