VBA中根据工作表中的数据创建文件夹结构

示例：

创建序号名称为从“1”至“8”的文件夹，每个序号的文件夹下都含有名称为“上午”和“下午”的子文件夹。

具体步骤如下：

1. 初始化工作表对象和相关变量。
2. 确定主文件夹地址，通常是你希望创建文件夹结构的基本目录。
3.  从工作表中读取数据，每行包含一个序号和两个时间段（上午和下午）。
4. 使用 Dir 函数检查主文件夹中是否已经存在以序号命名的子文件夹。如果不存在，则使用 MkDir函数创建该子文件夹。
5.  对于每个序号，使用 Dir 函数检查序号文件夹下的“上午”和“下午”子文件夹是否已经存在，如果不存在，则使用 MkDir 函数创建它们。
6.  循环处理下一个序号，直到所有序号都处理完毕。

Sub dd()
    Set a = Worksheets(1)
    x = a.UsedRange.Rows.Count
    dichi = "E:\建立目录\"
    For i = 2 To x Step 2
        aa = a.Cells(i, 1)
        d = Dir(dichi