Создать файловую структуру / словарное дерево в Excel VBA

Question

Я написал функцию vba, которая выбирает файловую структуру (пути к папкам и их подпапкам) из базы данных и сохраняет ее в словаре, похожем на хеш.

Теперь я хочу либо создатьлист или пользовательская форма, которая создает файловую структуру из словаря, подобного следующему:

В основном файловая структура, гдеПользователь может просматривать папки и подпапки и имеет возможность (например, с помощью флажка) выбрать и отменить выбор самой внутренней папки (которая содержит сценарии, и все выбранные сценарии будут выполнены ..).

Есть ли какие-либоструктура, подобная этой, или что-либо подобное, которая выполняет работу в виде таблицы Excel или пользовательской формы VBA?

Answer 1

Вот пример чего-то, что может быть тем, что вы ищете:

Sub tgr()

    Dim oFolder As Object
    Dim vStartFolder As Variant
    Dim sFolderPath As String

    'If blank, the browse window will start at computer root
    'If populated, the browse window will start at the specified folder location
    vStartFolder = ""

    'Show a Folder Browser that will let the user select a folder
    Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select Folder", 0, vStartFolder)
    If oFolder Is Nothing Then Exit Sub   'Pressed cancel
    sFolderPath = oFolder.Self.Path & Application.PathSeparator

    'Folder selected, do what you need with the selected folder
    MsgBox sFolderPath

End Sub

Запуск, который откроет браузер папок, который выглядит следующим образом: