Excel VBA 根据sheet名称创建相应的文件夹

Sub createfol() '根据sheet名称创建相应的文件夹
Set fol = CreateObject("scripting.filesystemobject")
Dim ws As Worksheet
Dim path As String
path = "E:\家具图片"   '存放文件夹的路径
For Each ws In Worksheets
If fol.folderexists(path & "\" & ws.Name) = False Then MkDir path & "\" & ws.Name
Next
Set fol = Nothing
End Sub