利用Excel创建文件夹，修改文件夹名称，删除文件夹，文件名称修改1.01

csx

内容：

VBA写，熟悉Excel操作的都可以很容易掌握
就集成了4个功能，
文件夹名称修改，文件名称修改，一键创建文件夹，
一键删除文件夹(注意，删除不经过回收站，谨慎使用），ps，因为离职想把自己的文件给删除，所以才想到这个
要是懂一些函数的话，修改起来工工整整的。特别适合文职人员，整理起来的文件整整齐齐的。
功能简单方便，建议先自己测试一下
蓝奏云链接：https://wwvv.lanzouh.com/i1AVI0ypuj6f

完善之处：

1.完善了对创建文件夹是否存在未做判断，如果遇到已经存在的文件夹，运行时会导致出错的问题
2.新增了：创建文件夹后，打开已创建好的文件夹，方便下一步操作
3.其他功能均未更改

[AppleScript] 纯文本查看 复制代码

Sub 创建文件夹()
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
Sheets("创建").Activate
sysPath = Range("b1").Value
If Fso.FolderExists(sysPath) Then
    CreateFolder
Else
    Fso.CreateFolder sysPath
    CreateFolder
End If
' 检查目录是否存在
If Fso.FolderExists(sysPath) Then
    ' 使用Shell.Application对象打开目录
    Shell "explorer.exe " & sysPath, vbNormalFocus
Else
    MsgBox "指定的目录不存在！", vbExclamation
End If
End Sub
Sub CreateFolder()
    Dim Mypath As String
    Dim myfso As FileSystemObject
    Dim i As Integer
    For i = 4 To Cells(Rows.Count, 1).End(3).Row
        Mypath = sysPath & "\" & Cells(i, 1).Value
        Set myfso = New FileSystemObject
        If Not myfso.FolderExists(Mypath) Then
        myfso.CreateFolder Mypath
        End If
    Next
    MsgBox "文件夹创建完毕"
End Sub

下载地址：
https://wwtc.lanzouq.com/i037X2l45hfa