Excel-VBA批量创建文件夹

应用场景

批量创建的文件夹并以本月的每天命名

知识要点

1： DateSerial 函数 返回包含指定的年、月、日的 Variant (Date)。

2：MkDir 语句 创建一个新的目录或文件夹

Sub 创建本月文件夹()

    Dim Fname As String

    With Application.FileDialog(msoFileDialogFolderPicker) '引用文件夹对话框

        '如果选择了目录则取其路径，否则退出程序

        If .Show = -1 Then Fname = .SelectedItems(1) Else Exit Sub

    End With

    If Right(Fname, 1) <> '\' Then Fname = Fname & '\' '确定右边以\结束

    Dim i As Byte, j As Byte  '声明两个变量

    i = Day(DateSerial(Year(Date), Month(Date) 1, 0)) '计算本月有多少天

    For j = 1 To i '遍历一月中的每一天

        '创建文件夹，以日期命名

        MkDir Fname & Format(DateSerial(Year(Date), Month(Date), j), 'mm月dd日')

    Next j

End Sub