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