excelvba怎么创建sho文件

1、打开excel软件，点击开发工具，点击查看代码，打开VBA窗口。

2、在新打开的窗体的代码编辑区复制粘贴对应代码，点击绿色小三角按钮。

3、在excel文件数据窗口点击开发工具中的宏按钮，点击执行按钮，即可执行。

Sub 创建文件夹()

    Dim F   As String

    Dim P   As String

    Dim S   As String

    P = "D:\123"

    P = IIf(Right(P, 1) = "\", P, P & "\")

    F = Dir(P & "*.XLS*")

    Do While F <> ""

        S = Left(F, InStrRev(F, ".") - 1)

        MkDir P & S

        Name P & F As P & S & "\" & F

        F = Dir

    Loop

    MsgBox " *** 作完成！"

End Sub

路径自己修改下。

---