VBA读取文件夹下所有文件夹及文件内容，并以树形结构展示

最新推荐文章于 2025-06-26 09:43:08 发布

转载

最新推荐文章于 2025-06-26 09:43:08 发布 · 1.4k 阅读

7 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/flyrain/p/VBA_TreeView.html

文章标签：

#shell

这个VBA代码示例展示了如何读取指定文件夹及其子文件夹中的所有内容，并以Excel表格的树形结构进行显示。通过创建对象和递归函数，遍历文件夹结构，填充数据到Excel单元格，同时计算各级节点的数量，实现类似TreeView的效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Const TR_LEVEL_MARK = "+"
Const TR_COL_INDEX = "A"
Const TR_COL_LEVEL = "E"
Const TR_COL_NAME = "C"
Const TR_COL_COUNT = "D"
Const TR_COL_TREE_START = "F"
Const TR_ROW_HEIGHT = 23
Const TR_COL_LINE_WIDTH = 3
Const TR_COL_BOX_MARGIN = 4
Sub getpath()
Dim obj As Object, i&, arrf$(), mf&, n$(), d As Object

Range("A2:C1000").ClearContents '清空A2：C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址手动选择
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量

Call GetFolders(gg, obj, arrf, mf, n) '获取路径

m = -1
With ActiveSheet
For i = 1 To mf
m = m + 1
Cells(m +