office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

excel 利用fso对象创建文件夹

2020-05-12 08:00:00
tmtony8
原创
79

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



分享