根据A列(关键字列)和B列(文件夹列)移动当前目录下的文件

xueli11

       请教各位大神，想根据excel表的A列和B列移动当前目录下的文件。但自己基础太弱，不会写。请各位大神不帮忙。必须从B2开始依次往下判断是否存在该文件夹，如果不存在，则进行创建，创建后将A2开始的包含关键字的文件移动到对应的文件夹中。如果不存在包含关键字的文件则跳过。

xueli11

最好能在第三列，加入移动的文件数量，感谢

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
这个资料，楼主可以参考下
如果还有问题再反馈吧

xueli11

liulang0808 发表于 2019-10-8 06:51
http://club.excelhome.net/thread-1258425-1-1.html
这个资料，楼主可以参考下
如果还有问题再反馈吧

这个我看了一下午，只有filecopy复制，可我想实现的是剪切功能

xueli11

朱荣兴 发表于 2019-10-7 22:09
这种问题的贴子回过的太多了，自己可以搜搜看

论坛搜了一圈，很多都是fso和filecopy。除了filecopy之外，能用move实现吗？因为我只想实现剪切粘贴的功能，而不是复制

liulang0808

xueli11 发表于 2019-10-8 08:10
这个我看了一下午，只有filecopy复制，可我想实现的是剪切功能

http://club.excelhome.net/forum. ... 170&pid=8004935

xuemei0216

Sub a()
Dim arr
arr = [a1].CurrentRegion
Dim i%, p$, f$
For i = 2 To UBound(arr)
    p = ThisWorkbook.Path & "\" & arr(i, 2) & "\"
    If Dir(p, vbDirectory) = "" Then MkDir (p)
    f = Dir(ThisWorkbook.Path & "\" & "*.*")
    Do While f <> ""
        If InStr(f, arr(i, 1)) Then
            FileCopy ThisWorkbook.Path & "\" & f, p & f
            Kill ThisWorkbook.Path & "\" & f
        End If
        f = Dir
    Loop
Next
MsgBox "OK"
End Sub

xueli11

xuemei0216 发表于 2019-10-8 12:49
Sub a()
Dim arr
arr = [a1].CurrentRegion

你的是先复制后删除。。。不过你的代码给了我一点小提示，感谢

xueli11

liulang0808 发表于 2019-10-8 08:16
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1174170&pid=8004935

是这个，感谢