Question

excel VBA 自动生成文件夹

如题所述。有命名为a,b,c,d,e.....的excel文件。
现在需要自动生成和文件相同名字的文件夹。并将文件自动放到所属文件夹中。
请问，VBA应该怎么写。

如果有不是VBA的操作办法也可告知。
不过最好是VBA的处理

Answer 1

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

路径自己修改下。

Answer 2

我可以帮你，不过现在没空，晚上回去啦，再给你吧！