利用VBA把符合条件的文件复制到新文件夹中去

我的目标：让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office为其服务。支持鹏哥，也为自己加油！

今天，培训群有位学员问了一个问题，顺便分享给大家。

问题如下：

简历文件夹中存放着若干简历，Excel表中有登记过相关的简历信息，现在要求根据Excel表中筛选出的姓名到简历文件夹中找到这些人的简历文件后放到另外一个文件夹中。

用VBA实现效果如下：

[iframe]https://mp.weixin.qq.com/mp/readtemplate?t=pages/video_player_tmpl&action=mpvideo&auto=0&vid=wxv_872629467821244417[/iframe]

代码如下：

Sub test1()

复制代码

Dim arr, arr1(1 To 9)

复制代码

arr = Sheets(2).Range("b2:b7")

复制代码

Set fso = CreateObject("scripting.filesystemobject")

复制代码

For i = 1 To UBound(arr)

复制代码

fn = Dir("C:\Users\peng\Desktop\简历文件夹\*")

复制代码

For m = 1 To 9

复制代码

If InStr(fn, arr(i, 1)) > 0 Then

复制代码

fso.CopyFile "C:\Users\peng\Desktop\简历文件夹\" & fn, "C:\Users\peng\Desktop\需要的简历\" & fn

复制代码

End If

复制代码

fn = Dir

复制代码

Next m

复制代码

Next i

复制代码

Set fso = Nothing

复制代码

End Sub

复制代码

向右滑动可以查看完整代码

提示：
fso.CopyFile "C:\Users\peng\Desktop\简历文件夹\" & fn, "C:\Users\peng\Desktop\需要的简历\" & fn
红色部分代表要复制的文件的位置，蓝色部分表示新的位置。

想要完成这个任务，大家可以去了解下FileSystemObject对象，简称FSO对象，它包含在Scripting类型库中，就像字典对象一样，使用前要先绑定。

FSO对象有强大的文件与文件夹管理能力，利用它可以复制、删除、重命名以及获取文件的一切属性，同时利用它也可以删除、创建以及获取文件夹的一切属性。

以上案例仅是皮毛，对于需要经常使用VBA操作文件和文件夹的朋友，有必要好好去研究下它。

如有需要，可以联系我，购买视频加群学习。

本节的分享就到这里，鹏哥祝大家每天都有进步。
加入米宏Office培训群，每天进步一点点！
从基础操作到VBA，
两杯咖啡的钱，
换取一份如此详细的Excel视频资料，
你还在犹豫？
欲购从速，联系微信号：527240310
每天进步一点，每天提升一点！