（1）首先，楼主先新建一个excel，名称楼主自己写，怎样都行，然后将其打开。
（2）打开后按住Alt再按F11，这样就会打开vba代码编辑器
（3）点菜单栏上的“插入”，选择“模块”，这样在左下角就会出现一个“模块1”
（4）双击“模块1”，右边就会出现“模块1”的编辑界面，将以下代码复制，并粘贴到这个界面中，按F5运行。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Sub 遍历文件夹()
'Columns(1).Delete
On Error Resume Next
Dim f As String
Dim file() As String
Dim i, k, x
x = 1
i = 1: k = 1
ReDim file(1 To i)
file(1) = InputBox("请输入要查找的文件夹：") & "\"
Do Until i > k
f = Dir(file(i), vbDirectory)
Do Until f = ""
If InStr(f, ".") = 0 Then
k = k + 1
ReDim Preserve file(1 To k)
file(k) = file(i) & f & "\"
End If
f = Dir
Loop
i = i + 1
Loop
For i = 1 To k
f = Dir(file(i) & "*.*")
Do Until f = ""
'Range("a" & x) = f
Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:= _
file(i) & f, TextToDisplay:=f
x = x + 1
f = Dir
Loop
Next
End Sub
|
（5）在出现的对话框中，将你要查找的文件的地址复制到对话框中，按确定，就完成了。
注：这里用的是excel2007版，如果楼主用的是其他版本，有可能存在代码不兼容问题。
图1.打开vba编辑器。
图2.运行代码。
图3.结果。
