excel中根据文件名提取对应的文件

qjzhouchao · 发表于 2016-4-5 11:07

根据excel某中一列的值（文件名）提取对应的文件。求指教，谢谢！

zhaogang1960 · 发表于 2016-4-5 11:15

请参考:
Sub Macro1()
Dim p$, t$, arr, i&
arr = [a1].CurrentRegion
t = ThisWorkbook.Path & "\提取后照片\"
p = ThisWorkbook.Path & "\原照片\"
On Error Resume Next
For i = 2 To UBound(arr)
FileCopy p & arr(i, 1), t & arr(i, 1)
Next
MsgBox "ok"
End Sub

zhaogang1960 · 发表于 2016-4-5 11:16

请测试附件

根据文件名提取文件.rar (98.16 KB, 下载次数: 366)

qjzhouchao · 发表于 2016-4-5 11:18

补充：根据excel文件sheet1页A2:A6的文件名，提取一个指定文件夹中的文件到另一个指定的文件夹内.

qjzhouchao · 发表于 2016-4-5 11:26

zhaogang1960 发表于 2016-4-5 11:16
请测试附件

高手。非常感谢

文西君 · 发表于 2017-8-7 09:42

zhaogang1960 发表于 2016-4-5 11:16
请测试附件

您好，老赵，请问如果我想模糊提取，只要文件名包含单元格的名称都提取，该怎样修改？先行谢过

qinhuan66 · 发表于 2019-6-12 16:49

好好学习天天向上

		自动登录	找回密码
密码			免费注册

[求助] excel中根据文件名提取对应的文件

最新热点 /1