office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

excel 利用fso對象創建文件夾

2020-05-12 08:00:00
tmtony8
原創
3974

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


運行代碼,填入創建的文件夾名稱,如果文件夾存在,卽提示已經存在,創建失敗

blob.png


否則,繫統會自動在該excel文件當前目録下會自動創建一箇名爲該名稱的文件夾

blob.png



分享