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

最新推荐文章于 2024-07-16 14:53:02 发布

weixin_30512043

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量1.3k

点赞数

文章标签： shell

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

版权

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

摘要由CSDN通过智能技术生成

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