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

Excel可能很多網(wǎng)友認(rèn)為只是一個(gè)工作表格的操作。但是Excel可以利用vba代碼對(duì)Windows系統(tǒng)做很多操作。

比如說(shuō)，我們需要做拆分工作簿，可能需要?jiǎng)?chuàng)建多個(gè)文件夾來(lái)存放工作表，如何用Excel動(dòng)態(tài)創(chuàng)建文件夾呢？

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

Sub 新建文件夾()
    Dim fso As New FileSystemObject
    Dim sFolder As String
    sFolder = Application.InputBox("請(qǐng)輸入新建文件夾的名稱：", "輸入文件夾名稱", 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

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

否則，系統(tǒng)會(huì)自動(dòng)在該excel文件當(dāng)前目錄下會(huì)自動(dòng)創(chuàng)建一個(gè)名為該名稱的文件夾