在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

运行将打开一个如下所示的文件夹浏览器：