我先把你的方法保存到这里：
方法是创建一个宏如FZ，然后将其指定给一个按钮：Sub FZ()ypath = "C:\Users\" '源文件目录，请自行更改，最后有一个斜杠
mbpath = "C:\Users" '目标文件目录，请自行更改，最后有一个斜杠
For i = 1 To [a65536].End
(xlUp).Rowwj = Cells(i, 1)
FileCopy ypath & wj, mbpath & wj
Next i
End Sub
批处理。
先做好批处理命令，然后用文本存储后，另存为 .BAT 文件。
参考 XCOPY 命令。
希望对你有帮助。
@echo off
xcopy D:\Downloads\123.txt H:\备份 /s /d
xcopy D:\Downloads\456.txt H:\备份 /s /d
echo 复制完成
echo. & pause
内容全部来源于网络收集，如有侵权，请联系网站删除！