- 创建 启用宏的工作薄(*xlsm)
- Alt + F11 进入Visual Basic编辑器。 选中当前工作薄,模块 ->插入模块 ->创建一个宏,将下面代码写入宏函数中。点击运行即可从源文件夹中”\source_file\”找到目标文件(目标文件填写在Sheet1 第一列(A1~An))提取到目标文件夹中”\topath\”。
Dim p$, t$, arr, i&
arr = [a1].CurrentRegion
t = ThisWorkbook.Path & "\topath\"
p = ThisWorkbook.Path & "\source_file\"
On Error Resume Next
For i = 2 To UBound(arr)
FileCopy p & arr(i, 1), t & arr(i, 1)
Next
MsgBox "ok"