尝试使用VBA从excel创建文件夹和子文件夹

Sub CreateFolders()
    Dim FileSystem As Object
    Dim ParentFolder As String
    Dim ChildFolder As String
    
    ' 设置父文件夹路径
    ParentFolder = "C:\ParentFolder\"
    
    ' 创建父文件夹
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    FileSystem.CreateFolder ParentFolder
    
    ' 创建子文件夹
    ChildFolder = ParentFolder & "ChildFolder\"
    FileSystem.CreateFolder ChildFolder
    
    ' 显示消息框
    MsgBox "文件夹和子文件夹创建成功！"
End Sub