根据文件名批量提取文件夹中文件

39088190

求助大神，这个问题我想Excel能做得到，但我是菜鸟一个，相信大神能做到：就是根据文件名批量提取文件夹中的文件。即把想要的文件复制到一个新建 的文件夹中。谢谢。

橒♂蝣

去VBA问问吧，应该很好解决

袁勇

就是根据文件名批量提取文件夹中的文件》》》》》》》》》这个说得还不够具体。

fzxba

Sub test() '没测试
  'Dim Fso As New FileSystemObject
  Dim Fso As Object, ar, i As Long
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Dim src As String, dst As String, f As String
  src = "C:\源文件夹\123\456\"
  dst = "D:\目标文件夹\789\abc\"
  ar = Range("A1").CurrentRegion
  For i = 2 To UBound(ar)
    If Fso.FileExists(src & ar(i, 1)) Then
      Fso.CopyFile src & ar(i, 1), dst & ar(i, 1)
    End If
  Next
  Set Fso = Nothing
End Sub

'文件名      这是 A 列结构示意
'文本1.txt
'文本2.txt
'文本3.txt
'图像1.jpg
'图像2.jpg
'图像3.jpg
'图像4.jpg
'表格1.xlsx
'表格2.xlsx
'表格3.xlsx
'表格4.xlsx
'表格5.xlsx

hugeinfo

https://club.excelhome.net/thread-1637647-2-1.html