1、先看一下我的实际操作，最后会把代码分享给大家，直接訇咀喃谆将代码复制到excel当中就可以使用了，首先看到新建文件夹里有很多的excel文件，而新建文件夹2里什么文件都没有，如何将e旌忭檀挢xcel文件复制到文件夹2呢，如下图所示：
2、接着我们需要批量提取新建文件夹里的文件完整路径，打开批量提取文件名的excel文件，如下图所示：
3、单击视图按钮中的查看宏按钮，如下图所示：
4、在弹出的对话框中找到对应操作的宏命令，批量获取文件名，并单击执行，如下图所示：
5、接着会弹出文件选择对话框，我们需要找到对应文件，并单击确定，如下图所示：
6、确定后，即可看到文件的路径已经找到，如下图所示：
7、接着我们需要输入函数将文件路径和文件名合并为完整路径，函数为简单的&文本链接，如下图所示：
8、然后选中单元格直接下拉，即可得到全部文件的完整路径，如下图所示：
9、然后将路径进行复制，并选择性数值粘贴到复制文件的excel的a列，注意A列是我尺攵跋赈们的源文件的完整路径B列是目标文件夹路径，如下图所示：
10、然后单击目标文件夹的属性，找到他的路径并复制到B列，如下图所示：
11、目标路径粘贴后，需要再次复制，并粘贴到每一个目标文件的右侧，使其一一对应，如下图所示：
12、所有的工作做好后，我们只需要单击复制文件到指定目录下的excel文件的视图按钮中的查看宏，如下图所示：
13、找到copyfil宏命令，并单击执行按钮，即可看到新建文件夹2里有了所有的文件，已经成功复制，如下图所示：
14、最后把宏代码分享给大家，需要打开工作簿，然后按快捷键ALT+F11打开宏窗口，如下图所示：
15、然后插入一个模块，并将代码：Sub CopyFil() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim a% a = 1 Do fs.CopyFile ActiveSheet.Cells(a, 1), ActiveSheet.Cells(a, 2) & "\" a = a + 1 Loop Until ActiveSheet.Cells(a, 1) = "" Set fs = NothingEnd Sub，如下图所示：
