Как отобразить в текстовом поле выбранный мной элемент в моем списке, содержащем массив «Список файлов» (VBA) - PullRequest
1 голос
/ 24 июня 2019

Я создаю пользовательскую форму VBA в Excel 2013, в которой массив FileList будет отображать все имена файлов .xls из каталога в Listbox1, после запуска пользовательской формы все, что я выбрал / щелкнул в Listbox1, должно отобразиться в текстовое поле.

Как добавить это в мой код ниже?

Попытка добавить textbox.Value = ListBox1.Value не работает.

Private Sub UserForm_Initialize()
    Dim FileList(), i As Long, x, n As Long, fName As String
    FilePath = "D:\TGSvidasmerger\" 'change to suit
    fName = Dir(FilePath & "*.xls")
    i = 1

    Do While fName <> ""
        ReDim Preserve FileList(1 To i)
        FileList(i) = fName
        i = i + 1
        fName = Dir()
    Loop

    ReDim Preserve FileList(1 To i - 1)

    With Me.ListBox1
        .Clear
        .List = FileList
    End With

    textbox.Value = ListBox1.Value
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...