Excel怎样批量提取文件夹和子文件夹所有文件
怎样批量提取文件夹下文件名我的目的不全部提取,而根据关键字来提取,谢谢你的回答
追答Sub 查询文件()
'2014-3-16 9:22:15 用于文件夹下文件查询
Dim m1$, m2$, m$, r%
m1 = Range("b1").Text
m2 = Range("b2").Text
Range("a4:c10000").ClearContents
m = Dir(m1 & "\", vbReadOnly)
r = 3
Application.ScreenUpdating = False
While m <> ""
If m Like m2 Then
r = r + 1
Range("a" & r).Value = r - 3
Range("b" & r).Value = m
End If
m = Dir
Wend
Application.ScreenUpdating = True
MsgBox "完成"
End Sub
我的目的类似于XP系统的文件查找,谢谢你的回答
不知道代码怎么写,请指导