如何用excel vba按关键字选择性的遍历文件夹搜索文件？

Question

图1为要求，图2、图3是预计达到的效果

Answer 1

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系统的文件查找，谢谢你的回答

Answer 2

1.新建EXCEL工作薄，同时按下组合键ALT+F11调出VBA开发编辑器；
2.点击“工具-引用(R)”；
3.勾选“Microsoft Scripting Runtime”,点击确定；
4.在左侧工程窗口中单击右键，点击“插入-模块”；追问

不知道代码怎么写，请指导

Answer 3

写过这个，根据关键字查询文件，并提取路径赋予超链接

追问

能否具体点，望指教！[email protected]