1、首先我们需要新建一个excel文件，默认格式为xlsx文件，需要打开文件另存为xlsm格式的宏文件，如下图所示：
3、接下来就是核心的地方，需要双击该模块，打开代码编辑页面并输入一下代码：Sub 文件移动() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim a% a = 1 Do fs.MoveFile ActiveSheet.Cells(a, 1), ActiveSheet.Cells(a, 2) & "\" a = a + 1 Loop Until ActiveSheet.Cells(a, 1) = "" Set fs = Nothing End Sub，如下图所示：
5、弹出的对话框后我们会看到文件的路径，直接复制路径到excel的A列中即可，当然我们也可以用批量提取文件名的小工具来一键提取，如下图所示：
6、接着我们需要找到目标文件的路径，方法同上，复制后，粘贴到excel的B列，如下图所示：
