Excel vba 新建文件夾

 檢測EXCEL文件所在目錄下，是否以前當工作表命名的文件夾，如果沒有提示創建。

Sub mkdir()
spatch = Excel.ThisWorkbook.Path
newmd = spatch & "\" & ActiveSheet.Name
t = Dir(newmd, vbDirectory)
If t = "" Then i = MsgBox("文件夾不存在是否創建並寫入？", vbYesNo + vbQuestion, "存盤提示")
If i = 6 Then MkDir newmd Else Exit Sub
End Sub