批量建文件夹

hktk1994

E盘有N个PDF文件，请教高手能否用VBA实现批量建文件夹，并且将PDF文件按名称移入同名文件夹中？

大灰狼1976

可以的，说明详细一点很快就解决。

hktk1994

在E盘，有文件名为A1、A2、A3、A4、A5.......A100个PDF文件，批量建文件夹，并且文件夹名为A1、A2、A3........并且把PDF文件移入相同文件名的文件夹中。

网海遨游

Sub test() '注：有代码工作薄与PDF文件要放在同一个文件夹中
        mp = ThisWorkbook.Path & "\" '有代码工作薄所在路径
        mf = Dir(mp & "*.pdf*") '显示文件名
        Do While mf <> "" '如果显示文件名不为空，就……
                Myname = Left(mf, Len(mf) - 4) '去掉文件名的后缀
                VBA.MkDir (mp & Myname) '新建指定名称的文件夹
                mf1 = mp & mf '原始路径及文件
                mf2 = ThisWorkbook.Path & "\" & Myname & "\" & mf '新路径及文件
               Name mf1 As mf2 '移动文件到相应路径的文件夹中
                mf = Dir '显示下一个文件名
        Loop
        End Sub

hktk1994

非常感谢