VBA如何将文件快速批量复制到指定文件夹下

1、先看一下我的实际操作，最后会把代码分享给大家，直接訇咀喃谆将代码复制到excel当中就可以使用了，首先看到新建文件夹里有很多的excel文件，而新建文件夹2里什么文件都没有，如何将e旌忭檀挢xcel文件复制到文件夹2呢，如下图所示：

3、单击视图按钮中的查看宏按钮，如下图所示：

5、接着会弹出文件选择对话框，我们需要找到对应文件，并单击确定，如下图所示：

7、接着我们需要输入函数将文件路径和文件名合并为完整路径，函数为简单的&文本链接，如下图所示：

10、然后单击目标文件夹的属性，找到他的路径并复制到B列，如下图所示：

12、所有的工作做好后，我们只需要单击复制文件到指定目录下的excel文件的视图按钮中的查看宏，如下图所示：

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，如下图所示：