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文件當前目録下會自動創建一箇名爲該名稱的文件夾