Я создаю пользовательскую форму 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