excel 利用fso对象创建文件夹

Excel可能很多网友认为只是一个工作表格的操作。但是Excel可以利用vba代码对Windows系统做很多操作。

比如说，我们需要做拆分工作簿，可能需要创建多个文件夹来存放工作表，如何用Excel动态创建文件夹呢？

这里我们用FSO对象创建文件夹

Sub 新建文件夹()
    Dim fso As New FileSystemObject
    Dim sFolder As String
    sFolder = Application.InputBox("请输入新建文件夹的名称：", "输入文件夹名称", Type:=2)
    If sFolder = "False" Or sFolder = "" Then Exit Sub
    sFolder = ThisWorkbook.Path & "" & sFolder
    If fso.FolderExists(sFolder) Then
        MsgBox "文件夹“" & sFolder & "”已经存在！"
    Else
        fso.CreateFolder (sFolder) '创建文件夹
        MsgBox "文件夹“" & sFolder & "”创建完成！"
    End If
    Set fso = Nothing
End Sub

运行代码，填入创建的文件夹名称，如果文件夹存在，即提示已经存在，创建失败

否则，系统会自动在该excel文件当前目录下会自动创建一个名为该名称的文件夹