Добавление имен файлов в форму

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

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

Добавление имен файлов в форму (Макросы/Sub)

ant6729

Дата: Среда, 10.10.2018, 00:32 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Всем привет!
Подскажите, пожалуйста, как добавить имена файлов в листбокс?

К сообщению приложен файл: __.xlsm (15.0 Kb)

Ответить

_Boroda_

Дата: Среда, 10.10.2018, 01:27 | Сообщение № 2

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub CommandButton1_Click()
    GetFilesList
End Sub

Sub GetFilesList()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        For Each fn_ In .SelectedItems
            Me.Lstb1.AddItem Dir(fn_) 'если нужен путь, то Dir убрать
        Next
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ant6729

Дата: Среда, 10.10.2018, 11:54 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Так как я решил посмотреть, как работают методы детально, то с самого начала хотел выбирать руками отдельные файлы из папки, чтобы потом они отобразились в листбоксе как отптичкованные, а остальные из этой папки добавились без птицы) Это была идея фикс.

Однако получив возможность добавлять) Я не увидел квадратиков слева)

Сравнил с тем листингом, который это делает(добавляет квадратики)) И понял, что это возможно в рамках метода, обращающегося к папке, а не к отдельным файлам

В итоге еще пару часов "прокурил..."

Может, кто-то подскажет, возможна ли такая смесь в использовании методов?)
И как это сделать...