Question

我想用VB在excel中通过单元格的内容在指定文件夹中查找包含此内容的文件，并将文件复制到另一个文件夹中

http://zhidao.baidu.com/link?url=9L-givNzIYbeKn3CLzlkZHGcBH66y-2uEmtyZ5fyNtbDwmwazkr6g_UEuPYPhu1DDsB_jD0nrnMnRW9ZmecVla
就是这个问题的完整代码，好人，能给一份么

Answer 1

难道，还没有完全解决！
扣我：四七另六九二二三六

追问

就是缺少里边的一个searchfiles模块，代码不完整啊，亲

追答

扣我：四七另六九二二三六

继续扣我：四七另六九二二三六

Answer 2

能给我发一份你的excel格式么，我看看格式

追问

就是缺少里边的一个searchfiles模块，代码不完整啊，亲，下边的代码里缺东西，怎么搞啊，我这只有手机，公司电脑不连外网。。。。

追答

Sub aaaaa()

Dim f
Dim j, xx As Integer
Dim path1, path2
path1 = "源地址"
path2 = "复制到的地址"
With ThisWorkbook.Worksheets(1)
xx = .[A69000].End(xlUp).Row
For j = 1 To xx

f = Dir(path1)
Do While f ""
f = Dir
If f Like "*" & .Range("a" & j) & "*" Then
FileCopy path1 & f, path2 & f '**复制的地址
.Range("a" & j).Interior.Color = 255
End If
Loop
Next j
End With
End Sub
’注你把上面的源地址和复制到的地址修改成你要的地址就可以了，不过要加一个“\”,比如“C:\Users\Administrator\Desktop\”，然后我把复制过的文件标红了，没有标颜色的就是没有找到的，这里我不知道你的excel文件名字，所以你把你那个excel打开，alt+f11，在右上角右键插入一个模块，吧代码考进去，f5运行就可以了，这里我吧你excel考虑的是文件名字是放到第一个sheet页面的a列的，

追问