批量提取文件_excel

1. 创建 启用宏的工作薄（*xlsm）
2. 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"