excel 利用fso對象創(chuàng)建文件夾

Excel可能很多網(wǎng)友認爲隻是一箇工作錶格的操作。但是Excel可以利用vba代碼對Windows繫統(tǒng)做很多操作。

比如説，我們需要做拆分工作簿，可能需要創(chuàng)建多箇文件夾來存放工作錶，如何用Excel動態(tài)創(chuàng)建文件夾呢？

這裡我們用FSO對象創(chuàng)建文件夾

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 & "”已經(jīng)存在！"
    Else
        fso.CreateFolder (sFolder) '創(chuàng)建文件夾
        MsgBox "文件夾“" & sFolder & "”創(chuàng)建完成！"
    End If
    Set fso = Nothing
End Sub

運行代碼，填入創(chuàng)建的文件夾名稱，如果文件夾存在，卽提示已經(jīng)存在，創(chuàng)建失敗

否則，繫統(tǒng)會自動在該excel文件當前目録下會自動創(chuàng)建一箇名爲該名稱的文件夾